dot-doom/modules/editor/meow/config.el

;;; editor/meow/config.el -*- lexical-binding: t; -*-

;; Setup Functions

;; Leader Key
(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))

;; 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))

;; Colemak
(defun meow/setup-colemak ()
  (setq meow-cheatsheet-layout meow-cheatsheet-layout-colemak)
  (meow/setup)
  (when (modulep! +override)
   (meow-motion-overwrite-define-key
    ;; Use e to move up, n to move down.
    ;; Since special modes usually use n to move down, we only overwrite e here.
    '("e" . meow-prev))
   (when (modulep! :editor meow +leader)
         (meow-motion-overwrite-define-key '("\\ e" . "H-e")))
   (meow-leader-define-key '("e" . "H-e")))
  (map! :map meow-normal-state-keymap
   "[" #'meow-beginning-of-thing
     "]" #'meow-end-of-thing
   "/" #'meow-visit
   "a" #'meow-append
   "A" #'meow-open-below
   "b" #'meow-back-word
   "B" #'meow-back-symbol
   "c" #'meow-change
   "d" #'meow-delete
   "e" #'meow-prev
   "E" #'meow-prev-expand
   "f" #'meow-find
   "g" #'meow-cancel-selection
   "G" #'meow-grab
   "h" #'meow-left
   "H" #'meow-left-expand
   "i" #'meow-right
   "I" #'meow-right-expand
   "j" #'meow-join
   "k" #'meow-kill
   "l" #'meow-line
   "L" #'meow-goto-line
   "m" #'meow-mark-word
   "M" #'meow-mark-symbol
   "n" #'meow-next
   "N" #'meow-next-expand
   "o" #'meow-block
   "O" #'meow-to-block
   "p" #'meow-yank
   "q" #'meow-quit
   "r" #'meow-replace
   "s" #'meow-insert
   "S" #'meow-open-above
   "t" #'meow-till
   "u" #'meow-undo
   "U" #'meow-undo-in-selection
   "v" #'meow-search
   "w" #'meow-next-word
   "W" #'meow-next-symbol
   "x" #'meow-delete
   "X" #'meow-backward-delete
   "y" #'meow-save
   "z" #'meow-pop-selection))

;; Dvorak
(defun meow/setup-dvorak ()
  (setq meow-cheatsheet-layout meow-cheatsheet-layout-dvorak)
  (when (modulep! +override)
   (meow-motion-overwrite-define-key)) ; custom keybinding for motion state
  (meow/setup)
  (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-line
   "E" #'meow-goto-line
   "f" #'meow-find
   "g" #'meow-cancel-selection
   "G" #'meow-grab
   "h" #'meow-left
   "H" #'meow-left-expand
   "I" #'meow-open-above
   "i" #'meow-insert
   "j" #'meow-join
   "k" #'meow-kill
   "l" #'meow-till
   "m" #'meow-mark-word
   "M" #'meow-mark-symbol
   "n" #'meow-next
   "N" #'meow-next-expand
   "o" #'meow-block
   "O" #'meow-to-block
   "p" #'meow-prev
   "P" #'meow-prev-expand
   "q" #'meow-quit
   "Q" #'meow-goto-line
   "r" #'meow-replace
   "R" #'meow-swap-grab
   "s" #'meow-search
   "t" #'meow-right
   "T" #'meow-right-expand
   "u" #'meow-undo
   "U" #'meow-undo-in-selection
   "v" #'meow-visit
   "w" #'meow-next-word
   "W" #'meow-next-symbol
   "x" #'meow-save
   "X" #'meow-sync-grab
   "y" #'meow-yank
   "z" #'meow-pop-selection))

;; 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))

;; Programmer Dvorak
(defun meow/setup-dvp ()
  (setq meow-cheatsheet-layout meow-cheatsheet-layout-dvp)
  (when (modulep! +override)
    (meow-motion-overwrite-define-key)) ; custom keybinding for motion state
  (map! :map meow-normal-state-keymap
   "?" #'meow-cheatsheet
   "*" #'meow-expand-0
   "=" #'meow-expand-9
   "!" #'meow-expand-8
   "[" #'meow-expand-7
     "]" #'meow-expand-6
   "{" #'meow-expand-5
     "+" #'meow-expand-4
     "}" #'meow-expand-3
   ")" #'meow-expand-2
  "(" #'meow-expand-1
    "1" #'digit-argument
    "2" #'digit-argument
    "3" #'digit-argument
    "4" #'digit-argument
    "5" #'digit-argument
    "6" #'digit-argument
    "7" #'digit-argument
    "8" #'digit-argument
    "9" #'digit-argument
    "0" #'digit-argument
    "-" #'negative-argument
    ";" #'meow-reverse
    "," #'meow-inner-of-thing
    "." #'meow-bounds-of-thing
    "<" #'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-line
    "E" #'meow-goto-line
    "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-join
    "k" #'meow-kill
    "l" #'meow-till
    "m" #'meow-mark-word
    "M" #'meow-mark-symbol
    "n" #'meow-next
    "N" #'meow-next-expand
    "o" #'meow-block
    "O" #'meow-to-block
    "p" #'meow-prev
    "P" #'meow-prev-expand
    "q" #'meow-quit
    "r" #'meow-replace
    "R" #'meow-swap-grab
    "s" #'meow-search
    "t" #'meow-right
    "T" #'meow-right-expand
    "u" #'meow-undo
    "U" #'meow-undo-in-selection
    "v" #'meow-visit
    "w" #'meow-next-word
    "W" #'meow-next-symbol
    "x" #'meow-save
    "X" #'meow-sync-grab
    "y" #'meow-yank
    "z" #'meow-pop-selection
    "'" #'repeat
    "<escape>" #'ignore))

(use-package! meow
  :hook (doom-after-modules-config . meow-global-mode)
  :demand t
  :config
  (cond
   ((modulep! +colemak) (meow/setup-colemak))
   ((modulep! +dvorak) (meow/setup-dvorak))
   ((modulep! +qwerty) (meow/setup-qwerty))
   ((modulep! +dvp) (meow/setup-dvp)))
  (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)))
  (pushnew! meow-mode-state-list '(sly-db-mode . motion))
  (pushnew! meow-mode-state-list '(sly-inspector-mode . motion))
  (map! :map meow-keymap [remap describe-key] #'helpful-key))