Add linked org-files to org-agenda-files

Question

In .emacs I have

(org-agenda-files (quote ("d:/GTD/a.org" "d:/GTD/b.org" "d:/GTD/c.org")))

In this three file I can have links to other org files. Is it possible (on the fly, using current buffers) scan a.org, b.org, c.org and add links to org-agenda-files?

Update 1.

There is one possibility. Linked files are in several well-defined folders. On How to add .org files under org-directory to agenda is instructions on how to add all file. Is there any way to add to the org-agenda-files only those that are linked in a.org, b.org, c.org?.

Update 2.

I don't know why, but function became visible in emacs after the addition of (interactive). Full code of that function:

    (defun add-links-to-org-agenda-files ()
       (interactive)
       (org-element-map  
           (org-element-parse-buffer)
           'link
           (lambda (x) 
             (if (equal (org-element-property :type x) "file")
                (add-to-list 'org-agenda-files (org-element-property :path x))))))

Regards

Krzysiek

Re: interactive - an interactive function (aka a "command") can be executed using `M-x command`, whereas a non-interactive function can only be executed using `M-: (function)` - see the Emacs Lisp manual for more details, in particular [this section](https://www.gnu.org/software/emacs/manual/html_node/elisp/Using-Interactive.html#Using-Interactive) and [this SO question](http://stackoverflow.com/questions/12585670/relationship-between-emacs-functions-and-commands). — NickD, Jan 13 '17 at 11:18

score 3 · Accepted Answer · answered Jun 28 '16 at 21:28

There is nothing like this built into org AFAIK. However, you should be able to write a lisp function that does this. The bare minimum would look like this:

    (org-element-map
        (org-element-parse-buffer)
        'link
        (lambda (x) (message (org-element-property :path x))))

That selects all link elements from the parse tree of the current buffer and applies a function to each one. The function selects the path property of each link and prints it out in the echo area. You'd want to add code to select links of type "file" only and you'd want the function to add them to org-agenda-list, if they are not there already. Here's a function that does this much - note that you would have to apply this function to each file of your org-agenda-files list, which is left as an exercise:

    (defun add-links-to-org-agenda-files ()
       (org-element-map  
           (org-element-parse-buffer)
           'link
           (lambda (x) 
             (if (equal (org-element-property :type x) "file")
                (add-to-list 'org-agenda-files (org-element-property :path x))))))

See the org-element API page for more information.

Add linked org-files to org-agenda-files

1 Answers1