eriedaberrie/.emacs.d
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Moew paragraph keymaps

Browse source
This commit is contained in:
eriedaberrie 2023-02-13 11:11:19 -08:00
parent 6c83dc7c04
commit 582308ce0f
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
init.el
View file

@ -38,6 +38,12 @@
(if (meow--with-negative-argument-p arg) (if (meow--with-negative-argument-p arg)
(undo-fu-only-redo (abs numeric-prefix)) (undo-fu-only-redo (abs numeric-prefix))
(undo-fu-only-undo numeric-prefix)))) (undo-fu-only-undo numeric-prefix))))
(defun my-meow-forward-paragraph ()
(interactive)
(meow--execute-kbd-macro "M-}"))
(defun my-meow-backward-paragraph ()
(interactive)
(meow--execute-kbd-macro "M-{"))
(use-package meow (use-package meow
:demand t :demand t
@ -128,12 +134,15 @@
'("y" . meow-save) '("y" . meow-save)
'("Y" . meow-sync-grab) '("Y" . meow-sync-grab)
'("z" . meow-pop-selection) '("z" . meow-pop-selection)
'("Z" . meow-find-ref)
'("'" . repeat) '("'" . repeat)
'("/" . meow-visit) '("/" . meow-visit)
'(">" . meow-forward-slurp) '(">" . meow-forward-slurp)
'("<" . meow-forward-barf) '("<" . meow-forward-barf)
'("C-<" . meow-backward-slurp) '("C-<" . meow-backward-slurp)
'("C->" . meow-backward-barf) '("C->" . meow-backward-barf)
'("}" . my-meow-forward-paragraph)
'("{" . my-meow-backward-paragraph)
'(":" . meow-comment) '(":" . meow-comment)
'("=" . meow-indent) '("=" . meow-indent)
'("<escape>" . ignore)) '("<escape>" . ignore))
@ -345,7 +354,7 @@
(list (current-local-map))) (list (current-local-map)))
(setq-local corfu-echo-display nil (setq-local corfu-echo-display nil
corfu-popupinfo-delay nil) corfu-popupinfo-delay nil)
(corfu-mode 1)))) (corfu-mode))))
(with-eval-after-load 'meow (with-eval-after-load 'meow
(add-hook 'meow-insert-exit-hook #'corfu-quit))) (add-hook 'meow-insert-exit-hook #'corfu-quit)))