From mboxrd@z Thu Jan  1 00:00:00 1970
From: Bastien <bzg@altern.org>
Subject: Re: Include other files?
Date: Fri, 02 Nov 2007 15:01:57 +0000
Message-ID: <873avod72y.fsf@bzg.ath.cx>
References: <ka3avp4fcp.fsf@home.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
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 1Inx6J-0000b5-Cf
	for emacs-orgmode@gnu.org; Fri, 02 Nov 2007 10:02:19 -0400
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1Inx6H-0000Zd-Jf
	for emacs-orgmode@gnu.org; Fri, 02 Nov 2007 10:02:18 -0400
Received: from [199.232.76.173] (helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1Inx6H-0000ZP-5h
	for emacs-orgmode@gnu.org; Fri, 02 Nov 2007 10:02:17 -0400
Received: from fk-out-0910.google.com ([209.85.128.185])
	by monty-python.gnu.org with esmtp (Exim 4.60)
	(envelope-from <bastienguerry@googlemail.com>) id 1Inx6G-0005t1-1D
	for emacs-orgmode@gnu.org; Fri, 02 Nov 2007 10:02:16 -0400
Received: by fk-out-0910.google.com with SMTP id 19so1042644fkr
	for <emacs-orgmode@gnu.org>; Fri, 02 Nov 2007 07:02:13 -0700 (PDT)
In-Reply-To: <ka3avp4fcp.fsf@home.net> (Richard G. Riley's message of "Fri, 02
	Nov 2007 02:15:50 +0100")
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: emacs-orgmode@gnu.org

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