diff --git a/doom-modeline.el b/doom-modeline.el index c28e363..48f6219 100644 --- a/doom-modeline.el +++ b/doom-modeline.el @@ -439,12 +439,12 @@ active." "Propertized `buffer-file-name' based on `doom-modeline-buffer-file-name-style'." (propertize (pcase doom-modeline-buffer-file-name-style - ('truncate-upto-project (doom-modeline--buffer-file-name 'shrink)) - ('truncate-upto-root (doom-modeline--buffer-file-name-truncate)) - ('truncate-all (doom-modeline--buffer-file-name-truncate t)) - ('relative-to-project (doom-modeline--buffer-file-name-relative)) - ('relative-from-project (doom-modeline--buffer-file-name-relative 'include-project)) - ('file-name (propertize (file-name-nondirectory buffer-file-name) + (`truncate-upto-project (doom-modeline--buffer-file-name 'shrink)) + (`truncate-upto-root (doom-modeline--buffer-file-name-truncate)) + (`truncate-all (doom-modeline--buffer-file-name-truncate t)) + (`relative-to-project (doom-modeline--buffer-file-name-relative)) + (`relative-from-project (doom-modeline--buffer-file-name-relative 'include-project)) + (`file-name (propertize (file-name-nondirectory buffer-file-name) 'face (let ((face (or (and (buffer-modified-p) 'doom-modeline-buffer-modified) @@ -677,7 +677,7 @@ directory, the file name, and its state (modified, read-only or non-existent)." icons." (when (boundp 'flycheck-last-status-change) (pcase flycheck-last-status-change - ('finished (if flycheck-current-errors + (`finished (if flycheck-current-errors (let-alist (flycheck-count-errors flycheck-current-errors) (let ((sum (+ (or .error 0) (or .warning 0)))) (doom-modeline-icon "do_not_disturb_alt" @@ -685,10 +685,10 @@ icons." (if .error 'doom-modeline-urgent 'doom-modeline-warning) -0.25))) (doom-modeline-icon "check" nil 'doom-modeline-info))) - ('running (doom-modeline-icon "access_time" nil 'font-lock-doc-face -0.25)) - ('no-checker (doom-modeline-icon "sim_card_alert" "-" 'font-lock-doc-face)) - ('errored (doom-modeline-icon "sim_card_alert" "Error" 'doom-modeline-urgent)) - ('interrupted (doom-modeline-icon "pause" "Interrupted" 'font-lock-doc-face))))) + (`running (doom-modeline-icon "access_time" nil 'font-lock-doc-face -0.25)) + (`no-checker (doom-modeline-icon "sim_card_alert" "-" 'font-lock-doc-face)) + (`errored (doom-modeline-icon "sim_card_alert" "Error" 'doom-modeline-urgent)) + (`interrupted (doom-modeline-icon "pause" "Interrupted" 'font-lock-doc-face))))) ;; ('interrupted (doom-modeline-icon "x" "Interrupted" 'font-lock-doc-face)))))