68 lines
2.2 KiB
EmacsLisp
68 lines
2.2 KiB
EmacsLisp
|
;; -*- lexical-binding: t; -*-
|
||
|
|
|
||
|
|
(defun mmk2410/tab-bar-new-tab (name func)
|
||
|
|
(when (eq nil tab-bar-mode)
|
||
|
|
(tab-bar-mode))
|
||
|
|
(tab-bar-new-tab)
|
||
|
|
(tab-bar-rename-tab name)
|
||
|
|
(funcall func)
|
||
|
|
nil)
|
||
|
|
|
||
|
|
(defun mmk2410/tab-bar-tab-exists (name)
|
||
|
|
(member name
|
||
|
|
(mapcar #'(lambda (tab) (alist-get 'name tab))
|
||
|
|
(tab-bar-tabs))))
|
||
|
|
|
||
|
|
(defun mmk2410/tab-bar-switch-or-create (name func)
|
||
|
|
(if (mmk2410/tab-exists name)
|
||
|
|
(tab-bar-switch-to-tab name)
|
||
|
|
(mmk2410/new-tab name func)))
|
||
|
|
|
||
|
|
(defun mmk2410/tab-bar-run-elfeed ()
|
||
|
|
(interactive)
|
||
|
|
(mmk2410/tab-bar-switch-or-create "RSS" #'elfeed))
|
||
|
|
|
||
|
|
(defun mmk2410/tab-bar-run-mail ()
|
||
|
|
(interactive)
|
||
|
|
(mmk2410/tab-bar-switch-or-create "Mail"
|
||
|
|
#'(lambda ()
|
||
|
|
(mu4e-context-switch :name "Private")
|
||
|
|
(mu4e))))
|
||
|
|
|
||
|
|
(defun mmk2410/tab-bar-run-irc ()
|
||
|
|
(interactive)
|
||
|
|
(mmk2410/tab-bar-switch-or-create "IRC"
|
||
|
|
#'(lambda ()
|
||
|
|
(mmk2410/erc-connect)
|
||
|
|
(sit-for 1)
|
||
|
|
(switch-to-buffer "Libera.Chat"))))
|
||
|
|
|
||
|
|
(defun mmk2410/tab-bar-run-agenda ()
|
||
|
|
(interactive)
|
||
|
|
(mmk2410/tab-bar-switch-or-create "Agenda"
|
||
|
|
#'(lambda ()
|
||
|
|
(org-agenda nil "a"))))
|
||
|
|
|
||
|
|
(defun mmk2410/tab-bar-run-journal ()
|
||
|
|
(interactive)
|
||
|
|
(mmk2410/tab-bar-switch-or-create "Journal" #'org-journal-open-current-journal-file))
|
||
|
|
|
||
|
|
(defun mmk2410/tab-bar-run-projects ()
|
||
|
|
(interactive)
|
||
|
|
(mmk2410/tab-bar-switch-or-create "Projects"
|
||
|
|
#'(lambda ()
|
||
|
|
(find-file "~/org/work.projects.org"))))
|
||
|
|
|
||
|
|
(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"))
|
||
|
|
|
||
|
|
(global-set-key (kbd "C-c f") 'mmk2410/tab-bar/body)
|
||
|
|
|
||
|
|
(provide mmk2410/tab-bar-helpers)
|