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

Fix: quote -> backquote.

Browse source
This commit is contained in:
Vincent Zhang 2018-06-14 18:00:13 +08:00
parent da777a87c1
commit 2b87b94af5
1 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
doom-modeline.el
View file

@ -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)))))