From: Rick Frankel <rick@rickster.com>
To: emacs-orgmode@gnu.org
Subject: [PATCH] Make html exporter respect css-url configuration variable.
Date: Tue, 19 Feb 2013 19:06:49 -0500 [thread overview]
Message-ID: <20130220000649.GA9295@BigDog.local> (raw)
* lisp/ox-html.el:
(org-export-define-backend): add css url option
(org-export-htmlized-org-css-url): modify docstring and options.
(org-html--build-style): include css-url if specified.
---
lisp/ox-html.el | 14 ++++++++++----
1 file changed, 10 insertions(+), 4 deletions(-)
diff --git a/lisp/ox-html.el b/lisp/ox-html.el
index 1800f5e..58dc4a5 100644
--- a/lisp/ox-html.el
+++ b/lisp/ox-html.el
@@ -122,6 +122,7 @@
(:html-style-include-default nil nil org-html-style-include-default)
(:html-style-include-scripts nil nil org-html-style-include-scripts)
(:html-table-tag nil nil org-html-table-tag)
+ (:html-htmlized-css-url "HTML_HTMLIZED_CSS_URL" nil org-html-htmlized-org-css-url)
;; Redefine regular options.
(:creator "CREATOR" nil org-html-creator-string)
(:with-latex nil "tex" org-html-with-latex)
@@ -548,11 +549,11 @@ create CSS to define the font colors. However, this does not work when
converting in batch mode, and it also can look bad if different people
with different fontification setup work on the same website.
When this variable is non-nil, creating an htmlized version of an Org buffer
-using `org-export-as-org' will remove the internal CSS section and replace it
-with a link to this URL."
+using `org-export-as-org' will include a link to this URL if the
+setting of `org-html-htmlize-output-type' is 'css."
:group 'org-export-html
:type '(choice
- (const :tag "Keep internal css" nil)
+ (const :tag "Don't include external stylesheet link" nil)
(string :tag "URL or local href")))
@@ -1255,8 +1256,13 @@ INFO is a plist used as a communication channel."
INFO is a plist used as a communication channel."
(org-element-normalize-string
(concat
- (when (plist-get info :html-style-include-default) org-html-style-default)
+ (when (plist-get info :html-style-include-default)
+ (org-element-normalize-string org-html-style-default))
(org-element-normalize-string (plist-get info :html-style))
+ (when (and (plist-get info :html-htmlized-css-url)
+ (eq org-html-htmlize-output-type 'css))
+ (format "<link rel=\"stylesheet\" href=\"%s\" type=\"text/css\" />\n"
+ (plist-get info :html-htmlized-css-url)))
(org-element-normalize-string (plist-get info :html-style-extra))
(when (plist-get info :html-style-include-scripts) org-html-scripts))))
--
1.8.1.2
next reply other threads:[~2013-02-20 0:06 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-02-20 0:06 Rick Frankel [this message]
2013-02-25 12:01 ` [PATCH] Make html exporter respect css-url configuration variable Nicolas Goaziou
2013-02-25 13:04 ` Nicolas Goaziou
2013-03-02 17:47 ` Bastien
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20130220000649.GA9295@BigDog.local \
--to=rick@rickster.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).