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

Refactor fringe-helper config

Browse source
This commit is contained in:
Henrik Lissner 2017-06-09 00:32:49 +02:00
parent 58b77716c9
commit e165450903
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 31 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

5
core/core-ui.el
View file

@ -160,7 +160,10 @@ mode is detected.")
(advice-add #'all-the-icons-alltheicon :around #'doom*disable-all-the-icons-in-tty)) (advice-add #'all-the-icons-alltheicon :around #'doom*disable-all-the-icons-in-tty))
(def-package! fringe-helper (def-package! fringe-helper
:commands fringe-helper-define) :commands (fringe-helper-define fringe-helper-convert)
:init
(unless (fboundp 'define-fringe-bitmap)
(fset 'define-fringe-bitmap (lambda (&rest _)))))
(def-package! hideshow ; built-in (def-package! hideshow ; built-in
:commands (hs-minor-mode hs-toggle-hiding hs-already-hidden-p) :commands (hs-minor-mode hs-toggle-hiding hs-already-hidden-p)

55
modules/ui/doom/config.el
View file

@ -111,32 +111,31 @@
ov 'display (propertize " [...] " 'face '+doom-folded-face)))))) ov 'display (propertize " [...] " 'face '+doom-folded-face))))))
(when (and (display-graphic-p) (fboundp 'define-fringe-bitmap)) ;; NOTE Adjust these bitmaps if you change `doom-ui-fringe-size'
;; NOTE Adjust these bitmaps if you change `doom-ui-fringe-size' (after! flycheck
(after! flycheck ;; because git-gutter is in the left fringe
;; because git-gutter is in the left fringe (setq flycheck-indication-mode 'right-fringe)
(setq flycheck-indication-mode 'right-fringe) ;; A non-descript, left-pointing arrow
;; A non-descript, left-pointing arrow (fringe-helper-define 'flycheck-fringe-bitmap-double-arrow 'center
(fringe-helper-define 'flycheck-fringe-bitmap-double-arrow 'center "...X...."
"...X...." "..XX...."
"..XX...." ".XXX...."
".XXX...." "XXXX...."
"XXXX...." ".XXX...."
".XXX...." "..XX...."
"..XX...." "...X...."))
"...X...."))
;; subtle diff indicators in the fringe ;; subtle diff indicators in the fringe
(after! git-gutter-fringe (after! git-gutter-fringe
;; places the git gutter outside the margins. ;; places the git gutter outside the margins.
(setq-default fringes-outside-margins t) (setq-default fringes-outside-margins t)
;; thin fringe bitmaps ;; thin fringe bitmaps
(fringe-helper-define 'git-gutter-fr:added '(center repeated) (fringe-helper-define 'git-gutter-fr:added '(center repeated)
"XXX.....") "XXX.....")
(fringe-helper-define 'git-gutter-fr:modified '(center repeated) (fringe-helper-define 'git-gutter-fr:modified '(center repeated)
"XXX.....") "XXX.....")
(fringe-helper-define 'git-gutter-fr:deleted 'bottom (fringe-helper-define 'git-gutter-fr:deleted 'bottom
"X......." "X......."
"XX......" "XX......"
"XXX....." "XXX....."
"XXXX...."))) "XXXX...."))