From be774c6ee7f5f504bcf06697f33843bc5c81270a Mon Sep 17 00:00:00 2001 From: "W. Trevor King" Date: Wed, 6 Oct 2010 09:30:46 -0400 Subject: [PATCH] Clean up default org-mode export options to only export the body section. --- IkiWiki/Plugin/org.pm | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) 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 '; } -- 2.26.2