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

Fix bug with tab-bar changes

Browse source
This commit is contained in:
Howard Abrams 2025-09-23 19:36:35 -07:00
parent 9a67d92054
commit 4456224988
3 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
ha-aux-apps.org
View file

@ -41,7 +41,7 @@ I would like a dedicate perspective to Mastodon, and I would like a leader key s
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package mastodon (use-package mastodon
:config :config
(ha-leader "a m" `("mastodon" . ,(ha-tab-bar-new "mastodon" #'mastodon))) (ha-leader "a m" `("mastodon" . ,(lambda () (interactive) (ha-tab-bar-new "mastodon" #'mastodon))))
(defun ha-mastodon-scroll-or-more () (defun ha-mastodon-scroll-or-more ()
"Scroll a window, and at the end, get more entries in timeline." "Scroll a window, and at the end, get more entries in timeline."
@ -175,7 +175,7 @@ I'm thinking the [[https://zevlg.github.io/telega.el/][Telega package]] would be
(when (fboundp 'evil-insert-state) (when (fboundp 'evil-insert-state)
(add-hook 'telega-chat-mode-hook 'evil-insert-state)) (add-hook 'telega-chat-mode-hook 'evil-insert-state))
(ha-leader "a t" `("telega" . ,(ha-tab-bar-new "telega" #'telega)))) (ha-leader "a t" `("telega" . ,(lambda () (interactive) (ha-tab-bar-new "telega" #'telega)))))
#+end_src #+end_src
For some reason, you need [[https://github.com/Fanael/rainbow-identifiers][rainbow-identifiers]] to work, oh, I guess the docs state this. For some reason, you need [[https://github.com/Fanael/rainbow-identifiers][rainbow-identifiers]] to work, oh, I guess the docs state this.

3
ha-config.org
View file

@ -958,6 +958,9 @@ Couple notes:
tab-bar-new-tab-choice "*dashboard*" ; buffer to show in new tabs tab-bar-new-tab-choice "*dashboard*" ; buffer to show in new tabs
tab-bar-tab-hints t ; show tab numbers tab-bar-tab-hints t ; show tab numbers
tab-bar-button-relief 0
tab-bar-button-margin '(40 . 1)
;; Jump to a tab by numbers (see the keybindings set later): ;; Jump to a tab by numbers (see the keybindings set later):
tab-bar-select-tab-modifiers '(super control)) tab-bar-select-tab-modifiers '(super control))
#+END_SRC #+END_SRC

3
ha-general.org
View file

@ -335,9 +335,8 @@ And the collection of useful operations:
"b O" '("other" . project-switch-buffer-to-other-window) "b O" '("other" . project-switch-buffer-to-other-window)
"b i" '("ibuffer" . ibuffer) "b i" '("ibuffer" . ibuffer)
"b I" '("ibuffer" . ibuffer-other-window) "b I" '("ibuffer" . ibuffer-other-window)
"b k" '("persp remove" . persp-remove-buffer)
"b N" '("new" . evil-buffer-new) "b N" '("new" . evil-buffer-new)
"b d" '("delete" . persp-kill-buffer*) "b d" '("delete" . kill-buffer)
"b r" '("revert" . revert-buffer) "b r" '("revert" . revert-buffer)
"b s" '("save" . save-buffer) "b s" '("save" . save-buffer)
"b S" '("save all" . evil-write-all) "b S" '("save all" . evil-write-all)