mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-26 07:33:39 +00:00
Code

Make html exporter respect css-url configuration variable

Browse Source 
* 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.
This commit is contained in:
Rick Frankel 2013-02-19 19:06:49 -05:00 committed by Nicolas Goaziou
parent 4d24f1d383
commit 35e914c1d7
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/ox-html.el
View File

@ -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)
@ -536,11 +537,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")))
@ -1190,8 +1191,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))))