config/emacs
config/emacs
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use --map instead of mapcar in modules/modeline

Browse Source
This commit is contained in:
Wojciech Kozlowski 2019-12-18 22:53:16 +01:00
parent f96aeffbef
commit 71efbad2de
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
modules/modeline.el
View File

@ -76,17 +76,14 @@
"Return the currently active eyebrowse workspace."
(if (bound-and-true-p eyebrowse-mode)
(let* ((cur (eyebrowse--get 'current-slot))
(all (mapcar 'car (eyebrowse--get 'window-configs)))
strs)
(setq strs
(mapcar (lambda (el)
(if (= cur el)
(propertize (int-to-string el)
(all (--map (car it) (eyebrowse--get 'window-configs)))
(str (--map (if (= cur it)
(propertize (int-to-string it)
'face
'eyebrowse-mode-line-active)
(int-to-string el)))
all))
(apply 'concat strs))
(int-to-string it))
all)))
(apply 'concat str))
""))
(doom-modeline-def-segment emodule/modeline-eyebrowse-segment