Add circe-command-SLAP

2 files changed, 11 insertions, 2 deletions

@@ -1056,7 +1056,8 @@ specific to most general, they are these:
             #'enable-circe-color-nicks
             ;; #'enable-circe-display-images
             #'enable-circe-new-day-notifier
-            #'circe-chat@set-prompt))
+            #'circe-chat@set-prompt)
+    (:bind "C-c C-s" #'circe-command-SLAP))
 
   (autoload 'circe-nick-color-reset "circe-color-nicks")
   (add-hook 'modus-themes-after-load-theme-hook
@@ -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