diff options
| author | Case Duckworth | 2021-09-03 16:19:27 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-09-03 16:19:27 -0500 |
| commit | e8d4afa471bc4812eef63ae9b8f7c156638fd8f8 (patch) | |
| tree | 2b9849e9a3dd18f83f8b134ec8e2230dbf92ab4b /lisp | |
| parent | Add `clone-buffer-write-file' and sort (diff) | |
| download | emacs-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.el | 14 |
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 |