diff options
Diffstat (limited to 'lisp/acdw-circe.el')
-rw-r--r-- | lisp/acdw-circe.el | 12 |
1 files changed, 12 insertions, 0 deletions
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." | |||
90 | (message "%s: %s" buf circe-server-killed-confirmation) | 90 | (message "%s: %s" buf circe-server-killed-confirmation) |
91 | (kill-buffer))))) | 91 | (kill-buffer))))) |
92 | 92 | ||
93 | ;;; Dumb modes | ||
94 | |||
95 | (define-minor-mode circe-cappy-hour-mode | ||
96 | "ENABLE CAPPY HOUR IN CIRCE!" | ||
97 | :lighter "CAPPY HOUR" | ||
98 | (when (derived-mode-p 'circe-chat-mode) | ||
99 | (if circe-cappy-hour-mode | ||
100 | (setq-local lui-input-function | ||
101 | (lambda (input) (circe--input (upcase input)))) | ||
102 | ;; XXX: It'd be better if this were more general, but whatever. | ||
103 | (setq-local lui-input-function #'circe--input)))) | ||
104 | |||
93 | (provide 'acdw-circe) | 105 | (provide 'acdw-circe) |
94 | ;;; acdw-circe.el ends here | 106 | ;;; acdw-circe.el ends here |