Define fn for outputting the current workspace's label

This is a useful helper fn, and hopefully something I'll support in my mode line
soon.
This commit is contained in:
William Carroll 2020-10-03 14:49:02 +01:00
parent 8137eed738
commit 869bcf3fc8

View file

@ -369,6 +369,12 @@ predicate."
(list-map #'window-manager--register-kbd))
(window-manager--alert "Registered workspace KBDs!")))
(defun window-manager-current-workspace ()
"Output the label of the currently active workspace."
(->> window-manager--workspaces
cycle-current
window-manager--named-workspace-label))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Startup Applications in `window-manager--named-workspaces'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;