From d753be5599527c267b3b71248b42c4b9a622b081 Mon Sep 17 00:00:00 2001
From: contrapunctus <contrapunctus@disroot.org>
Date: Thu, 1 Jul 2021 03:42:22 +0530
Subject: [PATCH] [hydra] add more windows keybindings; make more consistent

---
 init.org | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/init.org b/init.org
index 876b3a0..888f3fd 100644
--- a/init.org
+++ b/init.org
@@ -1238,6 +1238,8 @@ Add these common operations to the hydra -
   "Window"
   ("e" delete-window "delete this") ;; QWERTY d
   ("o" delete-other-windows "delete others")
+  ("z" delete-window "delete this")
+  ("v" delete-other-windows "delete others")
   ("t" split-window-below "split below")
   ("n" split-window-right "split right")
   ("c" enlarge-window "increase height")
@@ -1289,7 +1291,6 @@ _u_: next word       ^_l_: edit lines^      _s_: next whole symbol
 #+BEGIN_SRC emacs-lisp
 (defhydra contrapunctus-general-hydra (:color blue)
   "What command?"
-  ("c" chronometrist "chronometrist")
   ("G" elpher "elpher")
   ("O" cp-org/body "org")
   ("p" contrapunctus-programming-hydra-dispatch-language "programming")
@@ -1297,6 +1298,11 @@ _u_: next word       ^_l_: edit lines^      _s_: next whole symbol
   ("e" contrapunctus-emms-hydra/body "emms")
   ("j" cp-jabber/body "Jabber")
 
+  ("0" delete-window "delete this")
+  ("1" delete-other-windows "delete others")
+  ("2" split-window-below "split below")
+  ("3" split-window-right "split right")
+  ("c" chronometrist "chronometrist")
   ("C" contrapunctus-mc-hydra/body "multiple cursors")
   ("d" dired-jump "dired-jump")
   ("D" (cp-insert-timestamp t) "date")
@@ -1324,10 +1330,12 @@ _u_: next word       ^_l_: edit lines^      _s_: next whole symbol
   ("t" cp-org-set-tags "tags")
   ("n" cp-org-nav/body "navigation")
 
+  ("c" chronometrist "chronometrist")
   ("C" contrapunctus-mc-hydra/body "multiple cursors")
   ("d" dired-jump "dired-jump")
   ("D" (cp-insert-timestamp t) "date")
   ("E" toggle-debug-on-error "tdoe")
+  ("G" contrapunctus-general-hydra/body "up")
   ("h" helpful-at-point "Help")
   ("i" (find-file "~/.emacs.d/init.org") "open init")
   ("I" contrapunctus-info-hydra/body "Info")
@@ -1387,7 +1395,6 @@ _u_: next word       ^_l_: edit lines^      _s_: next whole symbol
   ("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