From: Wenshan Ren <renws1990@gmail.com>
To: help-gnu-emacs@gnu.org
Subject: Re: [Emacs LISP] Login freenode using ERC with prompt for password only
Date: Sat, 1 Dec 2012 12:52:22 -0800 (PST) [thread overview]
Message-ID: <7da798a5-cb19-4800-b4f2-a03eff0677d6@googlegroups.com> (raw)
In-Reply-To: <87624mxfkk.fsf@kuiper.lan.informatimago.com>
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 {}.
prev parent reply other threads:[~2012-12-01 20:52 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
2012-12-01 20:52 ` Wenshan Ren [this message]
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=7da798a5-cb19-4800-b4f2-a03eff0677d6@googlegroups.com \
--to=renws1990@gmail.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.