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