diff options
author | Case Duckworth | 2022-06-15 10:26:10 -0500 |
---|---|---|
committer | Case Duckworth | 2022-06-15 10:26:10 -0500 |
commit | dbb6181a5d8b5aa14a46bb207ebaf6c7911c8ced (patch) | |
tree | 18b152655077e6519b491edeb76aa14f2cd10306 /lisp/+titlecase.el | |
parent | Fix startup complaining (diff) | |
download | emacs-dbb6181a5d8b5aa14a46bb207ebaf6c7911c8ced.tar.gz emacs-dbb6181a5d8b5aa14a46bb207ebaf6c7911c8ced.zip |
aodifu
Diffstat (limited to 'lisp/+titlecase.el')
-rw-r--r-- | lisp/+titlecase.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/+titlecase.el b/lisp/+titlecase.el index 1366a46..655ebe1 100644 --- a/lisp/+titlecase.el +++ b/lisp/+titlecase.el | |||
@@ -4,10 +4,14 @@ | |||
4 | 4 | ||
5 | ;;; Code: | 5 | ;;; Code: |
6 | 6 | ||
7 | (defun +titlecase-sentence-style-dwim () | 7 | (defun +titlecase-sentence-style-dwim (&optional arg) |
8 | "Titlecase a sentence." | 8 | "Titlecase a sentence. |
9 | (interactive) | 9 | With prefix ARG, toggle the value of |
10 | (titlecase-dwim 'sentence)) | 10 | `titlecase-downcase-sentences' before sentence-casing." |
11 | (interactive "P") | ||
12 | (let ((titlecase-downcase-sentences (if arg (not titlecase-downcase-sentences) | ||
13 | titlecase-downcase-sentences))) | ||
14 | (titlecase-dwim 'sentence))) | ||
11 | 15 | ||
12 | (defun +titlecase-org-headings () | 16 | (defun +titlecase-org-headings () |
13 | (interactive) | 17 | (interactive) |