fixing meow and leader stuff

meow.el

@@ -0,0 +1,125 @@
+;;; meow.el -*- lexical-binding: t; -*-
+
+(setq doom-leader-alt-key "C-<SPC>")
+(setq doom-localleader-alt-key "C-M-<SPC>")
+
+;; Also use SPC m for localleader
+(defun my/call-localleader ()
+  (interactive)
+  (setq unread-command-events (listify-key-sequence (kbd "C-M-SPC"))))
+
+(map! :leader (:desc "localleader" "m" #'my/call-localleader))
+
+(defun meow--eval-sexp ()
+  (interactive)
+  (cond ((derived-mode-p 'lisp-mode) (sly-eval-defun))
+        ((derived-mode-p 'sclang-mode) (sclang-eval-region-or-line))
+        (t (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)
+
+(defun meow-setup ()
+  (setq meow-cheatsheet-layout meow-cheatsheet-layout-qwerty)
+
+  (map!
+   :leader
+   "?" #'meow-cheatsheet)
+
+  (meow-motion-define-key
+   '("SPC" . doom/leader)
+   ;; '("j" . meow-next)
+   ;; '("k" . meow-prev)
+   '("<escape>" . doom/escape))
+
+  (meow-normal-define-key
+   '("SPC" . doom/leader)
+   '("0" . meow-expand-0)
+   '("9" . meow-expand-9)
+   '("8" . meow-expand-8)
+   '("7" . meow-expand-7)
+   '("6" . meow-expand-6)
+   '("5" . meow-expand-5)
+   '("4" . meow-expand-4)
+   '("3" . meow-expand-3)
+   '("2" . meow-expand-2)
+   '("1" . meow-expand-1)
+   '("-" . negative-argument)
+   '(";" . meow-reverse)
+   '("," . meow-inner-of-thing)
+   '("." . meow-bounds-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)
+   '("F" . meow-query-replace)
+   '("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)
+   '("'" . repeat)
+   '("=" . meow--eval-sexp)
+   '("[" . sp-backward-sexp)
+   '("]" . sp-forward-sexp)
+   '("{" . sp-backward-up-sexp)
+   '("}" . sp-down-sexp)
+   '("<" . meow-beginning-of-thing)
+   '(">" . meow-end-of-thing)
+   '("/" . bookmark-in-project-jump)
+   '("?" . bookmark-jump)
+   '("÷" . bookmark-delete)
+   '("#" . string-inflection-all-cycle)
+   '("<escape>" . doom/escape)))
+
+(use-package! meow
+  :config
+  (meow-setup)
+  (pushnew! meow-mode-state-list '(mu4e-main-mode . motion))
+  (pushnew! meow-mode-state-list '(sly-db-mode . motion))
+  (pushnew! meow-mode-state-list '(sly-inspector-mode . motion))
+  (pushnew! meow-mode-state-list '(vterm-mode . insert))
+  (pushnew! meow-mode-state-list '(sly-mode . insert))
+  (meow-global-mode 1))