From b49fa8b36b983f32ca9ff090eec0be7ff45a50c3 Mon Sep 17 00:00:00 2001 From: Rick Frankel Date: Tue, 25 Mar 2014 11:27:07 -0400 Subject: [PATCH] Allow disabling of htmlization in ox-html export. * lisp/ox-html.el (org-html-htmlize-output-type): Add `nil' option (no htmlization). (org-html-fontify-code): Return plain text if `org-html-htmlize-output-type' is `nil'. --- lisp/ox-html.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/ox-html.el b/lisp/ox-html.el index 52795a3..a843441 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -756,9 +756,10 @@ link's path." (defcustom org-html-htmlize-output-type 'inline-css "Output type to be used by htmlize when formatting code snippets. -Choices are `css', to export the CSS selectors only, or `inline-css', to -export the CSS attribute values inline in the HTML. We use as default -`inline-css', in order to make the resulting HTML self-containing. +Choices are `css' to export the CSS selectors only,`inline-css' +to export the CSS attribute values inline in the HTML or `nil' to +export plain text. We use as default `inline-css', in order to +make the resulting HTML self-containing. However, this will fail when using Emacs in batch mode for export, because then no rich font definitions are in place. It will also not be good if @@ -771,7 +772,7 @@ all the faces you are interested in are defined, for example by loading files in all modes you want. Then, use the command \\[org-html-htmlize-generate-css] to extract class definitions." :group 'org-export-html - :type '(choice (const css) (const inline-css))) + :type '(choice (const css) (const inline-css) (const nil))) (defcustom org-html-htmlize-font-prefix "org-" "The prefix for CSS class names for htmlize font specifications." @@ -1894,6 +1895,10 @@ is the language used for CODE, as a string, or nil." (message "Cannot fontify src block (htmlize.el >= 1.34 required)") ;; Simple transcoding. (org-html-encode-plain-text code)) + ;; Case 3: plain text explicitly set + ((not org-html-htmlize-output-type) + ;; Simple transcoding. + (org-html-encode-plain-text code)) (t ;; Map language (setq lang (or (assoc-default lang org-src-lang-modes) lang)) -- 1.8.0