about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-01-06 16:43:31 -0600
committerCase Duckworth2022-01-06 16:43:31 -0600
commite4ce00f4d5c3cb91ca20e764d5a1c6a129181377 (patch)
tree80c69e4043f736f3db921d8c168cf702337e856c
parentAdd option to user-save buffers when quitting Emacs (diff)
downloademacs-e4ce00f4d5c3cb91ca20e764d5a1c6a129181377.tar.gz
emacs-e4ce00f4d5c3cb91ca20e764d5a1c6a129181377.zip
Add /POKE stub command
TODO : I've got to write these commands!!!
-rw-r--r--lisp/+circe.el4
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/+circe.el b/lisp/+circe.el index 501bd21..c29cea6 100644 --- a/lisp/+circe.el +++ b/lisp/+circe.el
@@ -165,6 +165,7 @@ See `circe-network-options' for a list of common options."
165 (funcall +circe-server-buffer-action buffer)))) 165 (funcall +circe-server-buffer-action buffer))))
166 166
167;;; Chat commands 167;;; Chat commands
168;; TODO: Actually ... write these~!?!?!
168 169
169(defun circe-command-SHORTEN (url) 170(defun circe-command-SHORTEN (url)
170 "Shorten URL using `0x0-shorten-uri'.") 171 "Shorten URL using `0x0-shorten-uri'.")
@@ -172,6 +173,9 @@ See `circe-network-options' for a list of common options."
172(defun circe-command-SLAP (nick) 173(defun circe-command-SLAP (nick)
173 "Slap NICK around a bit with a large trout.") 174 "Slap NICK around a bit with a large trout.")
174 175
176(defun circe-command-POKE (nick)
177 "Poke NICK like in the old Facebook days.")
178
175;;; Pure idiocy 179;;; Pure idiocy
176 180
177(define-minor-mode circe-cappy-hour-mode 181(define-minor-mode circe-cappy-hour-mode