diff --git a/packages/mmk2410-tab-bar-helpers.el b/packages/mmk2410-tab-bar-helpers.el index 826a056..341466c 100644 --- a/packages/mmk2410-tab-bar-helpers.el +++ b/packages/mmk2410-tab-bar-helpers.el @@ -67,16 +67,20 @@ #'(lambda () (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) " - ^Apps^ ^Helpers^ ^Misc ---^^^^^^--------------------------------------------- - _a_: Agenda _RET_: Search _q_: Cancel - _e_: RSS (Elfeed) _SPC_: New - _i_: IRC (erc) _f_: Previous - _j_: Journal _Q_: Close - _m_: Mail - _p_: Projects + ^Apps^ ^Org^ ^Helpers^ ^Misc +--^^^^^^----------------------------------------------------------------- + _e_: RSS (Elfeed) _a_: Agenda _RET_: Search _q_: Cancel + _m_: Mail _j_: Journal _SPC_: New + _i_: IRC (erc) _p_: Projects _f_: Previous Tab + _M_: Mastodon _Q_: Close Tab + " ("a" mmk2410/tab-bar-run-agenda) ("e" mmk2410/tab-bar-run-elfeed) @@ -84,6 +88,7 @@ ("j" mmk2410/tab-bar-run-journal) ("m" mmk2410/tab-bar-run-mail) ("p" mmk2410/tab-bar-run-projects) + ("M" mmk2410/tab-bar-run-mastodon) ("RET" tab-bar-select-tab-by-name) ("SPC" mmk2410/tab-bar-new-named-tab) ("f" tab-bar-switch-to-recent-tab)