From mboxrd@z Thu Jan  1 00:00:00 1970
From: Eraldo Helal <eraldo@eraldo.at>
Subject: Re: agenda files list
Date: Tue, 20 Oct 2009 05:24:11 +0200
Message-ID: <938fae2d0910192024h30e619e1v2ad959f94eee51d6@mail.gmail.com>
References: <938fae2d0910192015u77b5a25fhfc04e3765c501b9d@mail.gmail.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1N05Kw-0004Ko-9h
	for emacs-orgmode@gnu.org; Mon, 19 Oct 2009 23:24:38 -0400
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1N05Kr-0004KM-0v
	for emacs-orgmode@gnu.org; Mon, 19 Oct 2009 23:24:37 -0400
Received: from [199.232.76.173] (port=42712 helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1N05Kq-0004KJ-TS
	for emacs-orgmode@gnu.org; Mon, 19 Oct 2009 23:24:32 -0400
Received: from mail-ew0-f206.google.com ([209.85.219.206]:47683)
	by monty-python.gnu.org with esmtp (Exim 4.60)
	(envelope-from <admin@eraldo.at>) id 1N05Kq-0003co-Iz
	for emacs-orgmode@gnu.org; Mon, 19 Oct 2009 23:24:32 -0400
Received: by ewy2 with SMTP id 2so5718202ewy.31
	for <emacs-orgmode@gnu.org>; Mon, 19 Oct 2009 20:24:31 -0700 (PDT)
In-Reply-To: <938fae2d0910192015u77b5a25fhfc04e3765c501b9d@mail.gmail.com>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: Org-Mode <emacs-orgmode@gnu.org>

code update:

;; list all agenda categories (linking to their files) in a new buffer
(defun orgx-list-agenda-files()
  "Create a list of all org-agenda files as org-mode links"
  (interactive)
  (let ((list-buf (get-buffer-create "*org-agenda-files*")))
    (with-current-buffer list-buf
      (erase-buffer)
      (insert "* Org Agenda Files\n")
      (dolist (file org-agenda-files)
        (let ((desc (file-name-sans-extension (file-name-nondirectory file))))
        (insert (concat "- [[" file "][" desc "]]\n")))))
    (switch-to-buffer list-buf))
  (org-mode)
  (goto-char (point-min))
  (org-cycle '(3)))