awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-08 15:23:35 -05:00
Code Issues Packages Projects Releases Wiki Activity

Add evil-little-word and help-fns+

Browse Source
This commit is contained in:
Henrik Lissner
2014-12-05 17:29:50 -05:00
parent 77349a2046
commit 778c785b21
5 changed files with 2953 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
elisp/rotate-text.el
View File

@@ -1,13 +1,17 @@
;; From <http://www.emacswiki.org/emacs/RotateText>
(provide 'rotate-text)
(defvar rotate-text-rotations
'(("true" "false")
("True" "False")
("yes" "no")
("t" "nil")
("left" "right" "top" "bottom")
("width" "height"))
"List of text rotation sets.")
("left" "right" "top" "bottom")
("width" "height")))
;;;###autoload
(defun rotate-region (beg end)
"Rotate all matches in `rotate-text-rotations' between point and mark."
(interactive "r")
@@ -75,6 +79,7 @@ Example:
(rotate-flatten-list (cdr list-of-lists)))
(list list-of-lists))))
;;;###autoload
(defun rotate-word-at-point ()
"Rotate word at point based on sets in `rotate-text-rotations'."
(interactive)
@@ -86,5 +91,3 @@ Example:
(rotate-region beg end)
(goto-char (if (> opoint end) end opoint))))))
(provide 'rotate-text)