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

New customization: doom-modeline-checker-simple-format.

Browse source 
If non-nil, only display one number for checker information if applicable.
This commit is contained in:
Vincent Zhang 2019-02-18 01:30:59 +08:00
parent e57c0aa25a
commit 37eef920ec
3 changed files with 30 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
README.md
View file

@ -163,6 +163,9 @@ Strongly recommend to use
;; If non-nil, a word count will be added to the selection-info modeline segment. ;; If non-nil, a word count will be added to the selection-info modeline segment.
(setq doom-modeline-enable-word-count nil) (setq doom-modeline-enable-word-count nil)
;; If non-nil, only display one number for checker information if applicable.
(setq doom-modeline-checker-simple-format t)
;; Whether display perspective name or not. Non-nil to display in mode-line. ;; Whether display perspective name or not. Non-nil to display in mode-line.
(setq doom-modeline-persp-name t) (setq doom-modeline-persp-name t)

3
doom-modeline-core.el
View file

@ -107,6 +107,9 @@ The icons may not be showed correctly in terminal and on Windows.")
(defvar doom-modeline-enable-word-count nil (defvar doom-modeline-enable-word-count nil
"If non-nil, a word count will be added to the selection-info modeline segment.") "If non-nil, a word count will be added to the selection-info modeline segment.")
(defvar doom-modeline-checker-simple-format t
"If non-nil, only display one number for checker information if applicable.")
(defvar doom-modeline-persp-name t (defvar doom-modeline-persp-name t
"Whether display perspective name or not. Non-nil to display in mode-line.") "Whether display perspective name or not. Non-nil to display in mode-line.")

38
doom-modeline-segments.el
View file

@ -615,13 +615,18 @@ mouse-2: Show help for minor mode")
(let ((error (or .error 0)) (let ((error (or .error 0))
(warning (or .warning 0)) (warning (or .warning 0))
(info (or .info 0))) (info (or .info 0)))
(format "%s/%s/%s" (if doom-modeline-checker-simple-format
(doom-modeline-checker-text (number-to-string error) (doom-modeline-checker-text (number-to-string (+ error warning info))
'doom-modeline-urgent) (cond ((> error 0) 'doom-modeline-urgent)
(doom-modeline-checker-text (number-to-string warning) ((> warning 0) 'doom-modeline-warning)
'doom-modeline-warning) (t 'doom-modeline-info)))
(doom-modeline-checker-text (number-to-string info) (format "%s/%s/%s"
'doom-modeline-info)))))) (doom-modeline-checker-text (number-to-string error)
'doom-modeline-urgent)
(doom-modeline-checker-text (number-to-string warning)
'doom-modeline-warning)
(doom-modeline-checker-text (number-to-string info)
'doom-modeline-info)))))))
(`running nil) (`running nil)
(`no-checker (doom-modeline-checker-text "-" 'font-lock-doc-face)) (`no-checker (doom-modeline-checker-text "-" 'font-lock-doc-face))
(`errored (doom-modeline-checker-text "Error" 'doom-modeline-urgent)) (`errored (doom-modeline-checker-text "Error" 'doom-modeline-urgent))
@ -762,13 +767,18 @@ mouse-2: Show help for minor mode"
((null known) (doom-modeline-checker-text "-" 'font-lock-doc-face)) ((null known) (doom-modeline-checker-text "-" 'font-lock-doc-face))
(all-disabled (doom-modeline-checker-text "-" 'doom-modeline-urgent)) (all-disabled (doom-modeline-checker-text "-" 'doom-modeline-urgent))
(t (when (> (+ .error .warning .note) 0) (t (when (> (+ .error .warning .note) 0)
(format "%s/%s/%s" (if doom-modeline-checker-simple-format
(doom-modeline-checker-text (number-to-string .error) (doom-modeline-checker-text (number-to-string (+ .error .warning .note))
'doom-modeline-urgent) (cond ((> .error 0) 'doom-modeline-urgent)
(doom-modeline-checker-text (number-to-string .warning) ((> .warning 0) 'doom-modeline-warning)
'doom-modeline-warning) (t 'doom-modeline-info)))
(doom-modeline-checker-text (number-to-string .note) (format "%s/%s/%s"
'doom-modeline-info))))))) (doom-modeline-checker-text (number-to-string .error)
'doom-modeline-urgent)
(doom-modeline-checker-text (number-to-string .warning)
'doom-modeline-warning)
(doom-modeline-checker-text (number-to-string .note)
'doom-modeline-info))))))))
(propertize (propertize
text text
'help-echo (cond 'help-echo (cond