about summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
authorCase Duckworth2021-09-03 16:19:27 -0500
committerCase Duckworth2021-09-03 16:19:27 -0500
commite8d4afa471bc4812eef63ae9b8f7c156638fd8f8 (patch)
tree2b9849e9a3dd18f83f8b134ec8e2230dbf92ab4b /lisp
parentAdd `clone-buffer-write-file' and sort (diff)
downloademacs-e8d4afa471bc4812eef63ae9b8f7c156638fd8f8.tar.gz
emacs-e8d4afa471bc4812eef63ae9b8f7c156638fd8f8.zip
Further improve IRC experience
- Add SLAP command
- Kill buffer on PART
- Turns out, circe formatting variables can be functions!  Thank the gods :D
Diffstat (limited to 'lisp')
-rw-r--r--lisp/acdw-irc.el14
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."
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