diff options
| author | Case Duckworth | 2021-10-13 17:58:04 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-10-13 17:58:04 -0500 |
| commit | d9e602e4128a8aaae39ba81296f7042bc2545053 (patch) | |
| tree | 944b3d2f1406be428854b121ce0bcd1802df4236 /lisp/acdw-circe.el | |
| parent | yadda yadda yadda (diff) | |
| download | emacs-d9e602e4128a8aaae39ba81296f7042bc2545053.tar.gz emacs-d9e602e4128a8aaae39ba81296f7042bc2545053.zip | |
I told myself I'd have useful commit messages today
Apparently I lied.
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 |