tim.mccarthy/dotfiles
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Convert meow-wrap-negative to thoom/meow-negate macro

Browse Source
This commit is contained in:
Tim McCarthy
2022-10-08 23:09:22 -07:00
parent 839f9320a8
commit f9d334ea6d
2 changed files with 18 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
thoom-emacs/ThoomEmacs.org
View File

@@ -207,11 +207,11 @@ When in indent-rigidly mode (=+= in normal state), use =H/L= to adjust indent by
:init :init
;; TODO - make this unnecessary ;; TODO - make this unnecessary
(require 'meow) (require 'meow)
(defun meow-wrap-negative (command) (defmacro thoom/meow-negate (meow-command)
(lambda () `(lambda ()
(interactive) (interactive)
(let ((current-prefix-arg -1)) (let ((current-prefix-arg -1))
(call-interactively command)))) (call-interactively ,meow-command))))
;; TODO - debug this. should make org headings into meow things ;; TODO - debug this. should make org headings into meow things
(meow-thing-register 'heading 'heading 'heading) (meow-thing-register 'heading 'heading 'heading)
@@ -296,7 +296,7 @@ When in indent-rigidly mode (=+= in normal state), use =H/L= to adjust indent by
'("e" . meow-next-word) '("e" . meow-next-word)
'("E" . meow-next-symbol) '("E" . meow-next-symbol)
'("f" . meow-find) '("f" . meow-find)
`("F" . ,(meow-wrap-negative 'meow-find)) `("F" . ,(thoom/meow-negate 'meow-find))
'("g" . meow-cancel-selection) '("g" . meow-cancel-selection)
'("G" . meow-grab) '("G" . meow-grab)
'("h" . meow-left) '("h" . meow-left)
@@ -324,15 +324,15 @@ When in indent-rigidly mode (=+= in normal state), use =H/L= to adjust indent by
'("s" . meow-kill) '("s" . meow-kill)
;; Potential addition - S ;; Potential addition - S
'("t" . meow-till) '("t" . meow-till)
`("T" . ,(meow-wrap-negative 'meow-till)) `("T" . ,(thoom/meow-negate 'meow-till))
'("u" . meow-undo) '("u" . meow-undo)
'("U" . meow-undo-in-selection) '("U" . meow-undo-in-selection)
'("v" . meow-visit) '("v" . meow-visit)
`("V" . ,(meow-wrap-negative 'meow-visit)) `("V" . ,(thoom/meow-negate 'meow-visit))
'("w" . meow-mark-word) '("w" . meow-mark-word)
'("W" . meow-mark-symbol) '("W" . meow-mark-symbol)
'("x" . meow-line) '("x" . meow-line)
`("X" . ,(meow-wrap-negative 'meow-line)) `("X" . ,(thoom/meow-negate 'meow-line))
'("y" . meow-save) '("y" . meow-save)
'("Y" . meow-sync-grab) '("Y" . meow-sync-grab)
'("z" . meow-pop-selection) '("z" . meow-pop-selection)

18
thoom-emacs/init.el
View File

@@ -144,11 +144,11 @@
:init :init
;; TODO - make this unnecessary ;; TODO - make this unnecessary
(require 'meow) (require 'meow)
(defun meow-wrap-negative (command) (defmacro thoom/meow-negate (meow-command)
(lambda () `(lambda ()
(interactive) (interactive)
(let ((current-prefix-arg -1)) (let ((current-prefix-arg -1))
(call-interactively command)))) (call-interactively ,meow-command))))
;; TODO - debug this. should make org headings into meow things ;; TODO - debug this. should make org headings into meow things
(meow-thing-register 'heading 'heading 'heading) (meow-thing-register 'heading 'heading 'heading)
@@ -233,7 +233,7 @@
'("e" . meow-next-word) '("e" . meow-next-word)
'("E" . meow-next-symbol) '("E" . meow-next-symbol)
'("f" . meow-find) '("f" . meow-find)
`("F" . ,(meow-wrap-negative 'meow-find)) `("F" . ,(thoom/meow-negate 'meow-find))
'("g" . meow-cancel-selection) '("g" . meow-cancel-selection)
'("G" . meow-grab) '("G" . meow-grab)
'("h" . meow-left) '("h" . meow-left)
@@ -261,15 +261,15 @@
'("s" . meow-kill) '("s" . meow-kill)
;; Potential addition - S ;; Potential addition - S
'("t" . meow-till) '("t" . meow-till)
`("T" . ,(meow-wrap-negative 'meow-till)) `("T" . ,(thoom/meow-negate 'meow-till))
'("u" . meow-undo) '("u" . meow-undo)
'("U" . meow-undo-in-selection) '("U" . meow-undo-in-selection)
'("v" . meow-visit) '("v" . meow-visit)
`("V" . ,(meow-wrap-negative 'meow-visit)) `("V" . ,(thoom/meow-negate 'meow-visit))
'("w" . meow-mark-word) '("w" . meow-mark-word)
'("W" . meow-mark-symbol) '("W" . meow-mark-symbol)
'("x" . meow-line) '("x" . meow-line)
`("X" . ,(meow-wrap-negative 'meow-line)) `("X" . ,(thoom/meow-negate 'meow-line))
'("y" . meow-save) '("y" . meow-save)
'("Y" . meow-sync-grab) '("Y" . meow-sync-grab)
'("z" . meow-pop-selection) '("z" . meow-pop-selection)