From fe3d1162cc573a9d50e5b3a04fc9d39b14930485 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 30 Sep 2021 17:20:24 -0500
Subject: Add circe-command-SLAP

---
 lisp/acdw-circe.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'lisp')

diff --git a/lisp/acdw-circe.el b/lisp/acdw-circe.el
index e85587b..d6f5b90 100644
--- a/lisp/acdw-circe.el
+++ b/lisp/acdw-circe.el
@@ -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
-- 
cgit 1.4.1-21-gabe81