doomemacs/modules/ui/doom/config.el

92 lines
3 KiB
EmacsLisp
Raw Normal View History

;;; ui/doom/config.el -*- lexical-binding: t; -*-
2017-01-17 00:20:59 -05:00
2017-01-31 05:09:20 -05:00
;; <https://github.com/hlissner/emacs-doom-theme>
2017-06-05 03:12:49 +02:00
(def-package! doom-themes
2017-02-03 19:44:14 -05:00
:config
(unless doom-theme
(setq doom-theme 'doom-one)
(after! solaire-mode
(add-hook 'doom-init-theme-hook #'solaire-mode-swap-bg t)))
;; Ensure `doom/reload-load-path' reloads common faces
2017-12-08 22:57:08 -05:00
(defun +doom|reload-theme () (load "doom-themes-common.el" nil t))
2017-06-29 14:58:10 +02:00
(add-hook 'doom-pre-reload-theme-hook #'+doom|reload-theme)
2017-12-08 22:57:08 -05:00
;; improve integration w/ org-mode
(add-hook 'doom-init-theme-hook #'doom-themes-org-config)
2017-12-08 22:57:08 -05:00
;; more Atom-esque file icons for neotree
(add-hook 'doom-init-theme-hook #'doom-themes-neotree-config)
2017-05-15 21:00:33 +02:00
(setq doom-neotree-enable-variable-pitch t
doom-neotree-file-icons 'simple
doom-neotree-line-spacing 2)
(after! neotree
(defun +doom|neotree-fix-popup ()
"Ensure the fringe settings are maintained on popup restore."
(neo-global--when-window
(doom--neotree-no-fringes)))
2017-06-14 21:03:20 +02:00
(add-hook 'doom-popup-mode-hook #'+doom|neotree-fix-popup)))
2017-01-31 05:09:20 -05:00
2017-06-05 03:13:24 +02:00
(def-package! solaire-mode
:hook (after-change-major-mode . turn-on-solaire-mode)
2017-06-05 03:13:24 +02:00
:config
(setq solaire-mode-real-buffer-fn #'doom-real-buffer-p)
;; Prevent color glitches when reloading either DOOM or the theme
(add-hook! '(doom-init-theme-hook doom-reload-hook) #'solaire-mode-reset))
2017-06-05 03:13:24 +02:00
(after! hideshow
2017-05-15 21:00:33 +02:00
(defface +doom-folded-face
`((((background dark))
(:inherit font-lock-comment-face :background ,(doom-color 'base0)))
2017-05-15 21:00:33 +02:00
(((background light))
(:inherit font-lock-comment-face :background ,(doom-color 'base3))))
2017-05-15 21:00:33 +02:00
"Face to hightlight `hideshow' overlays."
:group 'doom)
;; Nicer code-folding overlays (with fringe indicators)
(defun +doom-set-up-overlay (ov)
(when (eq 'code (overlay-get ov 'hs))
(when (featurep 'vimish-fold)
(overlay-put
ov 'before-string
(propertize "" 'display
(list vimish-fold-indication-mode
'empty-line
'vimish-fold-fringe))))
(overlay-put
ov 'display (propertize " [...] " 'face '+doom-folded-face))))
(setq hs-set-up-overlay #'+doom-set-up-overlay))
2017-01-31 05:09:20 -05:00
2017-02-19 18:39:54 -05:00
;; NOTE Adjust these bitmaps if you change `doom-fringe-size'
2017-06-09 00:32:49 +02:00
(after! flycheck
;; because git-gutter is in the left fringe
(setq flycheck-indication-mode 'right-fringe)
;; A non-descript, left-pointing arrow
(fringe-helper-define 'flycheck-fringe-bitmap-double-arrow 'center
"...X...."
"..XX...."
".XXX...."
"XXXX...."
".XXX...."
"..XX...."
"...X...."))
;; subtle diff indicators in the fringe
(after! git-gutter-fringe
;; places the git gutter outside the margins.
(setq-default fringes-outside-margins t)
;; thin fringe bitmaps
(fringe-helper-define 'git-gutter-fr:added '(center repeated)
"XXX.....")
(fringe-helper-define 'git-gutter-fr:modified '(center repeated)
"XXX.....")
(fringe-helper-define 'git-gutter-fr:deleted 'bottom
"X......."
"XX......"
"XXX....."
"XXXX...."))