[tab-bar-helpers] Add Mastodon tab bar runner

This commit is contained in:
Marcel Kapfer 2022-11-25 17:18:40 +01:00
parent 1873551b87
commit fc13c6c69c
Signed by: mmk2410
GPG key ID: CADE6F0C09F21B09

View file

@ -67,6 +67,11 @@
#'(lambda () #'(lambda ()
(find-file "~/org/projects.org")))) (find-file "~/org/projects.org"))))
(defun mmk2410/tab-bar-run-mastodon ()
"Switch or create a tab running mastodon.el."
(interactive)
(mmk2410/tab-bar-switch-or-create "Mastodon" #'mastodon))
(defhydra mmk2410/tab-bar (:color teal :hint nil) (defhydra mmk2410/tab-bar (:color teal :hint nil)
" "
^Apps^ ^Helpers^ ^Misc ^Apps^ ^Helpers^ ^Misc
@ -84,6 +89,7 @@
("j" mmk2410/tab-bar-run-journal) ("j" mmk2410/tab-bar-run-journal)
("m" mmk2410/tab-bar-run-mail) ("m" mmk2410/tab-bar-run-mail)
("p" mmk2410/tab-bar-run-projects) ("p" mmk2410/tab-bar-run-projects)
("M" mmk2410/tab-bar-run-mastodon)
("RET" tab-bar-select-tab-by-name) ("RET" tab-bar-select-tab-by-name)
("SPC" mmk2410/tab-bar-new-named-tab) ("SPC" mmk2410/tab-bar-new-named-tab)
("f" tab-bar-switch-to-recent-tab) ("f" tab-bar-switch-to-recent-tab)