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