awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-07 12:47:30 -05:00
Code Issues Packages Projects Releases Wiki Activity

ui/doom-modeline: memoize +doom-ml-icon

Browse Source
This commit is contained in:
Henrik Lissner
2017-03-04 00:01:22 -05:00
parent e7720e4aae
commit dc3687920a
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
modules/ui/doom-modeline/config.el
View File

@ -349,7 +349,7 @@ directory, the file name, and its state (modified, read-only or non-existent)."
" " " "
+doom-modeline-vspc)))) +doom-modeline-vspc))))
(defun +doom-ml-icon (icon &optional text face) (def-memoized! +doom-ml-icon (icon &optional text face)
"Displays an octicon ICON with FACE, followed by TEXT. Uses "Displays an octicon ICON with FACE, followed by TEXT. Uses
`all-the-icons-octicon' to fetch the icon." `all-the-icons-octicon' to fetch the icon."
(concat (concat
@ -371,7 +371,7 @@ icons."
(let-alist (flycheck-count-errors flycheck-current-errors) (let-alist (flycheck-count-errors flycheck-current-errors)
(let ((sum (+ (or .error 0) (or .warning 0)))) (let ((sum (+ (or .error 0) (or .warning 0))))
(+doom-ml-icon "circle-slash" (format "%s issue%s" sum (if (eq 1 sum) "" "s")) (+doom-ml-icon "circle-slash" (format "%s issue%s" sum (if (eq 1 sum) "" "s"))
(if .error 'doom-modeline-urgent 'doom-modeline-warning)))) (if .error 'doom-modeline-urgent 'doom-modeline-warning))))
(concat (concat
(+doom-ml-icon "check" nil 'doom-modeline-info) " "))) (+doom-ml-icon "check" nil 'doom-modeline-info) " ")))
('running (+doom-ml-icon "ellipsis" "Running" 'font-lock-doc-face)) ('running (+doom-ml-icon "ellipsis" "Running" 'font-lock-doc-face))