[dvorak] define more global bindings

This commit is contained in:
contrapunctus 2021-02-20 11:49:14 +05:30
parent 05611814d2
commit 613253aff0
1 changed files with 36 additions and 13 deletions

View File

@ -14,6 +14,8 @@ At first I decided to remap all Emacs, Boon, and Hydra bindings, but it turned o
3. [X] M--
4. [ ] multiple-cursors
5. [ ] boon-c-god is bound to "j", which emulates QWERTY "c", but the bindings after it do not. Thus, to input "C-c C-c", one must press "j c" in Dvorak. Yuck.
6. [ ] M-n M-n not getting bound to font-lock-fontify-block ?
7. [ ] binding C-d to keyboard-quit in the minibuffer
#+BEGIN_SRC emacs-lisp
(general-auto-unbind-keys)
@ -21,17 +23,38 @@ At first I decided to remap all Emacs, Boon, and Hydra bindings, but it turned o
(general-def
"M-h" 'default-indent-new-line
"M-'" 'sp-indent-defun
"M-i" 'keyboard-quit
"C-j" 'ctl-x-map
"M-r M-r" 'font-lock-fontify-block
;; basic modifier-based editing commands
"M-n M-n" 'font-lock-fontify-block
;; basic Modifier-based editing commands
;; "C-d" 'backward-delete-char ;; unnecessary - QWERTY C-h is merely next to your index finger, but Dvorak C-h is directly under it
"C-," 'backward-kill-word
"M-e" 'kill-word)
"C-g" 'cp-kill-line-0
"C-d" 'keyboard-quit
;; ;; Emacs-like
"M-e" 'kill-word
"C-e" 'delete-char
"M-x" 'backward-word ;; !!!
"M-u" 'forward-word
"M-q" 'execute-extended-command
;; "C-x" 'forward-char
;; ;; Boon-like
;; "M-h" 'forward-word
;; "M-s" 'forward-word
"C-n" 'forward-char
"C-t" 'backward-char)
;; ;; The old C-n/C-p/M-n/M-p were not the most comfortable to begin with, so I take this opportunity to bind them to something consistent with Boon
;; (general-def minibuffer-local-map
;; "C-c" 'previous-line
;; "C-r" 'next-line)
(general-def minibuffer-local-map
"C-c" 'previous-line
"C-r" 'next-line
"M-c" 'previous-history-element
"M-r" 'next-history-element)
(general-def read-expression-map ;; not sure if this works
"C-c" 'previous-line
"C-r" 'next-line
"M-c" 'previous-history-element
"M-r" 'next-history-element)
(general-def ivy-minibuffer-map
"C-c" 'previous-line
"C-r" 'next-line
@ -39,6 +62,11 @@ At first I decided to remap all Emacs, Boon, and Hydra bindings, but it turned o
"M-r" 'ivy-next-history-element)
(general-def swiper-map
"C-c" 'previous-line)
#+END_SRC
I hate the position of C-g on the typical QWERTY keyboard. keyboard-quit is a frequently-used command, let's bind it somewhere involving less hand-movement.
#+BEGIN_SRC emacs-lisp
(bind-keys
("M-d" . keyboard-quit))
(general-auto-unbind-keys t)
#+END_SRC
** user interface
@ -1988,7 +2016,7 @@ pjb suggested a different approach [[http://paste.lisp.org/display/10157][here]]
("C-w" . sp-backward-kill-word)
("<C-backspace>" . sp-backward-kill-word)
("M-DEL" . sp-backward-kill-word)
("M-d" . sp-kill-word)
("M-e" . sp-kill-word)
("C-M-p" . sp-backward-down-sexp)
("C-M-n" . sp-backward-up-sexp)
@ -2057,11 +2085,6 @@ pjb suggested a different approach [[http://paste.lisp.org/display/10157][here]]
:diminish
:commands explain-pause-mode
:init (explain-pause-mode))
#+END_SRC
**** hydra
#+BEGIN_SRC emacs-lisp
#+END_SRC
*** Common Lisp
#+BEGIN_SRC emacs-lisp