[Orgmode] Re: agenda files list

[Eraldo Helal]

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)))