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)))
_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
