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

Add new face: doom-modeline-buffer-minor-mode.

Browse source 
See https://github.com/seagle0128/doom-modeline/issues/59#issuecomment-444514463.
This commit is contained in:
Vincent Zhang 2018-12-06 02:12:17 +08:00
parent 9c6d00d3ab
commit 4235da6465
1 changed files with 19 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
doom-modeline.el
View file

@ -190,6 +190,7 @@ It returns a file name which can be used directly as argument of
(declare-function persp-contain-buffer-p 'persp-mode)
(declare-function persp-add-buffer 'persp-mode)
(declare-function persp-remove-buffer 'persp-mode)
(declare-function persp-switch 'persp-mode)
(declare-function project-current 'project)
(declare-function project-roots 'project)
(declare-function projectile-project-root 'projectile)
@ -229,6 +230,10 @@ It returns a file name which can be used directly as argument of
'((t (:inherit (mode-line-emphasis bold))))
"Face used for the major-mode segment in the mode-line.")
(defface doom-modeline-buffer-minor-mode
'((t (:inherit (mode-line-buffer-id bold))))
"Face used for the minor-modes segment in the mode-line.")
(defface doom-modeline-project-root-dir
'((t (:inherit (mode-line-emphasis bold))))
"Face used for the project part of the mode-line buffer path.")
@ -880,19 +885,23 @@ mouse-3: Toggle minor modes"
(doom-modeline-def-segment minor-modes
(when doom-modeline-minor-modes
`((:propertize ("" minor-mode-alist)
mouse-face mode-line-highlight
help-echo "Minor mode\n\
(propertize
(concat " "
(format-mode-line
`((:propertize ("" minor-mode-alist)
mouse-face mode-line-highlight
help-echo "Minor mode\n\
mouse-1: Display minor mode menu\n\
mouse-2: Show help for minor mode\n\
mouse-3: Toggle minor modes"
local-map ,mode-line-minor-mode-keymap)
(:propertize "%n"
mouse-face mode-line-highlight
help-echo "mouse-2: Remove narrowing from buffer"
local-map ,(make-mode-line-mouse-map
'mouse-2 #'mode-line-widen))
" ")))
local-map ,mode-line-minor-mode-keymap)
(:propertize "%n"
mouse-face mode-line-highlight
help-echo "mouse-2: Remove narrowing from buffer"
local-map ,(make-mode-line-mouse-map
'mouse-2 #'mode-line-widen))))
" ")
'face (if (doom-modeline--active) 'doom-modeline-buffer-minor-mode))))
;;