Add meow config (not using anymore)

lisp/mitch-meow.el

@@ -0,0 +1,176 @@
+;;; mitch-meow.el --- my meow settings               -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2023  mitch
+
+;; Author: mitch <mitch@mitchmarq42.xyz>
+;; Keywords: 
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Extracted from ./mitch-packages.el because maintaining separate git branches
+;; is too hard.
+
+;;; Code:
+
+(use-package meow
+  :custom
+  (meow-cheatsheet-layout meow-cheatsheet-layout-qwerty)
+  (meow-keypad-self-insert-undefined nil)
+  :init
+  ;; (require 'esc-intercept)
+   ;; Visual moving
+   (defun move-screen-down-line ()
+    "Scroll down line but keep cursor in same visual position."
+    (interactive)
+    (meow-prev 1)
+    (scroll-down-line))
+  (defun move-screen-up-line ()
+    "Scroll up line but keep cursor in same visual position."
+    (interactive)
+    (meow-next 1)
+    (scroll-up-line))
+  ;; actual setup function
+  (defun meow-setup ()
+    (interactive)
+    ;; this line cost me days of confusion
+    ;; (define-key key-translation-map (kbd "ESC") (kbd "<escape>"))
+    ;; (define-key meow-insert-state-keymap (kbd "ESC") (kbd "<escape>"))
+    ;; (evil-esc-mode 100)
+    (meow-motion-overwrite-define-key
+     '("j" . meow-next)
+     '("k" . meow-prev)
+     ;; '("ESC" . mitch/meow-esc-dwim)
+     )
+    (meow-leader-define-key
+     ;; SPC j/k will run the original command in MOTION state.
+     '("j" . "H-j")
+     '("k" . "H-k")
+     ;; Use SPC (0-9) for digit arguments.
+     '("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-keypad-describe-key)
+     '("?" . meow-cheatsheet)
+     '("g" . magit))
+;;     (meow-define-keys
+;; 	'insert
+;;       '("ESC" . mitch/meow-esc-dwim))
+;;     (meow-define-keys
+;; 	'beacon
+;;       '("ESC" . mitch/meow-esc-dwim))
+    (meow-normal-define-key
+     '("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)
+     '("[" . 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)
+     '("'" . repeat)
+     ;; '("ESC" . mitch/meow-esc-dwim)
+     ))
+  (defun mitch/meow-esc-dwim ()
+    "Escape the current search, action, or state.
+
+つまり、
+- When in insert mode, return to normal mode.
+- When in normal mode, return to beginning of line.
+- When region is visible, pop it.
+- When grabbing, ungrab."
+    (interactive)
+    (if (meow-keypad-mode-p)
+	(meow-keypad-quit)
+      (if (bound-and-true-p meow-selection)
+	  (meow-pop-selection)
+	(if (meow-insert-mode-p)
+	    (meow-escape-or-normal-modal)
+	  (goto-char (pos-bol))))) nil)
+  
+  ;; (require 'esc-intercept)
+  :config
+  (add-to-list 'meow-mode-state-list '(eshell-mode . insert))
+  (add-to-list 'meow-mode-state-list '(helpful-mode . motion))
+  (add-to-list 'meow-mode-state-list '(magit-mode . motion))
+  (meow-setup)
+  (meow-global-mode 1)
+  (add-hook 'meow-insert-mode-hook (lambda () (setq-local evil-state 'insert)))
+  (add-hook 'meow-normal-mode-hook (lambda () (setq-local evil-state 'normal)))
+  (add-hook 'meow-motion-mode-hook (lambda () (setq-local evil-state 'motion)))
+  (add-hook 'meow-beacon-mode-hook (lambda () (setq-local evil-state 'beacon)))
+  (add-hook 'meow-keypad-mode-hook (lambda () (setq-local evil-state 'keypad)))
+  )
+
+(provide 'mitch-meow)
+;;; mitch-meow.el ends here