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-state-property 'evil-common)
(declare-function evil-visual-state-p 'evil-states) (declare-function evil-visual-state-p 'evil-states)
(declare-function eyebrowse--get 'eyebrowse) (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-buffer 'flycheck)
(declare-function flycheck-count-errors 'flycheck) (declare-function flycheck-count-errors 'flycheck)
(declare-function flycheck-list-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" "do_not_disturb_alt"
"!" "!"
'doom-modeline-urgent)) '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 (doom-modeline-buffer-file-state-icon
"vertical_align_center" "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 #'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 #'narrow-to-region :after #'doom-modeline-update-buffer-file-state-icon)
(advice-add #'widen :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) (when (>= emacs-major-version 26)
(add-variable-watcher (add-variable-watcher