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

14
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
;; TODO - make this unnecessary
(require 'meow)
(defun meow-wrap-negative (command)
(lambda ()
(defmacro thoom/meow-negate (meow-command)
`(lambda ()
(interactive)
(let ((current-prefix-arg -1))
(call-interactively command))))
(call-interactively ,meow-command))))
;; TODO - debug this. should make org headings into meow things
(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-symbol)
'("f" . meow-find)
`("F" . ,(meow-wrap-negative 'meow-find))
`("F" . ,(thoom/meow-negate 'meow-find))
'("g" . meow-cancel-selection)
'("G" . meow-grab)
'("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)
;; Potential addition - S
'("t" . meow-till)
`("T" . ,(meow-wrap-negative 'meow-till))
`("T" . ,(thoom/meow-negate 'meow-till))
'("u" . meow-undo)
'("U" . meow-undo-in-selection)
'("v" . meow-visit)
`("V" . ,(meow-wrap-negative 'meow-visit))
`("V" . ,(thoom/meow-negate 'meow-visit))
'("w" . meow-mark-word)
'("W" . meow-mark-symbol)
'("x" . meow-line)
`("X" . ,(meow-wrap-negative 'meow-line))
`("X" . ,(thoom/meow-negate 'meow-line))
'("y" . meow-save)
'("Y" . meow-sync-grab)
'("z" . meow-pop-selection)

14
thoom-emacs/init.el
View File

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