zelongk/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Re-enable tabspaces

Browse Source
This commit is contained in:
Zelong Kuang
2025-12-21 11:38:01 +11:00
parent 119d18f93c
commit 97f00381c4
1 changed files with 44 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

90
lisp/init-workspace.el
View File

@@ -1,53 +1,51 @@
;; -*- lexical-binding: t; -*-
(use-package tabspaces
:functions tabspaces-mode
:hook (elpaca-after-init . tabspaces-mode)
:custom
(tab-bar-show nil)
;; (use-package tabspaces
;; :functions tabspaces-mode
;; :hook (elpaca-after-init . tabspaces-mode)
;; :custom
;; (tab-bar-show nil)
(tabspaces-use-filtered-buffers-as-default t)
(tabspaces-default-tab "Default")
(tabspaces-remove-to-default t)
(tabspaces-include-buffers '("*scratch*" "*Messages*"))
(tabspaces-exclude-buffers '("*eat*" "*vterm*" "*shell*" "*eshell*"))
;; sessions
(tabspaces-session t)
(tabspaces-session-auto-restore t)
(tabspaces-keymap-prefix "C-c w")
:config
(with-no-warnings
;; Filter Buffers for Consult-Buffer
(with-eval-after-load 'consult
;; hide full buffer list (still available with "b" prefix)
(consult-customize consult--source-buffer :hidden t :default nil)
;; set consult-workspace buffer list
(defvar consult--source-workspace
(list :name "Workspace Buffer"
:narrow ?w
:history 'buffer-name-history
:category 'buffer
:state #'consult--buffer-state
:default t
:items (lambda () (consult--buffer-query
:predicate #'tabspaces--local-buffer-p
:sort 'visibility
:as #'buffer-name)))
"Set workspace buffer list for consult-buffer.")
(add-to-list 'consult-buffer-sources 'consult--source-workspace))
;; (tabspaces-use-filtered-buffers-as-default t)
;; (tabspaces-default-tab "Default")
;; (tabspaces-remove-to-default t)
;; (tabspaces-include-buffers '("*scratch*" "*Messages*"))
;; (tabspaces-exclude-buffers '("*eat*" "*vterm*" "*shell*" "*eshell*"))
;; ;; sessions
;; (tabspaces-session t)
;; (tabspaces-session-auto-restore t)
;; (tabspaces-keymap-prefix "C-c w")
;; :config
;; (with-no-warnings
;; ;; Filter Buffers for Consult-Buffer
;; (with-eval-after-load 'consult
;; ;; hide full buffer list (still available with "b" prefix)
;; (consult-customize consult--source-buffer :hidden t :default nil)
;; ;; set consult-workspace buffer list
;; (defvar consult--source-workspace
;; (list :name "Workspace Buffer"
;; :narrow ?w
;; :history 'buffer-name-history
;; :category 'buffer
;; :state #'consult--buffer-state
;; :default t
;; :items (lambda () (consult--buffer-query
;; :predicate #'tabspaces--local-buffer-p
;; :sort 'visibility
;; :as #'buffer-name)))
;; "Set workspace buffer list for consult-buffer.")
;; (add-to-list 'consult-buffer-sources 'consult--source-workspace))
(defun my-tabspaces-delete-childframe (&rest _)
"Delete all child frames."
(ignore-errors
(posframe-delete-all)))
(advice-add #'tabspaces-save-session :before #'my-tabspaces-delete-childframe)
;; (defun my-tabspaces-delete-childframe (&rest _)
;; "Delete all child frames."
;; (ignore-errors
;; (posframe-delete-all)))
;; (advice-add #'tabspaces-save-session :before #'my-tabspaces-delete-childframe)
;; (defun my-tabspaces-burry-window (&rest _)
;; "Burry *Messages* buffer."
;; (ignore-errors
;; (quit-windows-on messages-buffer-name)))
;; (advice-add #'tabspaces-restore-session :after #'my-tabspaces-burry-window)))
(defun my-tabspaces-burry-window (&rest _)
"Burry *Messages* buffer."
(ignore-errors
(quit-windows-on messages-buffer-name)))
(advice-add #'tabspaces-restore-session :after #'my-tabspaces-burry-window)))
(provide 'init-workspace)