Re: /ame source
Emanuel Berg <[email protected]> Mon, 08 Jan 2024 04:50:21 +0100
| Newsgroups | gmane.emacs.erc.general |
|---|---|
| Message-ID | <[email protected]> |
>> 1. $ git checkout -b my-branch master
>
> Should I do this from the directory where I have the
> Emacs source?
I don't know if we will ever figure all that out but here are
all four functions:
(defun erc-cmd-GMSG (line)
"Send LINE to all channels on all networks you are on."
(interactive "sSend to all channels: ")
(setq line (erc-trim-string line))
(erc-with-all-buffers-of-server nil
(lambda () (erc-channel-p (erc-default-target)))
(erc-send-message line)))
(put 'erc-cmd-GMSG 'do-not-parse-args t)
(defun erc-cmd-AMSG (line)
"Send LINE to all channels of the current network."
(interactive "sSend to all channels on this network: ")
(setq line (erc-trim-string line))
(erc-with-all-buffers-of-server erc-server-process
(lambda () (erc-channel-p (erc-default-target)))
(erc-send-message line)))
(put 'erc-cmd-AMSG 'do-not-parse-args t)
(defun erc-cmd-GME (line)
"Send LINE as an action to all channels on all networks you are on."
(interactive "sSend action to all channels: ")
(erc-with-all-buffers-of-server nil
(lambda () (erc-channel-p (erc-default-target)))
(erc-cmd-ME line) ))
(put 'erc-cmd-GME 'do-not-parse-args t)
(defun erc-cmd-AME (line)
"Send LINE as an action to all channels on the current network."
(interactive "sSend action to all channels on this network: ")
(erc-with-all-buffers-of-server erc-server-process
(lambda () (erc-channel-p (erc-default-target)))
(erc-cmd-ME line) ))
(put 'erc-cmd-AME 'do-not-parse-args t)
--
underground experts united
https://dataswamp.org/~incal