From e8d4afa471bc4812eef63ae9b8f7c156638fd8f8 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 3 Sep 2021 16:19:27 -0500
Subject: Further improve IRC experience

- Add SLAP command
- Kill buffer on PART
- Turns out, circe formatting variables can be functions!  Thank the gods :D
---
 lisp/acdw-irc.el | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'lisp')

diff --git a/lisp/acdw-irc.el b/lisp/acdw-irc.el
index 0891f31..f5e5657 100644
--- a/lisp/acdw-irc.el
+++ b/lisp/acdw-irc.el
@@ -102,6 +102,20 @@ already been connected to."
           (y-or-n-p (format "Already connected to %s, reconnect?" network)))
       (circe network)))
 
+;; the most important command ever.
+(defun circe-command-SLAP (nick)
+  "Slap NICK around with a large trout."
+  (interactive "sNick: ")
+  (if (not circe-chat-target)
+      (circe-display-server-message "No target for current buffer")
+    (let ((line    (concat "slaps " nick " around a bit with a large trout")))
+      (circe-display 'circe-format-self-action
+                     :body line 
+                     :nick (circe-nick))
+      (irc-send-ctcp (circe-server-process)
+                     circe-chat-target
+                     "ACTION" line))))
+
 
 (provide 'acdw-irc)
 ;;; acdw-irc.el ends here
-- 
cgit 1.4.1-21-gabe81