Re: /ame source

[Emanuel Berg]

>> 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