Move tab-bar specific apps to under <TAB> key

Unclear which apps opened a new tab-bar workspace, and which ones
didn't, so they are now under the TAB key.
This commit is contained in:
Howard Abrams 2026-02-23 21:56:51 -08:00
parent 6ed321c321
commit 91a9133c3b
6 changed files with 37 additions and 11 deletions

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" . ,(lambda () (interactive) (ha-tab-bar-new "mastodon" #'mastodon)))) (ha-leader "<tab> 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."
@ -162,7 +162,9 @@ 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" . ,(lambda () (interactive) (ha-tab-bar-new "telega" #'telega))))) (ha-leader "<tab> 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.
@ -215,12 +217,26 @@ And my [[https://gitlab.com/howardabrams/emacs-ironsworn][new Ironsworn project]
The project is interesting, and I should record a tutorial how to use it. The project is interesting, and I should record a tutorial how to use it.
* Playing Music * Playing Music
After building a NAS out of a Raspberry Pi to hold my /ripped/ CD collection, let’s control my playlists from Emacs. After building a NAS out of a Raspberry Pi to hold my /ripped/ CD collection, let’s control my playlists from Emacs.
A more /rich/ experience than the [[https://github.com/isamert/empv.el][empv]] project is ⁨Álvaro’s [[https://github.com/xenodium/ready-player][ready-player]]. First install [[https://mpv.io/][mpv]]:
A more /rich/ experience than the [[https://github.com/isamert/empv.el][empv]] project is [[https://github.com/xenodium/ready-player][ready-player]]. First install [[https://mpv.io/][mpv]]:
#+BEGIN_SRC sh #+BEGIN_SRC sh
brew install mpv brew install mpv
#+END_SRC #+END_SRC
The =mpv= executable comes on my Linux, but I need to installed the requisite apps in order to mount my library:
#+BEGIN_SRC sh
sudo apt install cifs-utils -y
#+END_SRC
And create the mount points:
And update our [[/sudo:/etc/fstab][/etc/fstab]] file with:
#+BEGIN_SRC conf
//myserver/myshare /mnt/smbshare cifs credentials=/root/.smbcredentials,iocharset=utf8,file_mode=0777,dir_mode=0777 0 0
#+END_SRC
And make sure we can play it: And make sure we can play it:
#+BEGIN_SRC sh #+BEGIN_SRC sh

View file

@ -1271,7 +1271,8 @@ Also, as [[https://www.bytedude.com/gpg-in-emacs/][bytedude]] mentions, I need t
(auth-source-cache-expiry nil) (auth-source-cache-expiry nil)
:config :config
(setenv "GPG_AGENT_INFO" nil) ;; Set this to nil if you are not running gpg-agent service
;; (setenv "GPG_AGENT_INFO" nil)
(ignore-error (epa-file-enable))) (ignore-error (epa-file-enable)))
#+end_src #+end_src

View file

@ -131,8 +131,11 @@ Also, let's do some basic configuration of Emacs' mail system:
#+end_src #+end_src
Create a special mail perspective: Create a special mail perspective:
#+begin_src emacs-lisp :tangle no #+begin_src emacs-lisp
(ha-leader "a M" `("mail" . ,(ha-tab-bar-new "mail" #'notmuch))) (ha-leader
"<tab> N" `("notmuch mail" .
,(lambda () (interactive)
(ha-tab-bar-new "mail" #'notmuch))))
#+end_src #+end_src
* Configuration * Configuration
Do I want to sign messages by default? Nope. Do I want to sign messages by default? Nope.

View file

@ -87,7 +87,9 @@ According to Ben Maughan and [[http://pragmaticemacs.com/emacs/to-eww-or-not-to-
And some global keys to display them in the =apps= menu: And some global keys to display them in the =apps= menu:
#+begin_src emacs-lisp #+begin_src emacs-lisp
(ha-leader "a f" `("feed reader" . ,(ha-tab-bar-new "elfeed" #'elfeed))) (ha-leader "<tab> F" `("feed reader" .
,(lambda () (interactive)
(ha-tab-bar-new "feeds" #'elfeed))))
#+end_src #+end_src
* The Feeds :elfeed: * The Feeds :elfeed:
The [[https://github.com/remyhonig/elfeed-org][elfeed-org]] project configures =elfeed= to read the RSS feeds from an Org file … like this one! The [[https://github.com/remyhonig/elfeed-org][elfeed-org]] project configures =elfeed= to read the RSS feeds from an Org file … like this one!

View file

@ -102,7 +102,8 @@ Quick way to start and jump to my IRC world.
And some global keys to display them: And some global keys to display them:
#+begin_src emacs-lisp #+begin_src emacs-lisp
(ha-leader "a i" `("irc" . ,(ha-tab-bar-new "irc" #'ha-erc))) (ha-leader "<tab> I" `("irc" . ,(lambda () (interactive)
(ha-tab-bar-new "irc" #'ha-erc))))
#+end_src #+end_src
And a quick shortcuts to call it: And a quick shortcuts to call it:

View file

@ -15,6 +15,9 @@
;; ;;
;; Running: ;; Running:
;; sudo kanata --cfg ~/src/hamacs/laptop_keyboard.kbd ;; sudo kanata --cfg ~/src/hamacs/laptop_keyboard.kbd
;; Or:
;; sudo ~/.local/bin/kanata --cfg ~/src/hamacs/laptop_keyboard.kbd
(deflocalkeys-macos (deflocalkeys-macos
ì 13) ì 13)
@ -24,8 +27,8 @@
;; have to modify the code in the `defcfg' section below. ;; have to modify the code in the `defcfg' section below.
(defcfg (defcfg
;; linux-dev-names-include ("Apple Internal Keyboard / Trackpad") ;; macos-dev-names-include ("Apple Internal Keyboard / Trackpad")
macos-dev-names-include ("Apple Internal Keyboard / Trackpad")) linux-dev-names-include ("Apple Inc. Apple Internal Keyboard / Trackpad"))
;; What keys are we re-defining? This is my Macbook Pro layouts, as ;; What keys are we re-defining? This is my Macbook Pro layouts, as
;; both laptops are this hardware. ;; both laptops are this hardware.
@ -39,7 +42,7 @@
tab q w e r t y u i o p [ ] \ tab q w e r t y u i o p [ ] \
caps a s d f g h j k l ; ' ret caps a s d f g h j k l ; ' ret
lsft z x c v b n m , . / rsft lsft z x c v b n m , . / rsft
fn lctl lalt lmet spc rmet ralt) menu lctl lalt lmet spc rmet ralt)
(defvar (defvar
tap-time 200 tap-time 200