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

Quickly switch to a "default" tab.

Browse source
This commit is contained in:
Howard Abrams 2026-02-04 10:19:08 -08:00
parent 2150fb9a42
commit d1ed7e892d
1 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
ha-config.org
View file

@ -956,7 +956,6 @@ Since I wasn’t using all the features that [[https://github.com/bbatsov/projec
:config :config
(ha-leader (ha-leader
"p" '(:ignore t :which-key "projects") "p" '(:ignore t :which-key "projects")
"p W" '("initialize workspace" . ha-workspace-initialize)
"p p" '("switch project" . ha-tab-bar-new-project) "p p" '("switch project" . ha-tab-bar-new-project)
"p !" '("run cmd in project root" . project-shell-command) "p !" '("run cmd in project root" . project-shell-command)
@ -1007,8 +1006,8 @@ New workspace is a tab with a specific name that opens up a specific buffer or a
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun ha-tab-bar-new (name &optional bff) (defun ha-tab-bar-new (name &optional bff)
"Create a new tab with a NAME. "Create a new tab with a NAME.
With a non-nil IFF, call IFF as a function or switch With a non-nil BFF, call BFF as a function or switch
to the IFF buffer or the files listed." to the BFF buffer or the files listed."
(interactive "sWorkspace Name: ") (interactive "sWorkspace Name: ")
(tab-bar-switch-to-tab name) (tab-bar-switch-to-tab name)
(when bff (when bff
@ -1058,6 +1057,15 @@ If we close a tab that is a project, we want to close all the buffers associated
(buffer-list))) (buffer-list)))
#+end_src #+end_src
And let’s make one tab to be /special/:
#+BEGIN_SRC emacs-lisp
(defun ha-switch-to-special ()
"Change the perspective to the Sprint/Notes project."
(interactive)
(tab-bar-switch-to-tab "main"))
#+END_SRC
And some shortcut keys from the =general= project: And some shortcut keys from the =general= project:
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
@ -1068,6 +1076,7 @@ And some shortcut keys from the =general= 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> w" '("special space" . ha-switch-to-special)
"<tab> `" '("recent" . tab-bar-switch-to-recent-tab)) "<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)