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) |