qwerty mnemonics

This commit is contained in:
Jean-Philippe Bernardy 2016-11-12 20:43:50 +01:00
parent abb0b6fe76
commit 0ebc0658ca

View file

@ -23,7 +23,7 @@
(define-key boon-select-map "b" 'boon-select-blanks) ;; blanKs
(define-key boon-moves-map "n" 'boon-switch-mark) ; nope
(define-key boon-moves-map "n" '("noon walk" . boon-switch-mark))
(define-key boon-moves-map "N" 'xref-pop-marker-stack)
(define-key boon-moves-map "y" 'xref-find-definitions) ; fYnd
@ -44,7 +44,7 @@
(define-key boon-moves-map "l" 'forward-char)
(define-key boon-moves-map "<" 'beginning-of-buffer)
(define-key boon-moves-map ">" 'end-of-buffer)
(define-key boon-moves-map "h" 'avy-goto-word-1)
(define-key boon-moves-map "h" '("hop" . avy-goto-word-1))
(define-key boon-moves-map "H" 'avy-goto-char)
@ -55,7 +55,7 @@
;; Top row
;; q
(define-key boon-command-map "q" 'boon-quote-character)
(define-key boon-command-map "q" '("quote" . boon-quote-character))
;; w,e
;; where is? elsewhere?
@ -85,6 +85,7 @@
;; r
(define-key boon-command-map "r" 'occur) ;; occuR
(define-key boon-command-map "R" 'kmacro-start-macro) ; Record
;; Misc crap
(define-key boon-command-map "P" 'kmacro-end-or-call-macro) ; Play
@ -96,22 +97,21 @@
;; home row
;; a
(define-key boon-command-map "a" 'boon-enclose) ; around
(define-key boon-command-map "a" '("around" . boon-enclose))
;; s
(define-key boon-command-map "r" 'boon-substitute-region) ; replace
(define-key boon-command-map "R" 'kmacro-start-macro) ; Record
(define-key boon-command-map "s" '("substitute" . boon-substitute-region))
;; d
(define-key boon-command-map "d" 'boon-take-region) ; "delete"
(define-key boon-command-map "d" '("delete" . boon-take-region)) ; "delete"
(define-key boon-command-map "D" 'boon-treasure-region) ; "duplicate"
;; f
(define-key boon-command-map "f" 'boon-splice) ; flush
(define-key boon-command-map "f" '("fetch" . boon-splice)) ; flush
(define-key boon-command-map "F" 'yank-pop)
;; g
(define-key boon-command-map "g" boon-goto-map) ;; goto
(define-key boon-command-map "g" (cons "goto" boon-goto-map))
;; Bottom row
;; z
@ -123,7 +123,7 @@
;; v
(define-key boon-command-map (kbd "C-v") 'boon-open-line-and-insert)
(define-key boon-command-map "V" 'boon-open-next-line-and-insert)
(define-key boon-command-map "v" 'boon-set-insert-like-state) ; 'v' looks like an insertion mark
(define-key boon-command-map "v" '("v looks like an insert mark" . boon-set-insert-like-state))
;; b
(define-key boon-command-map "B" 'boon-copy-to-register) ; bank
(define-key boon-command-map "b" 'insert-register)