From 120bf9048f689a15e52fe6470a2695048434f67a Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Mon, 11 Sep 2023 21:04:34 -0700 Subject: [PATCH] [oni-core] Add hydra to launch certain applications --- oni-core.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/oni-core.el b/oni-core.el index de23c5d..029d51d 100644 --- a/oni-core.el +++ b/oni-core.el @@ -123,6 +123,15 @@ _s_: String list" (region-beginning) (region-end)))) +(defhydra oni-core-applications-hydra (:color teal :hint nil) + " + ^^^Applications^^^ + ^^--------------------^^-----------------^^-------------- + _m_: Email (notmuch) _r_: RSS (elfeed) _i_: IRC (circe) " + ("m" notmuch) + ("r" elfeed) + ("i" circe)) + (add-to-list 'auto-save-file-name-transforms `(".*" ,oni-core--auto-save-directory t) :append) @@ -194,6 +203,7 @@ _s_: String list" (global-set-key (kbd "C-c (") '("Embrace Commander" . embrace-commander)) (global-set-key (kbd "C-c q") '("Unfill Paragraph" . oni-core-unfill-paragraph)) (global-set-key (kbd "C-c s") '("Sort and Align Commands" . oni-sort-and-align-hydra/body)) +(global-set-key (kbd "C-c a") '("Applications" . oni-core-applications-hydra/body)) (global-set-key (kbd "C-c l") 'imenu) (global-set-key (kbd "C-x C-b") '("List Buffers" . ibuffer-jump)) (global-set-key (kbd "C-x M-f") 'ffap)