branch: elpa/crux
commit c79985f69b7cd96edb505199bd751f71ce6d4e58
Author: Jimmy Yuen Ho Wong <wyue...@gmail.com>
Commit: Bozhidar Batsov <bozhidar.bat...@gmail.com>
Saner functions for modifying cases on region for humans
By default `upcase-region` `downcase-region` and `captialize-region`
commands
are disabled in emacs, and for good reason because they are insane. Whenever
you've placed a mark anywhere in the document, inadventently pressing one
of the
assigned keybinding will change the cases for all the words in half a
document. These commands resurrect these potentially useful functions in a
much
saner way by wrapping them around `use-region-p`, so they are only activated
when `transient-mark-mode` is one.
---
README.md | 3 +++
crux.el | 21 +++++++++++++++++++++
2 files changed, 24 insertions(+)
diff --git a/README.md b/README.md
index 8d5b373..763d37c 100644
--- a/README.md
+++ b/README.md
@@ -67,6 +67,9 @@ Command |
Suggested Keybinding(s)
`crux-kill-whole-line` | <kbd>Super-k</kbd> |
Kill whole line
`crux-kill-line-backwards` | <kbd>C-Backspace</kbd> |
Kill line backwards
`crux-ispell-word-then-abbrev` | <kbd>C-c i</kbd> | Fix
word using `ispell` and then save to `abbrev`.
+`crux-upcase-region` | <kbd>C-x C-u</kbd> |
`upcase-region` when `transient-mark-mode` is on and region is active.
+`crux-downcase-region` | <kbd>C-x C-l</kbd> |
`downcase-region` when `transient-mark-mode` is on and region is active.
+`crux-capitalize-region` | <kbd>C-x M-c</kbd> |
`capitalize-region` when `transient-mark-mode` is on and region is active.
Here's how you'd bind some of the commands to keycombos:
diff --git a/crux.el b/crux.el
index 1886e30..bb46f31 100644
--- a/crux.el
+++ b/crux.el
@@ -590,6 +590,27 @@ Doesn't mess with special buffers."
(find-file-other-window (completing-read "Choose shell init file: "
candidates))
(find-file-other-window (car candidates)))))
+;;;###autoload
+(defun crux-upcase-region (beg end)
+ "`upcase-region' when `transient-mark-mode' is on and region is active."
+ (interactive "*r")
+ (when (use-region-p)
+ (upcase-region beg end)))
+
+;;;###autoload
+(defun crux-downcase-region (beg end)
+ "`downcase-region' when `transient-mark-mode' is on and region is active."
+ (interactive "*r")
+ (when (use-region-p)
+ (downcase-region beg end)))
+
+;;;###autoload
+(defun crux-capitalize-region (beg end)
+ "`capitalize-region' when `transient-mark-mode' is on and region is active."
+ (interactive "*r")
+ (when (use-region-p)
+ (capitalize-region beg end)))
+
;;
http://endlessparentheses.com/ispell-and-abbrev-the-perfect-auto-correct.html
;;;###autoload
(defun crux-ispell-word-then-abbrev (p)
