From dbb6181a5d8b5aa14a46bb207ebaf6c7911c8ced Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 15 Jun 2022 10:26:10 -0500
Subject: aodifu

---
 lisp/+titlecase.el | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'lisp/+titlecase.el')

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 @@
 
 ;;; Code:
 
-(defun +titlecase-sentence-style-dwim ()
-  "Titlecase a sentence."
-  (interactive)
-  (titlecase-dwim 'sentence))
+(defun +titlecase-sentence-style-dwim (&optional arg)
+  "Titlecase a sentence.
+With prefix ARG, toggle the value of
+`titlecase-downcase-sentences' before sentence-casing."
+  (interactive "P")
+  (let ((titlecase-downcase-sentences (if arg (not titlecase-downcase-sentences)
+                                        titlecase-downcase-sentences)))
+    (titlecase-dwim 'sentence)))
 
 (defun +titlecase-org-headings ()
   (interactive)
-- 
cgit 1.4.1-21-gabe81