Helm Hydra

You can open many hydras from one central hydra and arbitrarily name it the "Helm-Hydra".



(if (eq check-windows 1)
(progn
(setq helm-hydra-title (with-fileicon "harbour" "TAKE THE WINDOWS 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 Command")
    ("e" Editing___/body   "Editing")
    ("s" Search-Files/body   "Searching Files and Text")
    ("f" Frames-Windows/body "Managing Frames and Buffers" )
    ("t" buffers-hydra/body "Managing Tabs and Buffers" )
    ("n" Parentheses_/body "Parentheses")
    ("P" Print-Files/body "Printing and Exporting")
    ("R" Region___/body "Marking Region" :color blue)
    ("C" Css-Mode/body "Css-Mode Interface" :color blue)
    ("c" multiple-cursors-hydra/body "Multiple Cursors Command")
    ("@" Mu4e-mail/body "Post Office")
    ("A" ai_/body "Artificial Intelligence Center")

);end basic
"GROUP B"
(
    ("y" Yasnippet/body "Yasnippet")
    ("3" Elfeed_/body "Elfeed Reader")
    ("+" Org-Tree-Slide/body "Org Tree Slide Central")
    ("o" Org-Central/body "Org Central")
    ("Q" Org-Agenda/body "Org Agenda")
    ("E" Org-Editor/body "Org Editor")
    ("K" Org-Calendar/body "Org Calendar")
    ("h" blog-manager/body "Blog Manager")
    ("w" Web-Development/body "Web Development")
    ("l" Shell-Central/body "Shell Management" )
    ("g" Git-Central/body "Git Manager" )
    ("L" Latex___/body "Latex Editor")
    ("=" ediff_/body "Ediff Manager")
    ("\"" Helpful_/body "Helpful Hydra")
    ("F" flycheck-hydra/body "Flycheck Hydra")

);end specific
"GROUP C"
(
;Bookmarks/body
;     ("v" desktop+-load "Select Saved Working Environment")
;     ("V" desktop+-create "Save Working Environment")
    ("Z" eww-browser/body "EWW Browser")
    ("6" buffers-hydra/body "Buffers and Tabs Manager")
    ("a" Appearance_/body "Appearance")
    ("m" Bookmarks/body "Bookmarks")
    ("u" company_/body "Company Manager")
    ("5" global-command-log-mode "Global Command Log Mode" :toggle t)
    ("7" clm/toggle-command-log-buffer "Split window Show Command" :toggle t)
    ("8" pos/open-command-log-buffer "Show Command log in buffer")
    ("T" toggle-company-idle-delay "Toggle Company Dropdown" :toggle t)
    ("\:" MPDEL-Player/body "MPDEL Music Player" );
    ("x" Windows-Exe/body "Windows Program Launcher")
    ("W" Windows-WSL-Programs/body "Windows Wsl Program Launcher")
    ("!" 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)
);end if progn
);end if windows

Helm-Hydra WSL

You can have aHelm-Hydra you use when you work on WSL.



(if check-wsl
(progn
(setq helm-hydra-title (with-fileicon "harbour" "TAKE THE WSL 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 Command")
    ("e" Editing___/body   "Editing")
    ("s" Search-Files/body   "Searching Files and Text")
    ("f" Frames-Windows/body "Managing Frames and Buffers" )
    ("t" buffers-hydra/body "Managing Tabs and Buffers" )
    ("n" Parentheses_/body "Parentheses")
    ("P" Print-Files/body "Printing and Exporting")
    ("R" Region___/body "Marking Region" :color blue)
    ("C" Css-Mode/body "Css-Mode Interface" :color blue)
    ("c" multiple-cursors-hydra/body "Multiple Cursors Command")

);end basic
"GROUP B"
(
    ("y" Yasnippet/body "Yasnippet")
    ("3" Elfeed_/body "Elfeed Reader")
    ("j" Org-Tree-Slide/body "Org Tree Slide Central")
    ("o" Org-Central/body "Org Central")
    ("Q" Org-Agenda/body "Org Agenda")
    ("E" Org-Editor/body "Org Editor")
    ("K" Org-Calendar/body "Org Calendar")
    ("h" blog-manager/body "Blog Manager")
    ("w" Web-Development/body "Web Development")
    ("l" Shell-Central/body "Shell Management" )
    ("g" Git-Central/body "Git Manager" )
    ("L" Latex___/body "Latex Editor")
    ("=" ediff_/body "Ediff Manager")
    ("\"" Helpful_/body "Helpful Hydra")
);end specific
"GROUP C"
(
;Bookmarks/body
;     ("v" desktop+-load "Select Saved Working Environment")
;     ("V" desktop+-create "Save Working Environment")
    ("Z" eww-browser/body "EWW Browser")
    ("6" buffers-hydra/body "Buffers and Tabs Manager")
    ("a" Appearance_/body "Appearance")
    ("m" Bookmarks/body "Bookmarks")
    ("u" company_/body "Company Manager")
    ("5" global-command-log-mode "Global Command Log Mode" :toggle t)
    ("7" clm/toggle-command-log-buffer "Split window Show Command" :toggle t)
    ("8" pos/open-command-log-buffer "Show Command log in buffer")
    ("T" toggle-company-idle-delay "Toggle Company Dropdown" :toggle t)
    ("\:" MPDEL-Player/body "MPDEL Music Player" );
    ("x" Wsl-linux-program-launcher/body "WSL Linux Program Launcher")
    ("W" Wsl-windows-program-launcher/body "WSL Windows Program Launcher")
    ("!" 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)
);end if progn
);end if wsl or linux

Helm-Hydra Linux

You can have aHelm-Hydra you use when you work on a Linux system.




(if (eq check-linux 1)
(progn
(setq helm-hydra-title (with-fileicon "harbour" "TAKE THE LINUX 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 Command")
    ("e" Editing___/body   "Editing")
    ("s" Search-Files/body   "Searching Files and Text")
    ("f" Frames-Windows/body "Managing Frames and Buffers" )
    ("t" buffers-hydra/body "Managing Tabs and Buffers" )
    ("n" Parentheses_/body "Parentheses")
    ("P" Print-Files/body "Printing and Exporting")
    ("R" Region___/body "Marking Region" :color blue)
    ("C" Css-Mode/body "Css-Mode Interface" :color blue)
    ("c" multiple-cursors-hydra/body "Multiple Cursors Command")
    ("\"" Helpful_/body "Helpful Hydra")
);end basic
"GROUP B"
(
    ("y" Yasnippet/body "Yasnippet")
    ("3" Elfeed_/body "Elfeed Reader")
    ("j" Org-Tree-Slide/body "Org Tree Slide Central")
    ("o" Org-Central/body "Org Central")
    ("Q" Org-Agenda/body "Org Agenda")
    ("E" Org-Editor/body "Org Editor")
    ("K" Org-Calendar/body "Org Calendar")
    ("h" blog-manager/body "Blog Manager")
    ("w" Web-Development/body "Web Development")
    ("l" Shell-Central/body "Shell Management" )
    ("g" Git-Central/body "Git Manager" )
    ("L" Latex___/body "Latex Editor")
    ("=" ediff_/body "Ediff Manager")
    ("1" Emacs-Application-Framework/body "Emacs Application Framework")
);end specific
"GROUP C"
(
;Bookmarks/body
;     ("v" desktop+-load "Select Saved Working Environment")
;     ("V" desktop+-create "Save Working Environment")
    ("Z" eww-browser/body "EWW Browser")
    ("6" buffers-hydra/body "Buffers and Tabs Manager")
    ("a" Appearance_/body "Appearance")
    ("m" Bookmarks/body "Bookmarks")
    ("u" company_/body "Company Manager")
    ("5" global-command-log-mode "Global Command Log Mode" :toggle t)
    ("7" clm/toggle-command-log-buffer "Split window Show Command" :toggle t)
    ("8" pos/open-command-log-buffer "Show Command log in buffer")
    ("T" toggle-company-idle-delay "Toggle Company Dropdown" :toggle t)
    ("\:" MPDEL-Player/body "MPDEL Music Player" );
    ("x" Linux-program-launcher/body "Linux Program Launcher")
    ("W" Program-Launcher-2/body "Linux Program Launcher 2")
    ("!" 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)
);end if progn
);end if wsl or linux

Helm-Hydra Image

emacs posiedon configuration hydra helm hydra code