1

I'm not sure if this is possible or if there's a workaround for it, but I want M-x erc to set the password after I try to call it, but before I input the actual parameters.

What I originally had in my init.el was

(let ((erc-plist (car (auth-source-search :host "irc.freenode.net"))))
  (setq erc-server "irc.freenode.net")
  (setq erc-nick (plist-get erc-plist :user))
  (setq erc-password (funcall (plist-get erc-plist :secret))))

But this runs on startup, which is less than ideal because I run Emacs as a systemd user unit, and it needs to decrypt authinfo.gpg

So I tried to create an advice like the following:

(defadvice erc (:before (&key (server (erc-compute-server))
                              (port   (erc-compute-port))
                              (nick   (erc-compute-nick))
                              password
                              (full-name (erc-compute-full-name))))
  "Set up nick and password before running ERC."
  (let ((erc-plist (car (auth-source-search :host "irc.freenode.net"))))
    (setq erc-server "irc.freenode.net")
    (setq erc-nick (plist-get erc-plist :user))
    (setq erc-password (funcall (plist-get erc-plist :secret)))))

But the advice will only run after I input the parameters from ERC, so it's already too late.

I also use helm, so if it's possible to add some hook for helm to run a function right after I select erc from the menu, it would solve my problem.

YuriAlbuquerque
  • 115
  • 6
  • 1
    The question is unclear. Please specify exactly what you are trying to do, preferably showing what (code) you already tried. – Drew May 31 '18 at 00:00
  • @Drew ok, edited with some more details. – YuriAlbuquerque May 31 '18 at 15:05
  • 2
    `erc` is an autoload function. If you only need to get authentication once you can call your password setup with `eval-after-load` for package `erc.el`. Is there any reason that forces you to use `defadvice` instead of `advice-add`? If you really need to call the password setup at each interactive call of `erc` you must add an interactive-form to your advice that overrides the original interactive form. In the new interactive form you first do the password setup and afterwards do the original stuff, i.e., `(interactive (progn (...passowrd-setup...) (erc-select-read-args)))`. – Tobias May 31 '18 at 20:52
  • It's still not clear (to me), what the *question* is. I don't see a question. – Drew May 31 '18 at 23:56
  • @Tobias no, I don't need to use `defadvice`, it was just one of the things I tried. – YuriAlbuquerque Jun 07 '18 at 15:36

1 Answers1

1

You can create your own command to set all variables before starting ERC:

(defun my/erc-freenode ()
  (interactive)
  (let ((erc-plist (car (auth-source-search :host "irc.freenode.net")))
        (erc-prompt-for-password nil))
    (setq erc-server "irc.freenode.net")
    (setq erc-nick (plist-get erc-plist :user))
    (setq erc-password (funcall (plist-get erc-plist :secret)))
    (erc)))

Then, you have to type M-x my/erc-freenode to start ERC on Freenode.

Damien Cassou
  • 877
  • 4
  • 14