From ba2db8d6c8cbef08ccc2b073062a75d740d52b7b Mon Sep 17 00:00:00 2001 From: contrapunctus Date: Fri, 14 Jan 2022 21:04:58 +0530 Subject: [PATCH] Define missing special variants of Lispy commands --- init.org | 19 +++++++++++++------ 1 file changed, 13 insertions(+), 6 deletions(-) diff --git a/init.org b/init.org index d353e02..5356214 100644 --- a/init.org +++ b/init.org @@ -4414,7 +4414,7 @@ Create advice for =lispy-pair= - if =lispy--in-string-or-comment-p= is true, sel ("s" . special-lispy-right) ;; QWERTY ; ("c" . special-lispy-up) ;; QWERTY I ("r" . special-lispy-down) ;; QWERTY O - ;; defined in :config + ;; ;; defined in :config ;; ("t" . special-lispy-backward) ;; ("n" . special-lispy-forward) ("i" . special-lispy-flow) ;; "inwards" @@ -4427,10 +4427,11 @@ Create advice for =lispy-pair= - if =lispy--in-string-or-comment-p= is true, sel ("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) + ;; ;; defined in :config + ;; ("T" . special-lispy-splice-sexp-killing-forward) + ;; ("N" . special-lispy-splice-sexp-killing-backward) ;; ("l" . special-lispy-new-copy) - ;; Lispy shadows this, but it's essential for Org literate programs + ;; ;; Lispy shadows this, but it's essential for Org literate programs ("M-o" . nil) ("M-o M-o" . font-lock-fontify-block) ;; It does not insert a pair in strings or comments. I want @@ -4441,8 +4442,14 @@ Create advice for =lispy-pair= - if =lispy--in-string-or-comment-p= is true, sel ;; (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-define-key lispy-mode-map (kbd "t") #'lispy-backward) - (lispy-define-key lispy-mode-map (kbd "n") #'lispy-forward)) + ;; These keys do not have special-* variants defined by default, so + ;; here we define them ourselves. + (cl-loop for (key . cmd) in + '(("t" . lispy-backward) + ("n" . lispy-forward) + ("T" . lispy-splice-sexp-killing-forward) + ("N" . lispy-splice-sexp-killing-backward)) + do (lispy-define-key lispy-mode-map (kbd key) cmd))) #+END_SRC *** treemacs :disabled: