Moew paragraph keymaps

This commit is contained in:
eriedaberrie 2023-02-13 11:11:19 -08:00
parent 6c83dc7c04
commit 582308ce0f

11
init.el
View file

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