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

Update

Browse Source
This commit is contained in:
Zelong Kuang
2025-12-21 10:30:07 +11:00
parent c47c26e94d
commit fb9a913f80
4 changed files with 52 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/init-better-default.el
View File

@@ -55,6 +55,10 @@
(setq frame-title-format "Emacs: %b")
(setq custom-safe-themes t)
(setq-default tab-width 4
compilation-scroll-output t
indent-tabs-mode nil)
(setq ring-bell-function 'ignore)
(setq undo-limit 80000000
auto-save-default t

1
lisp/init-ui.el
View File

@@ -44,6 +44,7 @@
inhibit-startup-echo-area-message user-login-name
inhibit-default-init t
initial-scratch-message nil)
(unless (daemonp)
(advice-add #'display-startup-echo-area-message :override #'ignore))

90
lisp/init-workspace.el
View File

@@ -1,51 +1,53 @@
;; -*- 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)