jimeh/.emacs.d
1
0
Fork 0
mirror of https://github.com/jimeh/.emacs.d.git synced 2026-02-19 13:46:41 +00:00
Code Issues Packages Projects Releases Wiki Activity

chore(workspaces): improve tab-bar list display function

Browse Source
This commit is contained in:
Jim Myhrberg
2021-01-15 01:29:06 +00:00
parent 50a85ca8d8
commit bfb79e66e0
1 changed files with 11 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
modules/workspaces/siren-tab-bar.el
View File

@@ -140,21 +140,20 @@ ARG counts from 1."
(interactive)
(let* ((tabs (funcall tab-bar-tabs-function))
(current-index (or (tab-bar--current-tab-index tabs) 0))
(output "")
(output '())
(index 0))
(dolist (tab tabs)
(setq output
(concat output
(propertize (format "%d:" index)
'face 'siren-tab-bar-echo-index)
(propertize (alist-get 'name tab)
'face (if (eq index current-index)
'siren-tab-bar-echo-current
'siren-tab-bar-echo-default))
" ")
index (1+ index)))
(add-to-list 'output
(concat (propertize (format "%d:" index)
'face 'siren-tab-bar-echo-index)
(propertize (alist-get 'name tab)
'face (if (eq index current-index)
'siren-tab-bar-echo-current
'siren-tab-bar-echo-default)))
t)
(setq index (1+ index)))
(message "tabs: %s" output)))
(message "tabs: %s" (string-join output " "))))
(defun siren-tab-bar-echo-tab-list-advice (&rest _)
(when siren-tab-bar-echo-tab-list