From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.org!not-for-mail
From: Tim McNamara <timmcn@bitstream.net>
Newsgroups: gmane.emacs.help
Subject: Re: elisp question
Date: Thu, 01 Dec 2005 19:02:55 -0600
Organization: ipHouse - Welcome Home!
Message-ID: <m2wtioxqdc.fsf@Althea.local>
References: <m24q5tybj6.fsf@Althea.local>
	<87iru9qug6.fsf-monnier+gnu.emacs.help@gnu.org>
	<m2r78whb08.fsf@Althea.local>
	<878xv4o7ps.fsf-monnier+gnu.emacs.help@gnu.org>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1133486849 13562 80.91.229.2 (2 Dec 2005 01:27:29 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Fri, 2 Dec 2005 01:27:29 +0000 (UTC)
Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Fri Dec 02 02:27:28 2005
Return-path: <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>
Original-Received: from lists.gnu.org ([199.232.76.165])
	by ciao.gmane.org with esmtp (Exim 4.43)
	id 1Ehzhq-00055M-R9
	for geh-help-gnu-emacs@m.gmane.org; Fri, 02 Dec 2005 02:27:24 +0100
Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43)
	id 1Ehzhk-0003CD-Uo
	for geh-help-gnu-emacs@m.gmane.org; Thu, 01 Dec 2005 20:27:17 -0500
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!headwall.stanford.edu!news.prairienet.org!news.ks.uiuc.edu!news.glorb.com!green.octanews.net!news-out.octanews.net!news-2.mpls.iphouse.net.POSTED!not-for-mail
Original-Newsgroups: gnu.emacs.help
User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (darwin)
Cancel-Lock: sha1:6u3F2oZ7kF3AYFZeMxr/89kdKEc=
Original-Lines: 26
Original-NNTP-Posting-Date: 01 Dec 2005 19:02:56 CST
Original-NNTP-Posting-Host: 94055a85.newsreader.iphouse.net
Original-X-Trace: DXC=R[W\>WlGRe3H_N<Qe8mdG<Vn\Tj8`^Bb;
	eHS>e[L>8307^jQQFiSjb:m:@8]TdIgg5f@e7N90MVd=FNgACeLGa97
Original-X-Complaints-To: abuse@iphouse.net
Original-Xref: shelby.stanford.edu gnu.emacs.help:135989
Original-To: help-gnu-emacs@gnu.org
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/help-gnu-emacs>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Xref: news.gmane.org gmane.emacs.help:31596
Archived-At: <http://permalink.gmane.org/gmane.emacs.help/31596>

Stefan Monnier <monnier@iro.umontreal.ca> writes:

>>> (let ((files (directory-files "foo/bar/kaya" 'full "[^.]\\|...")))
>>> (pop-to-buffer (find-file-noselect (nth (random (length files)) files))))
>
>> That looks simpler than what I was thinking, although I'll have to
>> go through it argument by argument to make sure I understand it.  I
>> was expecting to have to count the number of files in the
>> directory, then
>
> (length files) counts the number of files.
>
>> use that number as the limit to (random),
>
> Indeed, that's what it does.
>
>> and somehow be able to make (find-files) use the result from (random) as
>> the name of the file to be read into the buffer.
>
> Indeed (nth ... files) selects the randomly chosen file name from the list
> of file names.

Well, there it is.  It works well in early testing.  Sheesh, it'd have
taken me a month to work up something like that!  Thanks lots.  Now I
get to go through the elisp manual and learn from the example- and to
populate the data directory with files.