Mirrors/exwm2
2
0
Fork 0
mirror of https://github.com/emacs-exwm/exwm.git synced 2024-11-27 14:57:59 +01:00
Code Issues Projects Releases Packages Wiki Activity

Allow customizing workspace indexes

Browse source 
* exwm-workspace.el (exwm-workspace-index-map): New variable for
customizing workspace indexes.
(exwm-workspace--update-switch-history): Use it.
This commit is contained in:
Chris Feng 2017-07-16 17:08:24 +08:00
parent 19515dc074
commit 7d967e7361
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
exwm-workspace.el
View file

@ -35,6 +35,10 @@
(defvar exwm-workspace--list nil "List of all workspaces (Emacs frames).") (defvar exwm-workspace--list nil "List of all workspaces (Emacs frames).")
(defvar exwm-workspace--current nil "Current active workspace.") (defvar exwm-workspace--current nil "Current active workspace.")
(defvar exwm-workspace-current-index 0 "Index of current active workspace.") (defvar exwm-workspace-current-index 0 "Index of current active workspace.")
(defvar exwm-workspace-index-map #'number-to-string
"Function for mapping a workspace index to a string for display.
By default `number-to-string' is applied which yields 0 1 2 ... .")
(defsubst exwm-workspace--position (frame) (defsubst exwm-workspace--position (frame)
"Retrieve index of given FRAME in workspace list. "Retrieve index of given FRAME in workspace list.
@ -168,7 +172,7 @@ Please manually run the hook `exwm-workspace-list-change-hook' afterwards.")
(lambda (j) (lambda (j)
(format (if (= i j) "[%s]" " %s ") (format (if (= i j) "[%s]" " %s ")
(propertize (propertize
(int-to-string j) (apply exwm-workspace-index-map (list j))
'face 'face
(cond ((frame-parameter (elt exwm-workspace--list j) (cond ((frame-parameter (elt exwm-workspace--list j)
'exwm-urgency) 'exwm-urgency)