Add transposition actions

1 files changed, 10 insertions, 2 deletions

diff --git a/do-at-point.el b/do-at-point.el
index 4911af8..f6719d2 100644
--- a/do-at-point.el
+++ b/do-at-point.el
@@ -123,12 +123,20 @@ of this variable.")
      (?* "Calc" ,(lambda () (calc-embedded '(t)))))
     (word
      (?$ "Spell check" ,(lambda () (ispell-word)))
-     (?d "Dictionary" ,#'dictionary-search))
+     (?d "Dictionary" ,#'dictionary-search)
+     (?t "Transpose" ,(lambda () (transpose-words 1))))
     (symbol
      (?. "Xref" ,#'xref-find-definitions)
      (?o "Occur" ,(lambda (str)
                     (occur (concat "\\_<\\(" (regexp-quote str) "\\)\\_>")))))
-    (string) (sexp) (line) (paragraph (?$))
+    (string)
+    (sexp
+     (?t "Transpose" ,(lambda () (transpose-sexps 1))))
+    (line
+     (?t "Transpose" ,(lambda () (transpose-lines 1))))
+    (paragraph
+     (?$)
+     (?t "Transpose" ,(lambda () (transpose-paragraphs 1))))
     (defun
         (?e "Evaluate" ,(lambda () (eval-defun nil)))))
   "Association of things and their respective actions.