emenel/dot-doom
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

refining meow config

Browse source
This commit is contained in:
Matt Nish-Lapidus 2023-10-28 10:04:16 -04:00
parent 8f8fb54c25
commit 8aed4784a9
3 changed files with 93 additions and 130 deletions
Download patch file Download diff file Expand all files Collapse all files

207
modules/editor/meow/config.el
View file

@ -6,135 +6,102 @@
(defun meow/setup-leader ()
(map! :leader
:desc "Meow Cheatsheet"
"?" #'meow-cheatsheet
"/" #'meow-keypad-describe-key
"1" #'meow-digit-argument
"2" #'meow-digit-argument
"3" #'meow-digit-argument
"4" #'meow-digit-argument
"5" #'meow-digit-argument
"6" #'meow-digit-argument
"7" #'meow-digit-argument
"8" #'meow-digit-argument
"9" #'meow-digit-argument
"0" #'meow-digit-argument))
"?" #'meow-cheatsheet))
;; Keypad
(defun meow/setup-keypad ()
(map! :map meow-keypad-state-keymap
"?" #'meow-cheatsheet
"/" #'meow-keypad-describe-key
"1" #'meow-digit-argument
"2" #'meow-digit-argument
"3" #'meow-digit-argument
"4" #'meow-digit-argument
"5" #'meow-digit-argument
"6" #'meow-digit-argument
"7" #'meow-digit-argument
"8" #'meow-digit-argument
"9" #'meow-digit-argument
"0" #'meow-digit-argument
"h" #'help-command))
;; applies to all layouts (except dvp)
(defun meow/setup ()
(map! :map meow-normal-state-keymap
"0" #'meow-expand-0
"1" #'meow-expand-1
"2" #'meow-expand-2
"3" #'meow-expand-3
"4" #'meow-expand-4
"5" #'meow-expand-5
"6" #'meow-expand-6
"7" #'meow-expand-7
"8" #'meow-expand-8
"9" #'meow-expand-9
"-" #'negative-argument
";" #'meow-reverse
"," #'meow-inner-of-thing
"." #'meow-bounds-of-thing
"'" #'repeat
"<escape>" #'corfu-quit))
;; Qwerty
(defun meow/setup-qwerty ()
(setq meow-cheatsheet-layout meow-cheatsheet-layout-qwerty)
(meow/setup)
(when (modulep! :editor meow +override)
(meow-motion-overwrite-define-key
'("j" . meow-next)
'("k" . meow-prev))
(when (modulep! :editor meow +leader)
(meow-motion-overwrite-define-key
'("\\ j" . "H-j")
'("\\ k" . "H-k")))
(meow-leader-define-key
;; SPC j/k will run the original command in MOTION state.
'("j" . "H-j")
'("k" . "H-k")))
(map! :map meow-normal-state-keymap
"[" #'meow-beginning-of-thing
"]" #'meow-end-of-thing
"a" #'meow-append
"A" #'meow-open-below
"b" #'meow-back-word
"B" #'meow-back-symbol
"c" #'meow-change
"d" #'meow-delete
"D" #'meow-backward-delete
"e" #'meow-next-word
"E" #'meow-next-symbol
"f" #'meow-find
"g" #'meow-cancel-selection
"G" #'meow-grab
"h" #'meow-left
"H" #'meow-left-expand
"i" #'meow-insert
"I" #'meow-open-above
"j" #'meow-next
"J" #'meow-next-expand
"k" #'meow-prev
"K" #'meow-prev-expand
"l" #'meow-right
"L" #'meow-right-expand
"m" #'meow-join
"n" #'meow-search
"o" #'meow-block
"O" #'meow-to-block
"p" #'meow-yank
"q" #'meow-quit
"Q" #'meow-goto-line
"r" #'meow-replace
"R" #'meow-swap-grab
"s" #'meow-kill
"t" #'meow-till
"u" #'meow-undo
"U" #'meow-undo-in-selection
"v" #'meow-visit
"w" #'meow-mark-word
"W" #'meow-mark-symbol
"x" #'meow-line
"X" #'meow-goto-line
"y" #'meow-save
"Y" #'meow-sync-grab
"z" #'meow-pop-selection))
(meow-motion-overwrite-define-key
'("j" . meow-next)
'("k" . meow-prev))
(meow-leader-define-key
;; SPC j/k will run the original command in MOTION state.
'("j" . "H-j")
'("k" . "H-k"))
(map! :map meow-normal-state-keymap
"<" #'meow-beginning-of-thing
">" #'meow-end-of-thing
"a" #'meow-append
"A" #'meow-open-below
"b" #'meow-back-word
"B" #'meow-back-symbol
"c" #'meow-change
"d" #'meow-delete
"D" #'meow-backward-delete
"e" #'meow-next-word
"E" #'meow-next-symbol
"f" #'meow-find
"g" #'meow-cancel-selection
"G" #'meow-grab
"h" #'meow-left
"H" #'meow-left-expand
"i" #'meow-insert
"I" #'meow-open-above
"j" #'meow-next
"J" #'meow-next-expand
"k" #'meow-prev
"K" #'meow-prev-expand
"l" #'meow-right
"L" #'meow-right-expand
"m" #'meow-join
"n" #'meow-search
"o" #'meow-block
"O" #'meow-to-block
"p" #'meow-yank
"q" #'meow-quit
"Q" #'meow-goto-line
"r" #'meow-replace
"R" #'meow-swap-grab
"s" #'meow-kill
"t" #'meow-till
"u" #'meow-undo
"U" #'meow-undo-in-selection
"v" #'meow-visit
"w" #'meow-mark-word
"W" #'meow-mark-symbol
"x" #'meow-line
"X" #'meow-goto-line
"y" #'meow-save
"Y" #'meow-sync-grab
"z" #'meow-pop-selection
"0" #'meow-expand-0
"1" #'meow-expand-1
"2" #'meow-expand-2
"3" #'meow-expand-3
"4" #'meow-expand-4
"5" #'meow-expand-5
"6" #'meow-expand-6
"7" #'meow-expand-7
"8" #'meow-expand-8
"9" #'meow-expand-9
"-" #'negative-argument
";" #'meow-reverse
"," #'meow-inner-of-thing
"." #'meow-bounds-of-thing
"=" #'isearch-forward
"+" #'isearch-backward
"\\" #'bookmark-jump
"'" #'repeat
":" #'eval-last-sexp
"[" #'sp-backward-sexp
"]" #'sp-forward-sexp
"{" #'sp-backward-up-sexp
"}" #'sp-down-sexp
"<escape>" #'corfu-quit))
(use-package! meow
:hook (doom-after-modules-config . meow-global-mode)
:demand t
:config
(meow/setup-qwerty)
(cond
((modulep! +leader)
(map! :map meow-normal-state-keymap
doom-leader-key doom-leader-map)
(map! :map meow-motion-state-keymap
doom-leader-key doom-leader-map)
(map! :map meow-beacon-state-keymap
doom-leader-key nil)
(meow/setup-leader))
(t (meow/setup-keypad)))
(map! :map meow-normal-state-keymap
doom-leader-key doom-leader-map)
(map! :map meow-motion-state-keymap
doom-leader-key doom-leader-map)
(map! :map meow-beacon-state-keymap
doom-leader-key nil)
(meow/setup-leader)
(pushnew! meow-mode-state-list '(sly-db-mode . motion))
(pushnew! meow-mode-state-list '(sly-inspector-mode . motion))
(pushnew! meow-mode-state-list '(Custom-mode . normal))
(pushnew! meow-mode-state-list '(custom-mode . normal))
(map! :map meow-keymap [remap describe-key] #'helpfl-key))