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

Merge pull request #161 from vjoki/no-more-doc-face

Browse source 
Make uses of font-lock-doc-face configurable
This commit is contained in:
Vincent Zhang 2019-04-24 22:38:37 +08:00 committed by GitHub
commit 92b76bfa82
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 12 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
doom-modeline-core.el
View file

@ -216,6 +216,10 @@ Given ~/Projects/FOSS/emacs/lisp/comint.el
"Face for 'X out of Y' segments, such as `anzu', `evil-substitute' "Face for 'X out of Y' segments, such as `anzu', `evil-substitute'
and`iedit', etc.") and`iedit', etc.")
(defface doom-modeline-debug
`((t (:inherit font-lock-doc-face)))
"Face for debug-level messages in the modeline. Used by `*flycheck'.")
(defface doom-modeline-info (defface doom-modeline-info
`((t (:inherit (success bold)))) `((t (:inherit (success bold))))
"Face for info-level messages in the modeline. Used by `*vc'.") "Face for info-level messages in the modeline. Used by `*vc'.")

16
doom-modeline-segments.el
View file

@ -640,10 +640,10 @@ Uses `all-the-icons-material' to fetch the icon."
(.warning 'doom-modeline-warning) (.warning 'doom-modeline-warning)
(t 'doom-modeline-info)))) (t 'doom-modeline-info))))
(doom-modeline-checker-icon "check" "-" 'doom-modeline-info))) (doom-modeline-checker-icon "check" "-" 'doom-modeline-info)))
(`running (doom-modeline-checker-icon "access_time" "*" 'font-lock-doc-face)) (`running (doom-modeline-checker-icon "access_time" "*" 'doom-modeline-debug))
(`no-checker (doom-modeline-checker-icon "sim_card_alert" "?" 'font-lock-doc-face)) (`no-checker (doom-modeline-checker-icon "sim_card_alert" "?" 'doom-modeline-debug))
(`errored (doom-modeline-checker-icon "sim_card_alert" "!" 'doom-modeline-urgent)) (`errored (doom-modeline-checker-icon "sim_card_alert" "!" 'doom-modeline-urgent))
(`interrupted (doom-modeline-checker-icon "pause" "!" 'font-lock-doc-face)) (`interrupted (doom-modeline-checker-icon "pause" "!" 'doom-modeline-debug))
(`suspicious (doom-modeline-checker-icon "priority_high" "!" 'doom-modeline-urgent)) (`suspicious (doom-modeline-checker-icon "priority_high" "!" 'doom-modeline-urgent))
(_ nil)))) (_ nil))))
(propertize (propertize
@ -705,9 +705,9 @@ mouse-2: Show help for minor mode")
(doom-modeline-checker-text (number-to-string info) (doom-modeline-checker-text (number-to-string info)
'doom-modeline-info))))))) 'doom-modeline-info)))))))
(`running nil) (`running nil)
(`no-checker (doom-modeline-checker-text "-" 'font-lock-doc-face)) (`no-checker (doom-modeline-checker-text "-" 'doom-modeline-debug))
(`errored (doom-modeline-checker-text "Error" 'doom-modeline-urgent)) (`errored (doom-modeline-checker-text "Error" 'doom-modeline-urgent))
(`interrupted (doom-modeline-checker-text "Interrupted" 'font-lock-doc-face)) (`interrupted (doom-modeline-checker-text "Interrupted" 'doom-modeline-debug))
(`suspicious (doom-modeline-checker-text "Suspicious" 'doom-modeline-urgent)) (`suspicious (doom-modeline-checker-text "Suspicious" 'doom-modeline-urgent))
(_ nil)))) (_ nil))))
(propertize (propertize
@ -772,8 +772,8 @@ wheel-up/wheel-down: Previous/next error"))
(when-let (when-let
((icon ((icon
(cond (cond
(some-waiting (doom-modeline-checker-icon "access_time" "*" 'font-lock-doc-face)) (some-waiting (doom-modeline-checker-icon "access_time" "*" 'doom-modeline-debug))
((null known) (doom-modeline-checker-icon "sim_card_alert" "?" 'font-lock-doc-face)) ((null known) (doom-modeline-checker-icon "sim_card_alert" "?" 'doom-modeline-debug))
(all-disabled (doom-modeline-checker-icon "sim_card_alert" "!" 'doom-modeline-urgent)) (all-disabled (doom-modeline-checker-icon "sim_card_alert" "!" 'doom-modeline-urgent))
(t (let ((.error (length (gethash :error diags-by-type))) (t (let ((.error (length (gethash :error diags-by-type)))
(.warning (length (gethash :warning diags-by-type))) (.warning (length (gethash :warning diags-by-type)))
@ -843,7 +843,7 @@ mouse-2: Show help for minor mode"
((text ((text
(cond (cond
(some-waiting "Running..." "") (some-waiting "Running..." "")
((null known) (doom-modeline-checker-text "-" 'font-lock-doc-face)) ((null known) (doom-modeline-checker-text "-" 'doom-modeline-debug))
(all-disabled (doom-modeline-checker-text "-" 'doom-modeline-urgent)) (all-disabled (doom-modeline-checker-text "-" 'doom-modeline-urgent))
(t (let ((num (+ .error .warning .note))) (t (let ((num (+ .error .warning .note)))
(when (> num 0) (when (> num 0)