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

Change Lispy keys

This commit is contained in:
contrapunctus 2022-01-14 19:26:09 +05:30
parent 6760668c4c
commit e3584f2712
1 changed files with 21 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
init.org
View File

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