Henrik Lissner
2025-08-09 22:32:33 +02:00
parent 708cf08a74
commit a1121acc94
13 changed files with 30 additions and 42 deletions

View File

@@ -606,7 +606,7 @@ This be hooked to `projectile-after-switch-project-hook'."
(funcall +workspaces-switch-project-function proot))))))
;;;###autoload
(defun +workspaces-save-tab-bar-data-h (_)
(defun +workspaces-save-tab-bar-data-h (&rest _)
"Save the current workspace's tab bar data."
(when (get-current-persp)
(set-persp-parameter
@@ -622,7 +622,7 @@ This be hooked to `projectile-after-switch-project-hook'."
(frameset-filter-tabs (tab-bar-tabs) nil nil t))))
;;;###autoload
(defun +workspaces-load-tab-bar-data-h (_)
(defun +workspaces-load-tab-bar-data-h (&rest _)
"Restores the tab bar data of the workspace we have just switched to."
(tab-bar-tabs-set (persp-parameter 'tab-bar-tabs))
(setq tab-bar-closed-tabs (persp-parameter 'tab-bar-closed-tabs))

View File

@@ -107,7 +107,7 @@ stored in `persp-save-dir'.")
(add-to-list 'window-persistent-parameters '(winner-ring . t))
(add-hook! 'persp-before-deactivate-functions
(defun +workspaces-save-winner-data-h (_)
(defun +workspaces-save-winner-data-h (&rest _)
(when (and (bound-and-true-p winner-mode)
(get-current-persp))
(set-persp-parameter
@@ -116,7 +116,7 @@ stored in `persp-save-dir'.")
winner-pending-undo-ring)))))
(add-hook! 'persp-activated-functions
(defun +workspaces-load-winner-data-h (_)
(defun +workspaces-load-winner-data-h (&rest _)
(when (bound-and-true-p winner-mode)
(cl-destructuring-bind
(currents alist pending-undo-ring)
@@ -212,7 +212,9 @@ stored in `persp-save-dir'.")
(advice-add #'persp-asave-on-exit :around #'+workspaces-autosave-real-buffers-a)
;; Fix #1973: visual selection surviving workspace changes
(add-hook 'persp-before-deactivate-functions #'deactivate-mark)
(add-hook! 'persp-before-deactivate-functions
(defun +workspaces-disable-mark-after-switch-h (&rest _)
(deactivate-mark)))
;; Fix #1017: stop session persistence from restoring a broken posframe
(after! posframe

View File

@@ -1,4 +1,4 @@
;; -*- no-byte-compile: t; -*-
;;; ui/workspaces/packages.el
(package! persp-mode :pin "40e9993a9711cba5fb56dfec81a507fabeba9668")
(package! persp-mode :pin "f146ddccaf598feb402664bc6848b60321b2dc78")