(use-package hydra)
(use-package use-package-hydra)
(defun invoke-hydra ()
(interactive)
(counsel-M-x "hydra-.*/body "))
(global-set-key (kbd "C-c h") #'invoke-hydra)
This seems like a decent demonstration of literate programming. Add a row to this table, then eval the defhydra block.
key | path | name |
---|---|---|
c | ~/.config/emacs/config.org | main config |
N | ~/Sync/OneDrive/Notes/NOTES.org | NOTES.org |
n | ~/Sync/GDrive/Notes/Notes.org | Work notes |
k | ~/Sync/GDrive/Notes/DMP.org | Krux work |
p | ~/.config/emacs/personal.org | personal config |
r | ~/Synt/ST/Notes/Cookbook.org | cookbook |
s | ~/Sync/ST/Notes/SLUMOS.org | SLUMOS.org |
w | ~/.config/emacs/work.org | work config |
(cl-loop for row in table
do
(print (list (car row) (list 'find-file (elt row 1)) (elt row 2) :column "File Shortcuts")))
(defhydra hydra-commonly-visited-files-shortcuts (:color blue)
<<table-to-find-file-heads(table=commonly-visited-files-shortcuts)>>)
(global-set-key (kbd "C-c v") #'hydra-commonly-visited-files-shortcuts/body)