[hydra] add commands for init, launch, dired-jump, save

contrapunctus/cp-org.el

@@ -136,7 +136,7 @@
 (defhydra cp-org (:color red)
   "Org"
   ("p" org-set-property "property" :color blue)
-  ("s" cp-org-src/body "source block" :color blue)
+  ("b" cp-org-src/body "source block" :color blue)
   ("t" cp-org-set-tags "tags" :color blue)
   ("e" (literate-elisp-load-file (buffer-file-name)) "eval buffer" :color blue)
 
@@ -152,6 +152,7 @@
   ("J" org-promote-subtree "promote")
   (":" org-demote-subtree "demote")
 
+  ("s" save-buffer "save" :color blue)
   ("m" magit-status "Magit" :color blue)
   ("u" contrapunctus-general/body "up" :color blue)
   ("G" elpher "Elpher" :color blue))

init.el

@@ -426,14 +426,17 @@ Return nil (and run `magit-status') if the user answers no."
   :commands defhydra)
 
 (defhydra contrapunctus-general (:color blue)
-  "Hailing frequencies open"
+  "What command?"
   ("c" chronometrist "chronometrist")
   ("G" elpher "elpher")
   ("o" cp-org/body "org")
   ("p" cp/prog-hydra "programming")
+  ("i" (find-file "~/.emacs.d/init.org") "open init")
+  ("l" launch-file "launch-file")
 
   ("s" save-buffer "save")
   ("k" (kill-buffer (current-buffer)) "kill")
+  ("d" dired-jump "dired-jump")
   ("E" toggle-debug-on-error "tdoe")
   ("Q" toggle-debug-on-quit "tdoq")
   ("m" magit-status "magit"))

init.org

@@ -580,14 +580,17 @@ Add these common operations to the hydra -
   :commands defhydra)
 
 (defhydra contrapunctus-general (:color blue)
-  "Hailing frequencies open"
+  "What command?"
   ("c" chronometrist "chronometrist")
   ("G" elpher "elpher")
   ("o" cp-org/body "org")
   ("p" cp/prog-hydra "programming")
+  ("i" (find-file "~/.emacs.d/init.org") "open init")
+  ("l" launch-file "launch-file")
 
   ("s" save-buffer "save")
   ("k" (kill-buffer (current-buffer)) "kill")
+  ("d" dired-jump "dired-jump")
   ("E" toggle-debug-on-error "tdoe")
   ("Q" toggle-debug-on-quit "tdoq")
   ("m" magit-status "magit"))