emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

wg: remove unicode number icons (unreliable)

Browse source
This commit is contained in:
Henrik Lissner 2016-06-06 19:44:39 -04:00
parent ed8f744261
commit 7c37fde945
1 changed files with 1 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

16
core/defuns/defuns-workgroup.el
View file

@ -102,20 +102,6 @@
(unless (wg-current-workgroup-p w) (unless (wg-current-workgroup-p w)
(wg-kill-workgroup w))))) (wg-kill-workgroup w)))))
(defun doom--num-to-unicode (num)
"Return a nice unicode representation of a single-digit number STR."
(cl-case num
(1 "➊")
(2 "➋")
(3 "➌")
(4 "➍")
(5 "➎")
(6 "❻")
(7 "➐")
(8 "➑")
(9 "➒")
(0 "➓")))
(defun doom--workgroup-display (&optional suppress-update message message-face) (defun doom--workgroup-display (&optional suppress-update message message-face)
(message "%s%s" (doom/workgroup-display suppress-update t) (message "%s%s" (doom/workgroup-display suppress-update t)
(propertize message 'face message-face))) (propertize message 'face message-face)))
@ -131,7 +117,7 @@
(if (not workgroup) wg-nowg-string (if (not workgroup) wg-nowg-string
(wg-element-display (wg-element-display
workgroup workgroup
(format " %s %s " (doom--num-to-unicode (1+ index)) (wg-workgroup-name workgroup)) (format " [%d] %s " (1+ index) (wg-workgroup-name workgroup))
'wg-current-workgroup-p))) 'wg-current-workgroup-p)))
(wg-session-workgroup-list it)))) (wg-session-workgroup-list it))))
(if return-p (if return-p