From 3d10340f69651608362bacbe91cc10a90bdf4de3 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 1 Sep 2021 08:37:17 -0500
Subject: Add titlecase

---
 init.el | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index e3fee58..0eb32db 100644
--- a/init.el
+++ b/init.el
@@ -976,11 +976,16 @@ like a dumbass."
     (setq read-extended-command-predicate
           #'command-completion-default-include-p))
 
+  (defvar case-map (make-sparse-keymap)
+    "A keymap for setting case in various ways.")
+  (global-set-key (kbd "C-c c") case-map)
+  
   (:global "M-=" count-words
            "C-w" kill-region-or-backward-word
-           "C-c c" capitalize-dwim
-           "C-c u" upcase-dwim
-           "C-c l" downcase-dwim
+           "C-c c c" capitalize-dwim
+           "C-c c t" titlecase-dwim
+           "C-c c u" upcase-dwim
+           "C-c c l" downcase-dwim
            "C-c d" acdw/insert-iso-date
            "M-`" nil)
 
@@ -999,6 +1004,7 @@ like a dumbass."
   (defalias 'backward-word-with-case 'backward-word
     "Alias for `backward-word for use in `case-repeat-map'.")
 
+  ;; XXX: this isn't repeating correctly ...
   (defvar case-repeat-map
     (let ((map (make-sparse-keymap)))
       (define-key map "c" #'capitalize-word)
-- 
cgit 1.4.1-21-gabe81