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

View File

@ -62,6 +62,7 @@
(:reveal-extra-css "REVEAL_EXTRA_CSS" nil nil nil)
(:reveal-extra-js "REVEAL_EXTRA_JS" nil org-reveal-extra-js nil)
(: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-mathjax nil "reveal_mathjax" org-reveal-mathjax 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)
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
"<h1>%t</h1>
<h2>%a</h2>
@ -804,11 +810,13 @@ info is a plist holding export options."
<body>\n"
(org-reveal--build-pre/postamble 'preamble info)
"<div class=\"reveal\">
<div class=\"slides\">
<section>
"
(format-spec (plist-get info :reveal-title-slide-template) (org-html-format-spec info))
"</section>\n"
<div class=\"slides\">\n"
(if (plist-get info :reveal-title-slide)
(concat
"<section>\n"
(format-spec (plist-get info :reveal-title-slide-template) (org-html-format-spec info))
"\n</section>\n")
"")
contents
"</div>
</div>\n"