github/doom-modeline
1
0
Fork 0
mirror of https://github.com/correl/doom-modeline.git synced 2024-11-23 19:19:50 +00:00
Code Issues Projects Releases Packages Wiki Activity

[Feature] Show state icons for fancy-narrow.

Browse source
This commit is contained in:
Vincent Zhang 2019-03-09 02:41:20 +07:00
parent f5a6fd9d42
commit 84a0aac09b
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
doom-modeline-segments.el
View file

@ -97,6 +97,8 @@
(declare-function evil-state-property 'evil-common)
(declare-function evil-visual-state-p 'evil-states)
(declare-function eyebrowse--get 'eyebrowse)
(declare-function fancy-narrow-to-region 'fancy-narrow)
(declare-function fancy-widen 'fancy-narrow)
(declare-function flycheck-buffer 'flycheck)
(declare-function flycheck-count-errors 'flycheck)
(declare-function flycheck-list-errors 'flycheck)
@ -226,7 +228,9 @@ Uses `all-the-icons-material' to fetch the icon."
"do_not_disturb_alt"
"!"
'doom-modeline-urgent))
((buffer-narrowed-p)
((or (buffer-narrowed-p)
(and (fboundp 'fancy-narrow-active-p)
(fancy-narrow-active-p)))
(doom-modeline-buffer-file-state-icon
"vertical_align_center"
"><"
@ -243,6 +247,8 @@ Uses `all-the-icons-material' to fetch the icon."
(advice-add #'undo-tree-redo-1 :after #'doom-modeline-update-buffer-file-state-icon)
(advice-add #'narrow-to-region :after #'doom-modeline-update-buffer-file-state-icon)
(advice-add #'widen :after #'doom-modeline-update-buffer-file-state-icon)
(advice-add #'fancy-narrow-to-region :after #'doom-modeline-update-buffer-file-state-icon)
(advice-add #'fancy-widen :after #'doom-modeline-update-buffer-file-state-icon)
(when (>= emacs-major-version 26)
(add-variable-watcher