Ditch meow

This commit is contained in:
larstvei 2024-09-05 17:31:18 +02:00
parent 3ac0ef553a
commit 32cbab47f8

115
init.org
View File

@ -342,107 +342,6 @@
#+end_src
** Modal meow
# TODO: This is so much more than what i need. Find something 1% as complicated.
I have been wanting to try out modal editing. [[https://github.com/meow-edit/meow][meow] seems like a nice package,
where I can still use a lot of the ten years of Emacs that are already in my
fingers. These are the default settings for qwerty.
#+begin_src emacs-lisp
(use-package meow
:config
(setq meow-cheatsheet-layout meow-cheatsheet-layout-qwerty)
(add-to-list 'meow-mode-state-list '(vterm-mode . insert))
(add-to-list 'meow-mode-state-list '(comint-mode . insert))
(meow-motion-overwrite-define-key
'("j" . meow-next)
'("k" . meow-prev)
'("<escape>" . ignore))
(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))
(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)
'("<escape>" . ignore))
(meow-global-mode 1))
#+end_src
* Visual
First off, let's declutter. Remove clickies to give a nice and clean look.
@ -530,25 +429,14 @@
;; N Λ N O modeline
(use-package nano-modeline
:after meow
:init
;; Disable the default modeline
(setq-default mode-line-format nil)
:config
(defun meow-nano-modeline-indicator ()
"Create the status indicator for the modeline."
(pcase (meow--current-state)
('normal (propertize " N " 'face (nano-modeline-face 'status-RO)))
('motion (propertize " M " 'face (nano-modeline-face 'status-RO)))
('insert (propertize " I " 'face (nano-modeline-face 'status-RW)))
('keypad (propertize " K " 'face (nano-modeline-face 'status-**)))
('beacon (propertize " B " 'face (nano-modeline-face 'status-**)))))
(defun my-default-nano-modeline (&optional default)
"My nano modeline configuration."
(funcall nano-modeline-position
`((nano-modeline-buffer-status)
(meow-nano-modeline-indicator) " "
(nano-modeline-buffer-name) " "
(nano-modeline-git-info))
`((nano-modeline-cursor-position)
@ -910,8 +798,7 @@
("k" . pdf-view-previous-line-or-previous-page))
:hook (pdf-view-mode
. (lambda ()
(nano-modeline-pdf-mode)
(set (make-local-variable 'meow-cursor-type-default) nil)))
(nano-modeline-pdf-mode)))
:init (pdf-loader-install)
:config (add-to-list 'revert-without-query ".pdf"))