Hi,
I only use a function name, e.g.
(defun my-html-preamble (options)
"my preamble")
and
(setq org-publish-project-alist
'(
("org-notes"
:base-directory "~/org/"
:base-extension "org"
:publishing-directory "~/public_html/"
:recursive t
:publishing-function org-html-publish-to-html
:html-preamble my-html-preamble)))
Does this work for you?
Best regards
Robert
On 12/12/2015 08:26 PM, Pillow Kuda Sai wrote:
> My setup:
> ;;; Minimal setup to load latest 'org-mode'
> ;; activate debugging
> (setq debug-on-error t
> debug-on-signal nil
> debug-on-quit nil)
>
> ;; add latest org-mode to load path
> (add-to-list 'load-path (expand-file-name "~/.emacs.d/elpa/org-20151123/"))
> (add-to-list 'load-path (expand-file-name
> "~/.emacs.d/elpa/org-20151123/" t))
>
> What I did:
> (require 'ox-publish)
> (setq org-publish-project-alist
> '(
> ("org-notes"
> :base-directory "~/org/"
> :base-extension "org"
> :publishing-directory "~/public_html/"
> :recursive t
> :publishing-function org-html-publish-to-html
> :headline-levels 4 ; Just the default for this project.
> :auto-preamble t
> ;; :html-preamble "Howdy" ; does work
> :html-preamble (concat "Howdy")
> )
> ("org-static"
> :base-directory "~/org/"
> :base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|ogg\\|swf"
> :publishing-directory "~/public_html/"
> :recursive t
> :publishing-function org-publish-attachment
> )
> ("org" :components ("org-notes" "org-static"))))
>
> What I expected: All off the above code is from
> http://orgmode.org/worg/org-tutorials/org-publish-html-tutorial.html
> except for the :html-preamble part. I want to add my own preamble by
> using a function. :html-preamble sets org-html-preamble (the options
> are: nil, t, string, function that must return a string). When using a
> string (:html-preamble "Howdy") it works. When using a function that
> returns a string (:html-preamble (concat "Howdy")) it doesn't work.
>
> I'm not entirely sure if this is a bug or if I'm missing something but
> hopefully the mailing-list can help me out :)
>
> Thanks in advance, Pillow
> ------------------------------------------------------------------------
>
>
>
> Emacs : GNU Emacs 25.0.50.2 (x86_64-unknown-linux-gnu, GTK+ Version 3.14.5)
> of 2015-10-09
> Package: Org-mode version 8.3.2 (8.3.2-39-gd537a3-elpa @
> /home/pillow/.emacs.d/elpa/org-20151123/)
>
> current state:
> ==============
> (setq
> org-src-lang-modes '(("ocaml" . tuareg) ("elisp" . emacs-lisp) ("ditaa"
> . artist) ("asymptote" . asy)
> ("dot" . fundamental) ("sqlite" . sql) ("calc" .
> fundamental)
> ("C" . c) ("cpp" . c++)
> ("C++" . c++) ("screen" . shell-script))
> org-tab-first-hook '(org-hide-block-toggle-maybe
> org-src-native-tab-command-maybe
> org-babel-hide-result-toggle-maybe
> org-babel-header-arg-expand)
> org-sparse-tree-default-date-type 'scheduled-or-deadline
> org-latex-default-packages-alist '(("AUTO" "inputenc" t) ("T1"
> "fontenc" t) ("" "fixltx2e" nil) ("" "graphicx" t)
> ("" "longtable" nil) ("" "float" nil) (""
> "wrapfig" nil) (""
> "rotating" nil)
> ("normalem" "ulem" t) ("" "amsmath" t) (""
> "textcomp" t) (""
> "marvosym" t)
> ("" "wasysym" t) ("" "amssymb" t) (""
> "hyperref" nil)
> "\\tolerance=1000")
> org-speed-command-hook '(org-speed-command-default-hook
> org-babel-speed-command-hook)
> org-occur-hook '(org-first-headline-recenter)
> org-metaup-hook '(org-babel-load-in-session-maybe)
> org-html-format-drawer-function '(lambda (name contents) contents)
> org-clock-into-drawer nil
> org-latex-format-inlinetask-function 'ignore
> org-confirm-shell-link-function 'yes-or-no-p
> org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
> org-latex-text-markup-alist '((bold . "\\textbf{%s}") (code . verb)
> (italic . "\\emph{%s}")
> (strike-through . "\\sout{%s}") (underline .
> "\\uline{%s}")
> (verbatim . protectedtexttt))
> org-latex-format-headline-function
> 'org-latex-format-headline-default-function
> org-after-todo-state-change-hook '(org-clock-out-if-current)
> org-latex-format-drawer-function '(lambda (name contents) contents)
> org-src-mode-hook '(org-src-babel-configure-edit-buffer
> org-src-mode-configure-edit-buffer)
> org-agenda-before-write-hook '(org-agenda-add-entry-text)
> org-babel-pre-tangle-hook '(save-buffer)
> org-html-allow-name-attribute-in-anchors t
> org-latex-logfiles-extensions '("aux" "idx" "log" "out" "toc" "nav"
> "snm" "vrb")
> org-export-copy-to-kill-ring 'if-interactive
> org-mode-hook '(#[nil "\300\301\302\303\304$\207"
> [org-add-hook change-major-mode-hook org-show-block-all
> append
> local] 5]
> #[nil "\300\301\302\303\304$\207"
> [org-add-hook change-major-mode-hook
> org-babel-show-result-all
> append local] 5]
> org-babel-result-hide-spec org-babel-hide-all-hashes)
> org-archive-hook '(org-attach-archive-delete-maybe)
> org-ascii-format-drawer-function '(lambda (name contents width) contents)
> org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point
> org-babel-execute-safely-maybe)
> org-cycle-hook '(org-cycle-hide-archived-subtrees
> org-cycle-hide-drawers org-cycle-hide-inline-tasks
> org-cycle-show-empty-lines
> org-optimize-window-after-visibility-change)
> org-html-mathjax-template "<script type=\"text/javascript\"
> src=\"%PATH\"></script>\n<script
> type=\"text/javascript\">\n<!--/*--><![CDATA[/*><!--*/\n
> MathJax.Hub.Config({\n // Only one of the two following lines,
> depending on user settings\n // First allows browser-native
> MathML display, second forces HTML/CSS\n :MMLYES: config:
> [\"MMLorHTML.js\"], jax: [\"input/TeX\"],\n :MMLNO: jax:
> [\"input/TeX\", \"output/HTML-CSS\"],\n extensions:
> [\"tex2jax.js\",\"TeX/AMSmath.js\",\"TeX/AMSsymbols.js\",\n
> \"TeX/noUndefined.js\"],\n tex2jax: {\n
> inlineMath: [ [\"\\\\(\",\"\\\\)\"] ],\n displayMath: [
> ['$$','$$'], [\"\\\\[\",\"\\\\]\"],
> [\"\\\\begin{displaymath}\",\"\\\\end{displaymath}\"] ],\n
> skipTags:
> [\"script\",\"noscript\",\"style\",\"textarea\",\"pre\",\"code\"],\n
> ignoreClass: \"tex2jax_ignore\",\n processEscapes:
> false,\n processEnvironments: true,\n preview:
> \"TeX\"\n },\n showProcessingMessages: true,\n
> displayAlign: \"%ALIGN\",\n displayIndent: \"%INDENT\",\n\n
> \"HTML-CSS\": {\n scale: %SCALE,\n
> availableFonts: [\"STIX\",\"TeX\"],\n preferredFont:
> \"TeX\",\n webFont: \"TeX\",\n imageFont:
> \"TeX\",\n showMathMenu: true,\n },\n
> MMLorHTML: {\n prefer: {\n MSIE:
> \"MML\",\n Firefox: \"MML\",\n Opera:
> \"HTML\",\n other: \"HTML\"\n }\n
> }\n });\n/*]]>*///-->\n</script>"
> org-html-mathjax-options '((path
> "http://orgmode.org/mathjax/MathJax.js";) (scale "100") (align "center")
> (indent "2em") (mathml nil))
> org-export-with-creator 'comment
> org-html-creator-string "<a
> href=\"http://www.gnu.org/software/emacs/\";>Emacs</a> 25.0.50.2 (<a
> href=\"http://orgmode.org\";>Org</a> mode 8.2.10)"
> org-latex-with-hyperref "\\hypersetup{\n pdfauthor={%a},\n
> pdftitle={%t},\n pdfkeywords={%k},\n pdfsubject={%d},\n pdfcreator={%c},
> \n pdflang={%L}}\n"
> org-timer-default-timer 0
> org-babel-process-comment-text 'org-babel-trim
> org-babel-tangle-lang-exts '(("emacs-lisp" . "el"))
> org-confirm-elisp-link-function 'yes-or-no-p
> org-metadown-hook '(org-babel-pop-to-session-maybe)
> org-latex-listings-langs '((emacs-lisp "Lisp") (lisp "Lisp") (clojure
> "Lisp") (c "C") (cc "C++")
> (fortran "fortran") (perl "Perl") (cperl "Perl")
> (python
> "Python") (ruby "Ruby")
> (html "HTML") (xml "XML") (tex "TeX") (latex
> "[LaTeX]TeX")
> (shell-script "bash")
> (gnuplot "Gnuplot") (ocaml "Caml") (caml "Caml")
> (sql "SQL")
> (sqlite "sql"))
> org-effort-durations '(("h" . 60) ("d" . 480) ("w" . 2400) ("m" . 9600)
> ("y" . 96000))
> org-html-format-headline-function 'ignore
> org-structure-template-alist '(("s" "#+BEGIN_SRC ?\n\n#+END_SRC" "<src
> lang=\"?\">\n\n</src>")
> ("e" "#+BEGIN_EXAMPLE\n?\n#+END_EXAMPLE"
> "<example>\n?\n</example>")
> ("q" "#+BEGIN_QUOTE\n?\n#+END_QUOTE"
> "<quote>\n?\n</quote>")
> ("v" "#+BEGIN_VERSE\n?\n#+END_VERSE"
> "<verse>\n?\n</verse>")
> ("V" "#+BEGIN_VERBATIM\n?\n#+END_VERBATIM"
> "<verbatim>\n?\n</verbatim>")
> ("c" "#+BEGIN_CENTER\n?\n#+END_CENTER"
> "<center>\n?\n</center>")
> ("l" "#+BEGIN_LaTeX\n?\n#+END_LaTeX" "<literal
> style=\"latex\">\n?\n</literal>")
> ("L" "#+LaTeX: " "<literal
> style=\"latex\">?</literal>")
> ("h" "#+BEGIN_HTML\n?\n#+END_HTML" "<literal
> style=\"html\">\n?\n</literal>")
> ("H" "#+HTML: " "<literal
> style=\"html\">?</literal>")
> ("a" "#+BEGIN_ASCII\n?\n#+END_ASCII" "") ("A"
> "#+ASCII: " "")
> ("i" "#+INDEX: ?" "#+INDEX: ?")
> ("I" "#+INCLUDE: %file ?" "<include file=%file
> markup=\"?\">"))
> org-export-creator-string "Emacs 25.0.50.2 (Org mode 8.2.10)"
> org-html-format-inlinetask-function 'ignore
> org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
> org-src-fontify-natively nil
> org-publish-project-alist '(("org-notes" :base-directory "~/org/"
> :base-extension "org" :publishing-directory
> "~/public_html/" :recursive t :publishing-function
> org-html-publish-to-html
> :headline-levels 4 :auto-preamble t
> :html-preamble (concat
> "Howdy"))
> ("org-static" :base-directory "~/org/"
> :base-extension
>
> "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|ogg\\|swf"
> :publishing-directory
> "~/public_html/" :recursive t :publishing-function
> org-publish-attachment)
> ("org" :components ("org-notes" "org-static")))
> )
>
