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

fix(workspaces): Recent persp now works after renaming persps

Browse Source
This commit is contained in:
Jim Myhrberg
2020-07-21 18:23:27 +01:00
parent 4338d85291
commit a04e57f887
1 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
modules/workspaces/siren-persp-mode.el
View File

@@ -113,11 +113,20 @@
;; Perform safetly clean-up of recent list.
(dolist (persp-name recent-list)
(when (not (member persp-name perspectives))
(message "WARNING: perspective %s in recent list does not exist.")
(message "WARNING: perspective %s in recent list does not exist."
persp-name)
(setq recent-list (delete persp-name recent-list))))
(set-frame-parameter frame 'persp-recent-persps recent-list)))
(defun siren-persp-renamed-hook (persp old-name new-name)
(let* ((frame (selected-frame))
(recent-list (frame-parameter frame 'persp-recent-persps))
(index (cl-position old-name recent-list)))
(when index
(setcar (nthcdr index recent-list) new-name)
(set-frame-parameter frame 'persp-recent-persps recent-list))))
(defun siren-persp-mode-switch-to-most-recent ()
"Switch to the most recently active persp."
(interactive)
@@ -175,6 +184,7 @@
(add-hook 'persp-before-kill-functions 'siren-persp-before-kill-hook)
(add-hook 'persp-activated-functions 'siren-persp-activated-hook)
(add-hook 'persp-renamed-functions 'siren-persp-renamed-hook)
(add-hook 'persp-activated-functions
'siren-persp-mode-show-current-perspective-name))