From 5fe278a7746f0414a9d09a006d74b6f46d629bce Mon Sep 17 00:00:00 2001 From: Jean-Philippe Bernardy Date: Tue, 15 Nov 2016 22:07:43 +0100 Subject: [PATCH] more mnemonics --- boon-colemak.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/boon-colemak.el b/boon-colemak.el index 36c811e..6e81395 100644 --- a/boon-colemak.el +++ b/boon-colemak.el @@ -23,7 +23,7 @@ (define-key boon-select-map "z" 'boon-select-content) ;; inZide -(define-key boon-select-map "k" 'boon-select-blanks) ;; blanKs +(define-key boon-select-map "k" '("blanks" . boon-select-blanks)) (define-key boon-moves-map "k" '("bacK to marK" . boon-switch-mark)) ; bacK to marK (define-key boon-moves-map "K" 'xref-pop-marker-stack) @@ -72,7 +72,7 @@ ;; p ;; Pinpoint Place -(define-key boon-command-map "p" 'occur) +(define-key boon-command-map "p" '("pinpoint" . occur)) ;; Misc crap (define-key boon-command-map "P" 'kmacro-end-or-call-macro) ; Play @@ -97,7 +97,7 @@ (define-key boon-command-map "T" 'boon-treasure-region) ; "treasure" ;; d -(define-key boon-command-map "d" 'boon-replace-by-character) ; "displace" +(define-key boon-command-map "d" '("displace" . boon-replace-by-character)) ;; Bottom row ;; z @@ -114,10 +114,12 @@ ;; b (define-key boon-command-map "B" 'boon-copy-to-register) -(define-key boon-command-map "b" 'insert-register) +(define-key boon-command-map "b" '("bank" . insert-register)) ;; RIGHT HAND: movement and marking commands. -;; Most of these are actually in the boon-moves-map; however some don't quite work there; so they end up here. + +;; Most of the moves are in boon-moves-map. Yet some moves do not work +;; as selectors, so they are put in the boon-command-map instead. (define-key boon-command-map (kbd "C-u") 'scroll-down-line) (define-key boon-command-map (kbd "C-y") 'scroll-up-line)