mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Define fn for outputting the current workspace's label

Browse source 
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
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
emacs/.emacs.d/wpc/window-manager.el
View file

@ -369,6 +369,12 @@ predicate."
(list-map #'window-manager--register-kbd)) (list-map #'window-manager--register-kbd))
(window-manager--alert "Registered workspace KBDs!"))) (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' ;; Startup Applications in `window-manager--named-workspaces'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;