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

;; Setup Functions

;; Leader Key
(defun meow/setup-leader ()
 (map! :leader
       :desc "Meow Cheatsheet"
       "?" #'meow-cheatsheet))

(defun meow/setup-qwerty ()
  (setq meow-cheatsheet-layout meow-cheatsheet-layout-qwerty)
  (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
  "\\" #'bookmark-jump
  "'" #'repeat
  "=" #'meow--eval-sexp
  "[" #'sp-backward-sexp
  "]" #'sp-forward-sexp
  "{" #'sp-backward-up-sexp
  "}" #'sp-down-sexp
  "<escape>" #'corfu-quit))

(defun meow--eval-sexp ()
  (interactive)
  (if (derived-mode-p 'lisp-mode)
      (sly-eval-defun)
      (eros-eval-defun nil)))

(defun meow--post-isearch-function ()
  (unless isearch-mode-end-hook-quit
    (when isearch-success
      (let ((beg (car isearch-match-data))
            (end (cadr isearch-match-data)))
        (thread-first
          (meow--make-selection '(select . visit) beg (if isearch-forward end isearch-other-end))
          (meow--select (not isearch-forward)))))))

(add-hook 'isearch-mode-end-hook 'meow--post-isearch-function)

(use-package! meow
  :hook (doom-after-modules-config . meow-global-mode)
  :demand t
  :config
  (meow/setup-qwerty)
  (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 . motion)))