diff options
| author | William Carroll <wpcarro@gmail.com> | 2020-10-03T13·49+0100 |
|---|---|---|
| committer | William Carroll <wpcarro@gmail.com> | 2020-10-03T13·49+0100 |
| commit | 869bcf3fc84994b0074e735b2204fd7a180dfd44 (patch) | |
| tree | af1d3b7d7d4c20ea980a1ea9317340ed5e49f91a /emacs/.emacs.d/wpc/window-manager.el | |
| parent | 8137eed73850b35b8e9f18ec2f1cbb586f3e0cc7 (diff) | |
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.
Diffstat (limited to 'emacs/.emacs.d/wpc/window-manager.el')
| -rw-r--r-- | emacs/.emacs.d/wpc/window-manager.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/emacs/.emacs.d/wpc/window-manager.el b/emacs/.emacs.d/wpc/window-manager.el index 6050834028e8..cda66a296492 100644 --- a/emacs/.emacs.d/wpc/window-manager.el +++ b/emacs/.emacs.d/wpc/window-manager.el @@ -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' ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |