[Emacs LISP] Login freenode using ERC with prompt for password only

[Emacs LISP] Login freenode using ERC with prompt for password only

[Wenshan Ren]

Hello everyone, I am new to Emacs LISP and trying to write a emacs lisp, which hopefully will enable me to login irc without choosing server/port/nick. 

After reading "C-h f erc", I end up with

(defun my-erc() (erc :server "irc.freenode.net" :port "6667" :nick "mynickname"))

If I put `:pass "mypassword"` at the end of the list, it works fine. However, I don't want to put my password in .emacs, so I hope Emacs will ask me for password when needed.

With the my-erc function I wrote, erc will login password and I have to identify myself afterwards.

Could you give me some hints on solving this?



Wenshan

Re: [Emacs LISP] Login freenode using ERC with prompt for password only

[Pascal J. Bourguignon]

Wenshan Ren <renws1990@gmail.com> writes:

> Hello everyone, I am new to Emacs LISP and trying to write a emacs
> lisp, which hopefully will enable me to login irc without choosing
> server/port/nick.
>
> After reading "C-h f erc", I end up with
>
> (defun my-erc() (erc :server "irc.freenode.net" :port "6667" :nick "mynickname"))
>
> If I put `:pass "mypassword"` at the end of the list, it works
> fine. However, I don't want to put my password in .emacs, so I hope
> Emacs will ask me for password when needed.
>
> With the my-erc function I wrote, erc will login password and I have to identify myself afterwards.
>
> Could you give me some hints on solving this?

You could consider storing your irc password in ~/.authinfo, where other
passwords (for news, email, ftp, etc) can also be stored.

(require 'cl)
(defvar *authinfo-file* "~/.authinfo")
(defun password-for-machine-login (machine login)
   (cdr (assoc "password"
               (find-if (lambda (entry)
                           (and (string= machine (cdr (assoc "machine" entry)))
                                (string= login   (cdr (assoc "login" entry)))))
                         (netrc-parse *authinfo-file*)))))

(password-for-machine-login "irc.freenode.net" "pjb")
--> "XXXXXXXX"


or you can ask the password to the user each time (it grows old very
soon):

(defun password-for-machine-login (machine login)
   (let ((password-cache nil)) 
      (password-read (format "password for %s at %s ?" login machine))))

(password-for-machine-login "irc.freenode.net" "pjb")
--> "XXXXXXXX"

-- 
__Pascal Bourguignon__                     http://www.informatimago.com/
A bad day in () is better than a good day in {}.

Re: [Emacs LISP] Login freenode using ERC with prompt for password only

[Wenshan Ren]

Thank you so much, your reply really made me better on Emacs Lisp.

I can't understand the first function very well as a beginner, so I modified the second to meet my needs, very trivial, but works :)

(defun myerc ()
  (interactive)
  (let
      ((password-cache nil))
    (erc
     :server "irc.freenode.net"
     :port "6667"
     :nick "Meatball_py"
     :password (password-read (format "password for Meatball at freenode?")))))

Thanks again.

On Saturday, December 1, 2012 8:54:51 PM UTC+11, Pascal J. Bourguignon wrote:
> Wenshan Ren <renws1990@gmail.com> writes:
> 
> 
> 
> > Hello everyone, I am new to Emacs LISP and trying to write a emacs
> 
> > lisp, which hopefully will enable me to login irc without choosing
> 
> > server/port/nick.
> 
> >
> 
> > After reading "C-h f erc", I end up with
> 
> >
> 
> > (defun my-erc() (erc :server "irc.freenode.net" :port "6667" :nick "mynickname"))
> 
> >
> 
> > If I put `:pass "mypassword"` at the end of the list, it works
> 
> > fine. However, I don't want to put my password in .emacs, so I hope
> 
> > Emacs will ask me for password when needed.
> 
> >
> 
> > With the my-erc function I wrote, erc will login password and I have to identify myself afterwards.
> 
> >
> 
> > Could you give me some hints on solving this?
> 
> 
> 
> You could consider storing your irc password in ~/.authinfo, where other
> 
> passwords (for news, email, ftp, etc) can also be stored.
> 
> 
> 
> (require 'cl)
> 
> (defvar *authinfo-file* "~/.authinfo")
> 
> (defun password-for-machine-login (machine login)
> 
>    (cdr (assoc "password"
> 
>                (find-if (lambda (entry)
> 
>                            (and (string= machine (cdr (assoc "machine" entry)))
> 
>                                 (string= login   (cdr (assoc "login" entry)))))
> 
>                          (netrc-parse *authinfo-file*)))))
> 
> 
> 
> (password-for-machine-login "irc.freenode.net" "pjb")
> 
> --> "XXXXXXXX"
> 
> 
> 
> 
> 
> or you can ask the password to the user each time (it grows old very
> 
> soon):
> 
> 
> 
> (defun password-for-machine-login (machine login)
> 
>    (let ((password-cache nil)) 
> 
>       (password-read (format "password for %s at %s ?" login machine))))
> 
> 
> 
> (password-for-machine-login "irc.freenode.net" "pjb")
> 
> --> "XXXXXXXX"
> 
> 
> 
> -- 
> 
> __Pascal Bourguignon__                     http://www.informatimago.com/
> 
> A bad day in () is better than a good day in {}.