mmk2410/dot-emacs
1
0
Fork 0
Code Issues Pull requests Activity Actions

Compare commits

base: mmk2410:2221d868077de1d32c35b3cd51d1c8b1f962665e
Branches Tags
mmk2410:main
...
compare: mmk2410:b20f578afaed641a30d5fb76f28dcadac90f21ed
Branches Tags
mmk2410:main

2 commits
2221d86807 ... b20f578afa

Author SHA1 Message Date
Marcel Kapfer
b20f578afa
[tab-bar-helper] Make hydra a lot more beautiful 2022-03-30 16:54:22 +02:00
Marcel Kapfer
0e5c445840
[tab-bar-helpers] Add helper for creating a new tab with a given name 2022-03-30 16:53:26 +02:00
1 changed files with 27 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

35
packages/mmk2410-tab-bar-helpers.el
View file

@ -21,6 +21,11 @@
(interactive) (interactive)
(mmk2410/tab-bar-switch-or-create "RSS" #'elfeed)) (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 () (defun mmk2410/tab-bar-run-mail ()
(interactive) (interactive)
(mmk2410/tab-bar-switch-or-create (mmk2410/tab-bar-switch-or-create
@ -58,14 +63,28 @@
#'(lambda () #'(lambda ()
(find-file "~/org/work.projects.org")))) (find-file "~/org/work.projects.org"))))
(defhydra mmk2410/tab-bar (:color teal) (defhydra mmk2410/tab-bar (:color teal :hint nil)
"My tab-bar helpers" "
("a" mmk2410/tab-bar-run-agenda "Agenda") ^Apps^ ^Helpers^ ^Misc
("e" mmk2410/tab-bar-run-elfeed "RSS (Elfeed)") --^^^^^^---------------------------------------------
("i" mmk2410/tab-bar-run-irc "IRC (erc)") _a_: Agenda _RET_: Search _q_: Cancel
("j" mmk2410/tab-bar-run-journal "Journal") _e_: RSS (Elfeed) _SPC_: New
("m" mmk2410/tab-bar-run-mail "Mail") _i_: IRC (erc) _f_: Previous
("p" mmk2410/tab-bar-run-projects "Projects")) _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))
(provide 'mmk2410-tab-bar-helpers) (provide 'mmk2410-tab-bar-helpers)