Include other files?

Include other files?

[Richard G Riley]

Due to permissions and security issues I wish to spread my tasks over
separate files.

Is it possible to maybe "include" header files which have to org
directives?

e.g I might like to share the following between two different org
files:

common.inc:

#+SEQ_TODO: TODO(t) WAITING(w@) INPROGRESS(p@) | DONE(d) CANCELLED(x@) DELEGATED(l@)
#+SEQ_TODO: apple(a) | orange(d)

todo.org:

#+include common.inc

Re: Include other files?

[Bastien]

Richard G Riley <rileyrgdev@googlemail.com> writes:

> common.inc:
>
> #+SEQ_TODO: TODO(t) WAITING(w@) INPROGRESS(p@) | DONE(d) CANCELLED(x@) DELEGATED(l@)
> #+SEQ_TODO: apple(a) | orange(d)
>
> todo.org:
>
> #+include common.inc

This is not that straitforward, because org needs to read options like
#+SEQ_TODO before being able to fontify the buffer correctly.

But you can use a dynamic block for that:

(defun org-dblock-write:insert-file (params)
  "Insert a header from a file."
  (let ((file (plist-get params :file)))
    (if (file-exists-p file)
	(insert-file-contents file)
      (error "File %s cannot be found" file))))

Then at the beginning of your file:

#+BEGIN: insert-file :file "~/org/my-header.org"
#+END:

-- 
Bastien

Re: Include other files?

[Richard G Riley]

Bastien <bzg@altern.org> writes:

> Richard G Riley <rileyrgdev@googlemail.com> writes:
>
>> common.inc:
>>
>> #+SEQ_TODO: TODO(t) WAITING(w@) INPROGRESS(p@) | DONE(d) CANCELLED(x@) DELEGATED(l@)
>> #+SEQ_TODO: apple(a) | orange(d)
>>
>> todo.org:
>>
>> #+include common.inc
>
> This is not that straitforward, because org needs to read options like
> #+SEQ_TODO before being able to fontify the buffer correctly.
>
> But you can use a dynamic block for that:
>
> (defun org-dblock-write:insert-file (params)
>   "Insert a header from a file."
>   (let ((file (plist-get params :file)))
>     (if (file-exists-p file)
> 	(insert-file-contents file)
>       (error "File %s cannot be found" file))))
>
> Then at the beginning of your file:
>
> #+BEGIN: insert-file :file "~/org/my-header.org"
> #+END:

Wonderful stuff.