From d9e602e4128a8aaae39ba81296f7042bc2545053 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 13 Oct 2021 17:58:04 -0500
Subject: I told myself I'd have useful commit messages today

Apparently I lied.
---
 lisp/acdw-circe.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'lisp/acdw-circe.el')

diff --git a/lisp/acdw-circe.el b/lisp/acdw-circe.el
index ec15f8e..958ef38 100644
--- a/lisp/acdw-circe.el
+++ b/lisp/acdw-circe.el
@@ -90,5 +90,17 @@ message the current topic."
         (message "%s: %s" buf circe-server-killed-confirmation)
         (kill-buffer)))))
 
+;;; Dumb modes
+
+(define-minor-mode circe-cappy-hour-mode
+  "ENABLE CAPPY HOUR IN CIRCE!"
+  :lighter "CAPPY HOUR"
+  (when (derived-mode-p 'circe-chat-mode)
+    (if circe-cappy-hour-mode
+        (setq-local lui-input-function
+                    (lambda (input) (circe--input (upcase input))))
+      ;; XXX: It'd be better if this were more general, but whatever.
+      (setq-local lui-input-function #'circe--input))))
+
 (provide 'acdw-circe)
 ;;; acdw-circe.el ends here
-- 
cgit 1.4.1-21-gabe81