From mboxrd@z Thu Jan  1 00:00:00 1970
From: Eraldo Helal <eraldo@eraldo.at>
Subject: agenda files list
Date: Tue, 20 Oct 2009 05:15:19 +0200
Message-ID: <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 1N05CJ-0008LV-CG
	for emacs-orgmode@gnu.org; Mon, 19 Oct 2009 23:15:43 -0400
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1N05CH-0008L3-1D
	for emacs-orgmode@gnu.org; Mon, 19 Oct 2009 23:15:42 -0400
Received: from [199.232.76.173] (port=54361 helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1N05CG-0008L0-Rv
	for emacs-orgmode@gnu.org; Mon, 19 Oct 2009 23:15:40 -0400
Received: from ey-out-1920.google.com ([74.125.78.146]:1152)
	by monty-python.gnu.org with esmtp (Exim 4.60)
	(envelope-from <admin@eraldo.at>) id 1N05CG-0002dS-K3
	for emacs-orgmode@gnu.org; Mon, 19 Oct 2009 23:15:40 -0400
Received: by ey-out-1920.google.com with SMTP id 3so5153097eyh.34
	for <emacs-orgmode@gnu.org>; Mon, 19 Oct 2009 20:15:39 -0700 (PDT)
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>

I would like to have a list of all agenda files
where each item links to its file.
This would be great for doing my weekly review since in my system all
agenda files need to be viewed weekly.
It could also be added to the agenda menu (C-c a) as an option.

Workaround:
Because I don't know how to get a nice looking list of all my agenda files...
shabble came up with some code which I modified and the result is below:

;; list all agenda-files (linking to them) in a new buffer
(defun 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 "Agenda Files:\n")
      (dolist (file org-agenda-files)
        (let
	    ((desc (first (split-string (file-name-nondirectory file) "\\.org$"))))
	    (insert (concat "- [[" file "][" desc "]]\n"))
	)
      )
      (org-mode)
    )
    (switch-to-buffer list-buf))

If anyone else has use for this please give some feedback.
If someone could help us make this code more mature... please do the same.

Greetings,
Eraldo