[hydra] create Jabber hydra

init.org

@@ -1166,6 +1166,7 @@ _u_: next word       ^_l_: edit lines^      _s_: next whole symbol
   ("p" contrapunctus-programming-hydra-dispatch-language "programming")
   ("P" list-packages "packages")
   ("e" contrapunctus-emms-hydra/body "emms")
+  ("j" cp-jabber/body "Jabber")
 
   ("C" contrapunctus-mc-hydra/body "multiple cursors")
   ("h" helpful-at-point "Help")
@@ -1232,6 +1233,23 @@ _u_: next word       ^_l_: edit lines^      _s_: next whole symbol
   ("H" org-promote-subtree "promote")
   ("S" org-demote-subtree "demote"))
 #+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
 #+BEGIN_SRC emacs-lisp
 (defhydra cp-el (:color blue)