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

option to disable title slide

This commit is contained in:
Gambhiro 2015-01-11 17:05:43 +00:00
parent b4b5a9ccb3
commit 2507b1ac72
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ox-reveal.el
View File

@ -62,6 +62,7 @@
(:reveal-extra-css "REVEAL_EXTRA_CSS" nil nil nil) (:reveal-extra-css "REVEAL_EXTRA_CSS" nil nil nil)
(:reveal-extra-js "REVEAL_EXTRA_JS" nil org-reveal-extra-js nil) (:reveal-extra-js "REVEAL_EXTRA_JS" nil org-reveal-extra-js nil)
(:reveal-hlevel "REVEAL_HLEVEL" nil nil t) (:reveal-hlevel "REVEAL_HLEVEL" nil nil t)
(:reveal-title-slide nil "reveal_title_slide" org-reveal-title-slide t)
(:reveal-title-slide-template "REVEAL_TITLE_SLIDE_TEMPLATE" nil org-reveal-title-slide-template t) (:reveal-title-slide-template "REVEAL_TITLE_SLIDE_TEMPLATE" nil org-reveal-title-slide-template t)
(:reveal-mathjax nil "reveal_mathjax" org-reveal-mathjax t) (:reveal-mathjax nil "reveal_mathjax" org-reveal-mathjax t)
(:reveal-mathjax-url "REVEAL_MATHJAX_URL" nil org-reveal-mathjax-url t) (:reveal-mathjax-url "REVEAL_MATHJAX_URL" nil org-reveal-mathjax-url t)
@ -110,6 +111,11 @@ else get value from custom variable `org-reveal-hlevel'."
(if hlevel-str (string-to-number hlevel-str) (if hlevel-str (string-to-number hlevel-str)
org-reveal-hlevel))) org-reveal-hlevel)))
(defcustom org-reveal-title-slide t
"Include a title slide."
:group 'org-export-reveal
:type 'boolean)
(defcustom org-reveal-title-slide-template (defcustom org-reveal-title-slide-template
"<h1>%t</h1> "<h1>%t</h1>
<h2>%a</h2> <h2>%a</h2>
@ -804,11 +810,13 @@ info is a plist holding export options."
<body>\n" <body>\n"
(org-reveal--build-pre/postamble 'preamble info) (org-reveal--build-pre/postamble 'preamble info)
"<div class=\"reveal\"> "<div class=\"reveal\">
<div class=\"slides\"> <div class=\"slides\">\n"
<section> (if (plist-get info :reveal-title-slide)
" (concat
(format-spec (plist-get info :reveal-title-slide-template) (org-html-format-spec info)) "<section>\n"
"</section>\n" (format-spec (plist-get info :reveal-title-slide-template) (org-html-format-spec info))
"\n</section>\n")
"")
contents contents
"</div> "</div>
</div>\n" </div>\n"