From: W. Trevor King <wking@drexel.edu>
Date: Wed, 6 Oct 2010 13:30:46 +0000 (-0400)
Subject: Clean up default org-mode export options to only export the body section.
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=8e3efd2825440946d6e46d256bfe6fe984a267d4;p=ikiwiki.git

Clean up default org-mode export options to only export the body section.
---

diff --git a/IkiWiki/Plugin/org.pm b/IkiWiki/Plugin/org.pm
index 5ddfdfe4d..28cef07fb 100644
--- a/IkiWiki/Plugin/org.pm
+++ b/IkiWiki/Plugin/org.pm
@@ -44,17 +44,19 @@ sub checkconfig () {
 	if (! defined $config{emacs_org_options}) {
 		# See http://orgmode.org/org.html#Publishing-options
 		$config{emacs_org_options}='--batch '.
-			'--load org '. # =$HOME/lib/emacs/org.el
-			'--eval "(setq '.
-				"org-export-author-info 'nil ".
-				"org-export-headline-levels 3 ".
-				"org-export-html-preamble 'nil ".
-				"org-export-html-postamble 'nil ".
-				"org-export-with-toc 'nil ".
-				"org-export-skip-text-before-1st-heading t ".
-			')" '.
+			#q{--eval '(setq load-path (cons "~/share/emacs/site-lisp" load-path))' }.
+			'--load org '. # $HOME/share/emacs/site-lisp/org.el
+			q{--eval "(setq org-export-author-info 'nil)" }.
+			q{--eval "(setq org-export-headline-levels 3)" }.
+			q{--eval "(setq org-export-html-preamble 'nil)" }.
+			q{--eval "(setq org-export-html-postamble 'nil)" }.
+			q{--eval "(setq org-export-with-toc 'nil)" }.
+			q{--eval "(setq org-export-skip-text-before-1st-heading t)" }.
 			"--visit FILE ".
-			q{--eval "(org-export-as-html-to-buffer 'nil)" }.
+			'--funcall org-mode '.
+			#q{--eval "(org-export-as-html-to-buffer 'nil)" }. # does not expose body-only option
+			'--funcall mark-whole-buffer '.
+			'--funcall org-replace-region-by-html '.
 			q{--eval '(set-visited-file-name "/dev/stdout")' }.
 			'--funcall save-buffer ';
 	}