diff --git a/packages/mmk2410-tab-bar-helpers.el b/packages/mmk2410-tab-bar-helpers.el index 8981ec5..1737305 100644 --- a/packages/mmk2410-tab-bar-helpers.el +++ b/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) - " - ^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 -" - ("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)) +(defhydra mmk2410/tab-bar (:color teal) + "My tab-bar helpers" + ("a" mmk2410/tab-bar-run-agenda "Agenda") + ("e" mmk2410/tab-bar-run-elfeed "RSS (Elfeed)") + ("i" mmk2410/tab-bar-run-irc "IRC (erc)") + ("j" mmk2410/tab-bar-run-journal "Journal") + ("m" mmk2410/tab-bar-run-mail "Mail") + ("p" mmk2410/tab-bar-run-projects "Projects")) (provide 'mmk2410-tab-bar-helpers)