[hydra] create Jabber hydra
This commit is contained in:
parent
ad0ab58af9
commit
c3010ec944
18
init.org
18
init.org
|
@ -1166,6 +1166,7 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
|
||||||
("p" contrapunctus-programming-hydra-dispatch-language "programming")
|
("p" contrapunctus-programming-hydra-dispatch-language "programming")
|
||||||
("P" list-packages "packages")
|
("P" list-packages "packages")
|
||||||
("e" contrapunctus-emms-hydra/body "emms")
|
("e" contrapunctus-emms-hydra/body "emms")
|
||||||
|
("j" cp-jabber/body "Jabber")
|
||||||
|
|
||||||
("C" contrapunctus-mc-hydra/body "multiple cursors")
|
("C" contrapunctus-mc-hydra/body "multiple cursors")
|
||||||
("h" helpful-at-point "Help")
|
("h" helpful-at-point "Help")
|
||||||
|
@ -1232,6 +1233,23 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
|
||||||
("H" org-promote-subtree "promote")
|
("H" org-promote-subtree "promote")
|
||||||
("S" org-demote-subtree "demote"))
|
("S" org-demote-subtree "demote"))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
*** jabber
|
||||||
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
(defhydra cp-jabber (:color blue)
|
||||||
|
"Jabber"
|
||||||
|
("c" jabber-connect "connect")
|
||||||
|
("r" jabber-display-roster "roster")
|
||||||
|
("n" jabber-activity-switch-to "next" :color red)
|
||||||
|
|
||||||
|
("i" (find-file "~/.emacs.d/init.org") "open init")
|
||||||
|
("I" contrapunctus-info-hydra/body "Info")
|
||||||
|
("E" toggle-debug-on-error "tdoe")
|
||||||
|
("w" contrapunctus-window-hydra/body "window")
|
||||||
|
("k" (kill-buffer (current-buffer)) "kill")
|
||||||
|
("N" contrapunctus-line-display-hydra/body "line display")
|
||||||
|
("c" chronometrist "chronometrist")
|
||||||
|
("G" contrapunctus-general-hydra/body "up"))
|
||||||
|
#+END_SRC
|
||||||
*** Emacs Lisp
|
*** Emacs Lisp
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(defhydra cp-el (:color blue)
|
(defhydra cp-el (:color blue)
|
||||||
|
|
Loading…
Reference in New Issue