This post covers the following sections from my init.

  • Helm Hydra


Preamble

Emacs is old school. You're either new to it - which means you wouldn't be here unless it was your type of thing - or you know what you're looking for. In either case, go to the side bar of this page and click on the 'Emacs' tag. Then read the posts y date from oldest to newest.

In the last emacs post I covered lines 2407 - 2558. This post covers lines 2563 - 2615. I include the lines for anyone that wants to patch together the entire init from start to finish. The lines won't always match up because I take stuff out when I'm in the init.

Helm Hydra

Perhaps I posted this one earlier or could have. It would have gone well in this post here.

This Helm Hydra has no reference to the Helm package, mentioned in earlier posts. It's just the only name that aptly describes the function which is to offer access to the other hydras. Here's the code:



(defvar helm-hydra-title (with-fileicon "harbour" "TAKE THE HELM"))
;generate hydra
(pretty-hydra-define hydra-helm (:title helm-hydra-title :quit-key "q" :color teal )
(
"GROUP A"
(
    ("b" Browse-Web_/body "Use Browser")
    ("p" pandoc-main-hydra/body "Pandoc")
    ("d" Directories_/body "Directories")
;    ("D" DATA-SCIENCE/body "Data Science Hydra" )
    ("e" Editing___/body   "Editing")
    ("s" Search-Files/body   "Searching Files and Text")
    ("f" Frames-Buffers/body "Managing Frames and Buffers" )
    ("n" Parentheses_/body "Parentheses")
    ("P" Print-Files/body "Printing and Exporting")
    ("R" Region___/body "Marking Region")

);end basic
"GROUP B"
(
    ("y" Yasnippet/body "Yasnippet")
    ("x" Windows-Exe/body "Windows Program Launcher")
    ("z" Org-Agenda/body "Org Agenda")
    ("o" Org-Central/body "Org Central")
    ("E" Org-Editor/body "Org Editor")
    ("$" Org-Clocking/body "Org Clocking")
    ("h" blog-manager/body "Blog Manager")
    ("w" Web-Development/body "Web Development")
    ("l" Shell-Central/body "Shell Management" )
    ("g" Git-Central/body "Git Manager" )
);end specific
"GROUP C"
(
;Bookmarks/body
;     ("v" desktop+-load "Select Saved Working Environment")
;     ("V" desktop+-create "Save Working Environment")
;     ("j" helm-bookmarks "Jump To Bookmarks")
    ("a" Appearance_/body "Appearance")
    ("j" Projectile/body "Projectile" )
    ("m" Bookmarks/body "Bookmarks")
    ("c" clm/toggle-command-log-buffer "Show Command Log" :toggle t)
;     ("c" company-mode "Company Mode" :toggle t)
    ("t" toggle-company-idle-delay "Toggle Company Dropdown" :toggle t)
    ("?" miscellaneous/body "Miscellaneous Manager")
    ("\;" Mingus-Player/body "Mingus Music Player" );
    ("!" exit-poseidon "Exit Emacs")
    ("r" restart-poseidon "Restart Emacs" )
    ("<SPC>" nil "Quit" :color blue)
);end other options
);end hydra body
);end pretty-hydra-find-files
(bind-key "<C-m> h" 'hydra-helm/body)

emacs posiedon configuration hydra helm hydra code


That’s all for now…

comments powered by Disqus