branch: elpa/casual
commit 6a7fa4a56e467b1a4a360fe952624e3630fbc3c3
Merge: 08326c722d d4c64e54a4
Author: Charles Choi <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #146 from
kickingvegas/140-add-upcase-initials-region-to-editkit
Add upcase-initials-region to EditKit
---
.../images/casual-editkit-transform-screenshot.png | Bin 154973 -> 127099 bytes
lisp/casual-editkit-utils.el | 8 ++++++--
tests/test-casual-editkit-utils.el | 3 +++
3 files changed, 9 insertions(+), 2 deletions(-)
diff --git a/docs/images/casual-editkit-transform-screenshot.png
b/docs/images/casual-editkit-transform-screenshot.png
index 6afcb98823..225eca9bff 100644
Binary files a/docs/images/casual-editkit-transform-screenshot.png and
b/docs/images/casual-editkit-transform-screenshot.png differ
diff --git a/lisp/casual-editkit-utils.el b/lisp/casual-editkit-utils.el
index eb4e1ff13e..1a08ee9337 100644
--- a/lisp/casual-editkit-utils.el
+++ b/lisp/casual-editkit-utils.el
@@ -702,8 +702,12 @@ Commands pertaining to rectangle operations can be
accessed here."
Commands pertaining to transformation operations can be accessed here."
["Transform"
- [("c" "Capitialize" capitalize-dwim :transient t)
- ("l" "Make Lower Case" downcase-dwim :transient t)
+ [("c" "Capitalize" capitalize-dwim :transient t)
+ ("t" "Title Region (Upcase Initials)" upcase-initials-region
+ :transient t
+ :inapt-if-not use-region-p)]
+
+ [("l" "Make Lower Case" downcase-dwim :transient t)
("u" "Make Upper Case" upcase-dwim :transient t)]
[("RET" "Done" transient-quit-all)]]
diff --git a/tests/test-casual-editkit-utils.el
b/tests/test-casual-editkit-utils.el
index 4e3cead7ff..4de0c86515 100644
--- a/tests/test-casual-editkit-utils.el
+++ b/tests/test-casual-editkit-utils.el
@@ -608,15 +608,18 @@
(let ((tmpfile "casual-editkit-transform-text-tmenu.txt"))
(casualt-editkit-setup tmpfile)
(cl-letf ((casualt-mock #'capitalize-dwim)
+ (casualt-mock #'upcase-initials-region)
(casualt-mock #'downcase-dwim)
(casualt-mock #'upcase-dwim))
(let ((test-vectors
'((:binding "c" :command capitalize-dwim)
+ (:binding "t" :command upcase-initials-region)
(:binding "l" :command downcase-dwim)
(:binding "u" :command upcase-dwim)
(:binding "RET" :command transient-quit-all))))
+ (casualt-mock-active-region)
(casualt-suffix-testcase-runner test-vectors
#'casual-editkit-transform-text-tmenu
'(lambda () (random 5000)))))
