From af33dd36b4209bcf70880ac96754727fc6e2b132 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 10 Sep 2021 18:28:54 -0500
Subject: Add studlify-dwim to case-map

---
 init.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index ed98a41..80e3f39 100644
--- a/init.el
+++ b/init.el
@@ -763,7 +763,13 @@ AKA, DO NOT USE THIS FUNCTION!!!"
     (:bind "c" #'capitalize-dwim
            "t" #'titlecase-dwim
            "u" #'upcase-dwim
-           "l" #'downcase-dwim))
+           "l" #'downcase-dwim
+           "s" (defun studlify-dwim (count)
+                 "Studlify region if active, or COUNT words if not."
+                 (interactive "*p")
+                 (if (region-active-p)
+                     (studlify-region (region-beginning) (region-end))
+                   (studlify-word count)))))
   
   (add-hook 'after-make-frame-functions
             (defun after-make-frame@maximize (frame)
-- 
cgit 1.4.1-21-gabe81