🚸 [tab-bar-helpers] Restyle/reorder hydra

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)