[dvorak] define more global bindings
This commit is contained in:
parent
05611814d2
commit
613253aff0
49
init.org
49
init.org
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue