BirDt/theurgy
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Comments

Browse source
This commit is contained in:
BirDt_ 2025-08-20 22:22:49 +08:00
parent e2cdbb2959
commit df29b3c7c8
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
ui.el
View file

@ -99,7 +99,7 @@
(setq tab-bar-new-tab-choice "*enlight*");; buffer to show in new tabs (setq tab-bar-new-tab-choice "*enlight*");; buffer to show in new tabs
(setq tab-bar-tab-hints t) ;; show tab numbers (setq tab-bar-tab-hints t) ;; show tab numbers
(setq tab-bar-format '(tab-bar-format-tabs tab-bar-separator)) ;; elements to include in bar (setq tab-bar-format '(tab-bar-format-tabs tab-bar-separator)) ;; elements to include in bar
(defvar tab-bar-select-tab-hook nil "Hook for `tab-bar-select-tab'") (defvar tab-bar-select-tab-hook nil "Hook for `tab-bar-select-tab'") ;; Hook for tab change, since it doesn't exist by default
(advice-add 'tab-bar-select-tab :after (lambda (x) (run-hooks 'tab-bar-select-tab-hook)))) (advice-add 'tab-bar-select-tab :after (lambda (x) (run-hooks 'tab-bar-select-tab-hook))))
;; Hideshow ;; Hideshow

2
userland/projects.el
View file

@ -49,7 +49,7 @@
(whaler :action (lambda (dir) (whaler :action (lambda (dir)
(find-file (get-project-default-file dir)) (find-file (get-project-default-file dir))
(tab-rename (file-name-nondirectory (string-remove-suffix "/" dir))) (tab-rename (file-name-nondirectory (string-remove-suffix "/" dir)))
(tab-bar-change-tab-group (concat "project: " dir)) (tab-bar-change-tab-group (concat "project: " dir)) ;; We use the tab group name to store the project working directory
(neotree-dir dir)))) (neotree-dir dir))))
(defun theurgy-swap-to-tab-project () (defun theurgy-swap-to-tab-project ()