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

Remove dash/f dependencies; use cl-lib & subr-x more

Browse Source
This commit is contained in:
Henrik Lissner
2017-02-19 18:02:40 -05:00
parent 704099a7b9
commit 2d5d826177
11 changed files with 83 additions and 123 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
core/core-ui.el
View File

@ -214,11 +214,13 @@ file."
,@forms))
(defsubst doom--prepare-modeline-segments (segments)
(-non-nil
(--map (if (stringp it)
it
(list (intern (format "doom-modeline-segment--%s" (symbol-name it)))))
segments)))
(delq
nil
(mapcar (lambda (seg)
(if (stringp seg)
seg
(list (intern (format "doom-modeline-segment--%s" (symbol-name seg))))))
segments)))
(defmacro @def-modeline (name lhs &optional rhs)
"Defines a modeline format and byte-compiles it.