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
2026-02-22 20:44:07 +11:00
parent eece95c95e
commit b1cc14a607
6 changed files with 62 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/init-bindings.el
View File

@@ -15,6 +15,6 @@
(global-set-key (kbd "C-c q r") #'restart-emacs) (global-set-key (kbd "C-c q r") #'restart-emacs)
(global-set-key (kbd "C-c C-c") #'compile) (global-set-key (kbd "C-c C-c") #'compile)
(global-set-key (kbd "C-x C-b") #'ibuffer) ;; (global-set-key (kbd "C-x C-b") #'ibuffer)
(provide 'init-bindings) (provide 'init-bindings)

2
lisp/init-completion.el
View File

@@ -150,7 +150,7 @@
("M-g k" . consult-keep-lines) ("M-g k" . consult-keep-lines)
("M-g u" . consult-focus-lines) ("M-g u" . consult-focus-lines)
("C-x C-r" . consult-recent-file) ("C-x C-r" . consult-recent-file)
("C-x b" . consult-buffer) ("C-x B" . consult-buffer)
("M-g e" . consult-isearch-history) ("M-g e" . consult-isearch-history)
:map isearch-mode-map :map isearch-mode-map

3
lisp/init-llm.el
View File

@@ -14,4 +14,7 @@
(use-package gptel-magit (use-package gptel-magit
:hook (magit-mode . gptel-magit-install)) :hook (magit-mode . gptel-magit-install))
(use-package gptel-agent
:config (gptel-agent-update))
(provide 'init-llm) (provide 'init-llm)

1
lisp/init-ui.el
View File

@@ -32,6 +32,7 @@
doric-wind doric-wind
doric-beach doric-beach
doric-earth doric-earth
doric-water
doric-valley)) doric-valley))
(loaded (seq-random-elt themes))) (loaded (seq-random-elt themes)))
(load-theme loaded :no-confirm))) (load-theme loaded :no-confirm)))

2
lisp/init-utils.el
View File

@@ -37,7 +37,7 @@
(pdf-tools-install)) (pdf-tools-install))
(use-package keycast (use-package keycast
:hook (elpaca-after-init . keycast-tab-bar-mode) :hook (elpaca-after-init . keycast-mode-line-mode)
:config :config
(setq keycast-mode-line-remove-tail-elements nil)) (setq keycast-mode-line-remove-tail-elements nil))

103
lisp/init-workspace.el
View File

@@ -3,58 +3,65 @@
(use-package project) (use-package project)
(use-package tab-bar ;; (use-package tab-bar
:ensure nil ;; :ensure nil
:init ;; :init
(tab-bar-mode t) ;; (tab-bar-mode t)
(setq tab-bar-new-tab-choice "*scratch*") ;; buffer to show in new tabs ;; (setq tab-bar-new-tab-choice "*scratch*") ;; buffer to show in new tabs
(setq tab-bar-close-button-show nil) ;; hide tab close / X button ;; (setq tab-bar-close-button-show nil) ;; hide tab close / X button
(setq tab-bar-show 1) ;; hide bar if <= 1 tabs open ;; (setq tab-bar-show 1) ;; hide bar if <= 1 tabs open
(setq tab-bar-format '(tab-bar-format-tabs tab-bar-separator)) ;; (setq tab-bar-format '(tab-bar-format-tabs tab-bar-separator))
(setq tab-bar-tab-hints t)) ;; (setq tab-bar-tab-hints t))
(use-package tabspaces ;; (use-package tabspaces
:functions tabspaces-mode ;; :functions tabspaces-mode
:commands (tabspaces-switch-or-create-workspace ;; :commands (tabspaces-switch-or-create-workspace
tabspaces-open-or-create-project-and-workspace) ;; tabspaces-open-or-create-project-and-workspace)
:hook (elpaca-after-init . tabspaces-mode) ;; :hook (elpaca-after-init . tabspaces-mode)
:bind (:map tabspaces-mode-map ;; :bind (:map tabspaces-mode-map
([remap project-switch-project] . tabspaces-project-switch-project-open-file)) ;; ([remap project-switch-project] . tabspaces-project-switch-project-open-file))
:bind (:map tabspaces-command-map ;; :bind (:map tabspaces-command-map
("l" . tabspaces-restore-session) ;; ("l" . tabspaces-restore-session)
("s" . tabspaces-save-session) ;; ("s" . tabspaces-save-session)
("TAB" . tabspaces-switch-or-create-workspace)) ;; ("TAB" . tabspaces-switch-or-create-workspace))
:custom ;; :custom
(tabspaces-use-filtered-buffers-as-default t) ;; (tabspaces-use-filtered-buffers-as-default t)
(tabspaces-default-tab "Default") ;; (tabspaces-default-tab "Default")
(tabspaces-remove-to-default t) ;; (tabspaces-remove-to-default t)
(tabspaces-include-buffers '("*scratch*" "*Messages*")) ;; (tabspaces-include-buffers '("*scratch*" "*Messages*"))
(tabspaces-exclude-buffers '("*eat*" "*vterm*" "*shell*" "*eshell*")) ;; (tabspaces-exclude-buffers '("*eat*" "*vterm*" "*shell*" "*eshell*"))
;; sessions ;; ;; sessions
(tabspaces-session t) ;; (tabspaces-session t)
;; (tabspaces-session-auto-restore t) ;; ;; (tabspaces-session-auto-restore t)
(tabspaces-keymap-prefix "C-c TAB") ;; (tabspaces-keymap-prefix "C-c TAB")
(tab-bar-new-tab-choice "default") ;; (tab-bar-new-tab-choice "default")
(with-eval-after-load 'consult ;; (with-eval-after-load 'consult
;; hide full buffer list (still available with "b" prefix) ;; ;; hide full buffer list (still available with "b" prefix)
(consult-customize consult--source-buffer :hidden nil :default nil) ;; (consult-customize consult--source-buffer :hidden nil :default nil)
;; set consult-workspace buffer list ;; ;; set consult-workspace buffer list
(defvar consult--source-workspace ;; (defvar consult--source-workspace
(list :name "Workspace Buffers" ;; (list :name "Workspace Buffers"
:narrow ?w ;; :narrow ?w
:history 'buffer-name-history ;; :history 'buffer-name-history
:category 'buffer ;; :category 'buffer
:state #'consult--buffer-state ;; :state #'consult--buffer-state
:default t ;; :default t
:items (lambda () (consult--buffer-query ;; :items (lambda () (consult--buffer-query
:predicate #'tabspaces--local-buffer-p ;; :predicate #'tabspaces--local-buffer-p
:sort 'visibility ;; :sort 'visibility
:as #'buffer-name))) ;; :as #'buffer-name)))
"Set workspace buffer list for consult-buffer.") ;; "Set workspace buffer list for consult-buffer.")
(add-to-list 'consult-buffer-sources 'consult--source-workspace))) ;; (add-to-list 'consult-buffer-sources 'consult--source-workspace)))
(use-package beframe
:hook elpaca-after-init
:bind (("C-x b" . beframe-switch-buffer)
("C-x C-b" . beframe-buffer-menu))
:config
(setq beframe-functions-in-frames '(project-prompt-project-dir)))
(provide 'init-workspace) (provide 'init-workspace)