1 files changed, 14 insertions, 0 deletions
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

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."
102	(y-or-n-p (format "Already connected to %s, reconnect?" network)))	102	(y-or-n-p (format "Already connected to %s, reconnect?" network)))
103	(circe network)))	103	(circe network)))
104		104
		105	;; the most important command ever.
		106	(defun circe-command-SLAP (nick)
		107	"Slap NICK around with a large trout."
		108	(interactive "sNick: ")
		109	(if (not circe-chat-target)
		110	(circe-display-server-message "No target for current buffer")
		111	(let ((line (concat "slaps " nick " around a bit with a large trout")))
		112	(circe-display 'circe-format-self-action
		113	:body line
		114	:nick (circe-nick))
		115	(irc-send-ctcp (circe-server-process)
		116	circe-chat-target
		117	"ACTION" line))))
		118
105		119
106	(provide 'acdw-irc)	120	(provide 'acdw-irc)
107	;;; acdw-irc.el ends here	121	;;; acdw-irc.el ends here