packages/mmk2410-tab-bar-helpers.el

@@ -21,11 +21,6 @@
   (interactive)
   (mmk2410/tab-bar-switch-or-create "RSS" #'elfeed))
 
-(defun mmk2410/tab-bar-new-named-tab (name)
-  (interactive "sTab Name: ")
-  (tab-bar-new-tab)
-  (tab-bar-rename-tab name))
-
 (defun mmk2410/tab-bar-run-mail ()
   (interactive)
   (mmk2410/tab-bar-switch-or-create
@@ -63,28 +58,14 @@
    #'(lambda ()
        (find-file "~/org/work.projects.org"))))
 
-(defhydra mmk2410/tab-bar (:color teal :hint nil)
+(defhydra mmk2410/tab-bar (:color teal)
-  "
+  "My tab-bar helpers"
-  ^Apps^               ^Helpers^        ^Misc
+  ("a" mmk2410/tab-bar-run-agenda "Agenda")
---^^^^^^---------------------------------------------
+  ("e" mmk2410/tab-bar-run-elfeed "RSS (Elfeed)")
-  _a_: Agenda          _RET_: Search    _q_: Cancel
+  ("i" mmk2410/tab-bar-run-irc "IRC (erc)")
-  _e_: RSS (Elfeed)    _SPC_: New
+  ("j" mmk2410/tab-bar-run-journal "Journal")
-  _i_: IRC (erc)       _f_: Previous
+  ("m" mmk2410/tab-bar-run-mail "Mail")
-  _j_: Journal         _Q_: Close
+  ("p" mmk2410/tab-bar-run-projects "Projects"))
-  _m_: Mail
-  _p_: Projects
-"
-  ("a" mmk2410/tab-bar-run-agenda)
-  ("e" mmk2410/tab-bar-run-elfeed)
-  ("i" mmk2410/tab-bar-run-irc)
-  ("j" mmk2410/tab-bar-run-journal)
-  ("m" mmk2410/tab-bar-run-mail)
-  ("p" mmk2410/tab-bar-run-projects)
-  ("RET" tab-bar-select-tab-by-name)
-  ("SPC" mmk2410/tab-bar-new-named-tab)
-  ("f" tab-bar-switch-to-recent-tab)
-  ("Q" tab-bar-close-tab)
-  ("q" nil))
 
 (provide 'mmk2410-tab-bar-helpers)