contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Define missing special variants of Lispy commands

This commit is contained in:
contrapunctus 2022-01-14 21:04:58 +05:30
parent 6a707d8468
commit ba2db8d6c8
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
init.org
View File

@ -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: