[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Orgmode] Include mechanism for web publishing
From: |
Michael Zeller |
Subject: |
Re: [Orgmode] Include mechanism for web publishing |
Date: |
Tue, 28 Jul 2009 17:53:06 -0700 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.1.50 (gnu/linux) |
Opps, for some reason the important portion didn't copy. You'll have to
forgive me, I'm still learning gnus.
Michael Zeller <address@hidden> writes:
> diff --git a/doc/org.texi b/doc/org.texi
> index e28b185..43cd2ab 100644
> --- a/doc/org.texi
> +++ b/doc/org.texi
> @@ -8262,13 +8262,15 @@ include your @file{.emacs} file, you could use:
> @end example
> @noindent
> The optional second and third parameter are the markup (@samp{quote},
> address@hidden, or @samp{src}), and, if the markup is @samp{src}, the
> -language for formatting the contents. The markup is optional, if it is not
> -given, the text will be assumed to be in Org mode format and will be
> -processed normally. The include line will also allow additional keyword
> -parameters @code{:prefix1} and @code{:prefix} to specify prefixes for the
> -first line and for each following line, as well as any options accepted by
> -the selected markup. For example, to include a file as an item, use
> address@hidden, @samp{org}, or @samp{src}), and, if the markup is @samp{src},
> +the language for formatting the contents. If the markup is @samp{org}, the
> +text will be assumed to be in Org mode format and will be processed
> +normally. The markup is optional, if it is not given, the text will be
> +included as is and any Org markup will be escaped. The include line will
> +also allow additional keyword parameters @code{:prefix1} and @code{:prefix}
> +to specify prefixes for the first line and for each following line, as well
> +as any options accepted by the selected markup. For example, to include a
> +file as an item, use
>
> @example
> #+INCLUDE: "~/snippets/xx" :prefix1 " + " :prefix " "
> diff --git a/lisp/org-exp.el b/lisp/org-exp.el
> index 280b1f4..83f9b74 100644
> --- a/lisp/org-exp.el
> +++ b/lisp/org-exp.el
> @@ -2085,13 +2085,14 @@ TYPE must be a string, any of:
> (not (file-readable-p file)))
> (insert (format "CANNOT INCLUDE FILE %s" file))
> (when markup
> - (if (equal (downcase markup) "src")
> - (setq start (format "#+begin_src %s %s\n"
> - (or lang "fundamental")
> - (or switches ""))
> - end "#+end_src")
> - (setq start (format "#+begin_%s %s\n" markup switches)
> - end (format "#+end_%s" markup))))
> - (cond ((equal (downcase markup) "src")
> - (setq start (format "#+begin_src %s %s\n"
> - (or lang "fundamental")
> - (or switches ""))
> - end "#+end_src"))
> - ((equal (downcase markup) "org") nil)
> - (t (setq start (format "#+begin_%s %s\n" markup switches)
> - end (format "#+end_%s" markup)))))
+ (cond ((equal (downcase markup) "src")
+ (setq start (format "#+begin_src %s %s\n"
+ (or lang "fundamental")
+ (or switches ""))
+ end "#+end_src"))
+ ((equal (downcase markup) "org") nil)
+ (t (setq start (format "#+begin_%s %s\n" markup switches)
+ end (format "#+end_%s" markup)))))
> (insert (or start ""))
> (insert (org-get-file-contents (expand-file-name file) prefix prefix1
> markup))
> (or (bolp) (newline))
>
> I hope that helps!
> ~Michael Zeller