howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Got tab-bar mode working as well as old perspective code

Browse source
This commit is contained in:
Howard Abrams 2026-01-02 14:27:57 -08:00
parent b9f593caba
commit 9b2c7abd4e
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
ha-config.org
View file

@ -598,6 +598,7 @@ After using [[http://company-mode.github.io/][company]] for my completion back-
:init :init
(global-corfu-mode)) (global-corfu-mode))
#+end_src #+end_src
*** Snippets *** Snippets
Using [[https://github.com/joaotavora/yasnippet][yasnippet]] to expand templates into text: Using [[https://github.com/joaotavora/yasnippet][yasnippet]] to expand templates into text:
@ -1036,7 +1037,8 @@ And some shortcut keys from the =general= project:
"<tab> p" '("new project" . ha-tab-bar-new-project) "<tab> p" '("new project" . ha-tab-bar-new-project)
"<tab> n" '("new space" . ha-tab-bar-new) "<tab> n" '("new space" . ha-tab-bar-new)
"<tab> u" '("update names" . ha-tab-bar-update-names) "<tab> u" '("update names" . ha-tab-bar-update-names)
"<tab> d" '("delete space" . ha-tab-bar-delete)) "<tab> d" '("delete space" . ha-tab-bar-delete)
"<tab> `" '("recent" . tab-bar-switch-to-recent-tab))
(global-set-key (kbd "s-C-t") 'ha-tab-bar-new) (global-set-key (kbd "s-C-t") 'ha-tab-bar-new)
(global-set-key (kbd "s-C-[") 'tab-bar-switch-to-prev-tab) (global-set-key (kbd "s-C-[") 'tab-bar-switch-to-prev-tab)
@ -1070,7 +1072,11 @@ I want to quickly jump, by the number shown on the tab, to that grouping. The fo
;; match the tab labels by incrementing it by one ... unless, ;; match the tab labels by incrementing it by one ... unless,
;; we are at 10, where we use 0 instead: ;; we are at 10, where we use 0 instead:
(format "<tab> %d" (if (= indx 9) 0 (1+ indx))) (format "<tab> %d" (if (= indx 9) 0 (1+ indx)))
`(,name . (lambda () (interactive) (tab-bar-select-tab ,(1+ indx)))))))) `(,name . (lambda () (interactive)
"Switch to a tab-bar by number"
(setq ha-tab-bar-previous
(tab-bar-tab-name-current))
(tab-bar-select-tab ,(1+ indx))))))))
#+END_SRC #+END_SRC
Any time I create or delete a new tab, we can call =ha-tab-bar-update-names=: Any time I create or delete a new tab, we can call =ha-tab-bar-update-names=: