From c438daa1906ad4da4ad8415e4e4f7169237ddcf9 Mon Sep 17 00:00:00 2001
From: contrapunctus <contrapunctus@disroot.org>
Date: Thu, 2 Dec 2021 10:22:56 +0530
Subject: [PATCH] [hydra] make hydra for literate-elisp

---
 init.org | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/init.org b/init.org
index 3892491..7aca254 100644
--- a/init.org
+++ b/init.org
@@ -1915,10 +1915,14 @@ With PREFIX argument and CMD not supplied - prompt for command."
   (interactive)
   (my-compile-project "Makefile" prefix "make -Bk tangle compile"))
 
+(defhydra my-literate-elisp-hydra (:color blue)
+  "Literate Elisp"
+  ("l" (literate-elisp-load (buffer-file-name)) "load")
+  ("b" (literate-elisp-byte-compile-file (buffer-file-name)) "byte-compile"))
 
 (my-defhydra my-org-hydra (:color blue)
   "Org"
-  ("L" (literate-elisp-load (buffer-file-name)) "literate-elisp-load")
+  ("L" my-literate-elisp-hydra/body "literate-elisp")
   ("p" org-set-property "property")
   ("l" my-org-hydra-block/body "source block")
   ("t" my-org-hydra-set-tags "tags")
@@ -2046,7 +2050,8 @@ With PREFIX argument and CMD not supplied - prompt for command."
 #+BEGIN_SRC emacs-lisp
 (defhydra my-cl-hydra-eval (:color blue)
   ("b" slime-eval-buffer "buffer")
-  ("e" slime-eval-defun  "defun"))
+  ("e" slime-eval-defun  "defun")
+  ("l" slime-eval-last-expression "last expression"))
 #+END_SRC
 *** help
 #+BEGIN_SRC emacs-lisp