configure hydra from a table

config.org

Hydra

(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)

Hydras

Commonly visited files

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)