From: "Pascal J. Bourguignon" <pjb@informatimago.com>
To: help-gnu-emacs@gnu.org
Subject: Re: [Emacs LISP] Login freenode using ERC with prompt for password only
Date: Sat, 01 Dec 2012 10:54:51 +0100 [thread overview]
Message-ID: <87624mxfkk.fsf@kuiper.lan.informatimago.com> (raw)
In-Reply-To: f1c308eb-737e-40a3-9bf2-c11af77cab01@googlegroups.com
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 {}.
next prev parent reply other threads:[~2012-12-01 9:54 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-12-01 9:21 [Emacs LISP] Login freenode using ERC with prompt for password only Wenshan Ren
2012-12-01 9:54 ` Pascal J. Bourguignon [this message]
2012-12-01 20:52 ` Wenshan Ren
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87624mxfkk.fsf@kuiper.lan.informatimago.com \
--to=pjb@informatimago.com \
--cc=help-gnu-emacs@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.