Add circe-command-SLAP

1 files changed, 9 insertions, 1 deletions

@@ -9,6 +9,7 @@
 (require 'circe)
 
 ;;; Chat commands
+
 (defun circe-command-SHORTEN (url)
   "Shorten URL using `0x0-shorten-uri'."
   (interactive "sURL to shorten: ")
@@ -17,11 +18,18 @@
   (let ((short-url (0x0-shorten-uri (0x0--choose-server) url)))
     (circe-command-SAY short-url)))
 
+(defun circe-command-SLAP (nick)
+  "Slap NICK around a bit with a large trout."
+  (interactive "sWho we slappin' today, boss? ")
+  (circe-command-ME (concat "slaps "
+                            (string-trim nick)
+                            " around a bit with a large trout")))
+
 ;;; Hooks
 
 (defun circe-chat@set-prompt ()
   "Set the prompt to the buffer name, shortening it."
-  (interactive) ; set interactive to unfuck the prompt when need be
+  (interactive)             ; set interactive to unfuck the prompt when need be
   (lui-set-prompt
    (propertize
     (concat