From e3584f2712a09dbf533dc580e790c470e870e464 Mon Sep 17 00:00:00 2001
From: contrapunctus <contrapunctus@disroot.org>
Date: Fri, 14 Jan 2022 19:26:09 +0530
Subject: [PATCH] Change Lispy keys

---
 init.org | 30 +++++++++++++++++++++---------
 1 file changed, 21 insertions(+), 9 deletions(-)

diff --git a/init.org b/init.org
index cb4fb89..e60d714 100644
--- a/init.org
+++ b/init.org
@@ -4387,16 +4387,27 @@ Create advice for =lispy-pair= - if =lispy--in-string-or-comment-p= is true, sel
   ;; Boon-style keys on Dvorak
   :bind
   (:map lispy-mode-map
-        ;; change HJKL to Boon-like (QWERTY) KIOL
-        ("t" . special-lispy-left)  ;; QWERTY K
-        ("n" . special-lispy-right) ;; QWERTY L
+        ;; essential movement
+        ("h" . special-lispy-left)  ;; QWERTY J
+        ("s" . special-lispy-right) ;; QWERTY ;
         ("c" . special-lispy-up)    ;; QWERTY I
         ("r" . special-lispy-down)  ;; QWERTY O
-        ;; bind the replaced commands to Dvorak HJKL
-        ("h" . special-lispy-teleport)
+        ;; defined in :config
+        ;; ("t" . special-lispy-backward)
+        ;; ("n" . special-lispy-forward)
+        ("i" . special-lispy-flow) ;; "inwards"
+
+        ("l" . special-lispy-teleport)
         ("j" . special-lispy-occur)
-        ("k" . special-lispy-clone)
-        ("l" . special-lispy-new-copy)
+        ;; essential manipulation
+        ("k" . special-lispy-clone) ;; QWERTY C
+        ("C" . special-lispy-move-up)
+        ("R" . special-lispy-move-down)
+        ("o" . special-lispy-splice) ;; QWERTY S
+        ("p" . special-lispy-raise)
+        ("T" . lispy-splice-sexp-killing-forward)
+        ("N" . lispy-splice-sexp-killing-backward)
+        ;; ("l" . special-lispy-new-copy)
         ;; Lispy shadows this, but it's essential for Org literate programs
         ("M-o" . nil)
         ("M-o M-o" . font-lock-fontify-block)
@@ -4407,8 +4418,9 @@ Create advice for =lispy-pair= - if =lispy--in-string-or-comment-p= is true, sel
   :config
   ;; (dolist (key '("C-1" "C-2" "C-3" "C-4"))
   ;;   (define-key lispy-mode-map-c-digits (kbd key) nil))
-  (lispy-set-key-theme '(lispy special)))
-
+  (lispy-set-key-theme '(lispy special))
+  (lispy-define-key lispy-mode-map (kbd "t") #'lispy-backward)
+  (lispy-define-key lispy-mode-map (kbd "n") #'lispy-forward))
 #+END_SRC
 
 *** treemacs