emacs
/
org-reveal
mirror of https://github.com/yjwen/org-reveal.git
1
0
Fork 0
Code Issues Releases Wiki Activity

- generated markup is now well formed XML 

- XML doc types should be uppercase.

- added a few new lines so that all elements are on their own line
This commit is contained in:
Torstein Krause Johansen 2013-09-13 22:07:47 +02:00
parent 5c5eb3ea5d
commit f9bacaebc3
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ox-reveal.el
View File

@ -343,13 +343,13 @@ using custom variable `org-reveal-root'."
(theme-full (org-reveal--append-path theme-path theme-file)) (theme-full (org-reveal--append-path theme-path theme-file))
(extra-css (plist-get info :reveal-extra-css)) (extra-css (plist-get info :reveal-extra-css))
(extra-css-link-tag (if extra-css (extra-css-link-tag (if extra-css
(format "<link rel=\"stylesheet\" href=\"./%s\">" extra-css) (format "<link rel=\"stylesheet\" href=\"./%s\"/>" extra-css)
"")) ""))
(pdf-css (org-reveal--append-pathes css-dir-name '("print" "pdf.css")))) (pdf-css (org-reveal--append-pathes css-dir-name '("print" "pdf.css"))))
(format "<link rel=\"stylesheet\" href=\"%s\"> (format "<link rel=\"stylesheet\" href=\"%s\"/>
<link rel=\"stylesheet\" href=\"%s\" id=\"theme\"> <link rel=\"stylesheet\" href=\"%s\" id=\"theme\"/>
%s %s
<link rel=\"stylesheet\" href=\"%s\" type=\"text/css\" media=\"print\"> <link rel=\"stylesheet\" href=\"%s\" type=\"text/css\" media=\"print\"/>
" "
min-css-file-name theme-full extra-css-link-tag min-css-file-name theme-full extra-css-link-tag
pdf-css))) pdf-css)))
@ -629,9 +629,9 @@ contents is the transcoded contents string.
info is a plist holding export options." info is a plist holding export options."
(concat (concat
(format "<?xml version=\"1.0\" encoding=\"utf-8\"?> (format "<?xml version=\"1.0\" encoding=\"utf-8\"?>
<!doctype html>\n<html%s>\n<head>\n" <!DOCTYPE html>\n<html%s>\n<head>\n"
(if-format " lang=\"%s\"" (plist-get info :language))) (if-format " lang=\"%s\"" (plist-get info :language)))
"<meta charset=\"utf-8\">" "<meta charset=\"utf-8\"/>\n"
(if-format "<title>%s</title>\n" (plist-get info :title)) (if-format "<title>%s</title>\n" (plist-get info :title))
(if-format "<meta name=\"author\" content=\"%s\"/>\n" (plist-get info :author)) (if-format "<meta name=\"author\" content=\"%s\"/>\n" (plist-get info :author))
(if-format "<meta name=\"description\" content=\"%s\"/>\n" (plist-get info :description)) (if-format "<meta name=\"description\" content=\"%s\"/>\n" (plist-get info :description))