Permalink
Browse files

allow customization of the title string

  inspired by a code example from Pierre de Buyl
  • Loading branch information...
1 parent 343fffe commit 0fc7c06a2c455781c2bd1c929d39ca382cb1aa6a @eschulte committed Jun 3, 2011
Showing with 8 additions and 1 deletion.
  1. +8 −1 org-export-as-s5.el
View
@@ -1,5 +1,9 @@
(defvar org-s5-theme "default")
+(defvar org-s5-title-format "<h1>%author - %title</h1>"
+ "Format template to specify title. Completed using `org-fill-template'.
+Optional keys include %author, %title and %date.")
+
(defun org-export-as-s5
(arg &optional hidden ext-plist to-buffer body-only pub-dir)
"Wrap `org-export-as-html' in setting for S5 export."
@@ -48,7 +52,10 @@
"<div id=\"currentSlide\"><!-- no edit --></div>"
"<div id=\"header\"></div>"
"<div id=\"footer\">"
- ,(format "<h1>%s</h1>" title)
+ ,(org-fill-template org-s5-title-format
+ `(("author" . ,author)
+ ("title" . ,title)
+ ("date" . ,date)))
"</div>"
"</div>"
""

0 comments on commit 0fc7c06

Please sign in to comment.