From 23db3f4f7c4755f7b6115f67ca7407b4e5513686 Mon Sep 17 00:00:00 2001
From: Adrian Kummerlaender
Date: Tue, 16 Jun 2020 22:01:54 +0200
Subject: Add basic Org mode menu based on Hydra

---
 gui/conf/init.el | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'gui/conf/init.el')

diff --git a/gui/conf/init.el b/gui/conf/init.el
index 3209653..215b95b 100644
--- a/gui/conf/init.el
+++ b/gui/conf/init.el
@@ -67,6 +67,9 @@
   (setq doom-modeline-vcs-max-length 24)
   (setq doom-modeline-minor-modes t))
 
+(use-package hydra
+  :ensure t)
+
 (use-package evil
   :ensure t
   :init
@@ -179,9 +182,20 @@
   (add-hook 'org-mode-hook 'evil-org-mode)
   (evil-org-set-key-theme '(navigation insert textobjects additional todo)))
 
+(defhydra hydra-org-mode ()
+  "Org mode"
+  ("e" org-babel-execute-buffer "Execute buffer" :column "Babel")
+  ("t" org-babel-tangle         "Tangle"         :column "Babel")
+
+  ("i" org-toggle-inline-images "Toggle images"  :column "Preview")
+  ("l" org-latex-preview        "Toggle LaTeX"   :column "Preview")
+
+  ("q" nil "Exit menu" :column "Other"))
+
 (evil-define-key 'normal org-mode-map
   "J" 'org-next-visible-heading
   "K" 'org-previous-visible-heading
+  "m" 'hydra-org-mode/body
   (kbd "<return>") 'org-open-at-point)
 
 (use-package ivy
-- 
cgit v1.2.3