emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

More clean up

Browse source
This commit is contained in:
Henrik Lissner 2016-05-20 17:00:22 -04:00
parent a5ee495cbb
commit 434cd49a50
2 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

3
core/core-os-osx.el
View file

@ -49,7 +49,8 @@
;; ;;
(use-package dash-at-point (use-package dash-at-point
:commands (dash-at-point dash-at-point-with-docset dash-at-point-run-search dash-at-point-guess-docset) :commands (dash-at-point dash-at-point-with-docset dash-at-point-run-search
dash-at-point-guess-docset)
:init :init
(defmacro def-docset! (mode docset) (defmacro def-docset! (mode docset)
`(add-hook! ,mode (setq-local dash-at-point-docset ,docset)))) `(add-hook! ,mode (setq-local dash-at-point-docset ,docset))))

11
core/core-ui.el
View file

@ -59,7 +59,7 @@
;; full filename in frame title ;; full filename in frame title
(setq frame-title-format '(buffer-file-name "%f" ("%b"))) (setq frame-title-format '(buffer-file-name "%f" ("%b")))
;; set fonts ;; set fonts
(set-frame-font (setq narf-current-font narf-default-font) t) (set-frame-font narf-default-font t)
(set-face-attribute 'default t :font narf-current-font) (set-face-attribute 'default t :font narf-current-font)
;; standardize fringe width ;; standardize fringe width
(fringe-mode narf-fringe-size) (fringe-mode narf-fringe-size)
@ -67,14 +67,17 @@
(define-fringe-bitmap 'tilde [64 168 16] nil nil 'center) (define-fringe-bitmap 'tilde [64 168 16] nil nil 'center)
(set-fringe-bitmap-face 'tilde 'font-lock-comment-face) (set-fringe-bitmap-face 'tilde 'font-lock-comment-face)
(setcdr (assq 'empty-line fringe-indicator-alist) 'tilde) (setcdr (assq 'empty-line fringe-indicator-alist) 'tilde)
;; Default frame size on startup
(push '(width . 120) default-frame-alist)
(push '(height . 30) default-frame-alist)
;; Brighter minibuffer when active + no fringe in minibuffer ;; Brighter minibuffer when active + no fringe in minibuffer
(defface narf-minibuffer-active '((t (:inherit mode-line))) (defface narf-minibuffer-active '((t (:inherit mode-line)))
"Face for active minibuffer") "Face for active minibuffer")
(add-hook! minibuffer-setup (add-hook! minibuffer-setup
(set-window-fringes (minibuffer-window) 0 0 nil) (set-window-fringes (minibuffer-window) 0 0 nil)
(make-local-variable 'face-remapping-alist) (set (make-local-variable 'face-remapping-alist)
(add-to-list 'face-remapping-alist '(default narf-minibuffer-active))) '((default narf-minibuffer-active))))
(add-hook! 'after-init-hook (set-window-fringes (minibuffer-window) 0 0 nil))) (add-hook! after-init (set-window-fringes (minibuffer-window) 0 0 nil)))
;; Try to display unicode characters without upsetting line-hieght (as much as possible) ;; Try to display unicode characters without upsetting line-hieght (as much as possible)
(narf-fix-unicode "DejaVu Sans" '(?⚠ ?★ ?λ ?➊ ?➋ ?➌ ?➍ ?➎ ?❻ ?➐ ?➑ ?➒ ?➓)) (narf-fix-unicode "DejaVu Sans" '(?⚠ ?★ ?λ ?➊ ?➋ ?➌ ?➍ ?➎ ?❻ ?➐ ?➑ ?➒ ?➓))