The heading of slide IDs being customizable

This commit is contained in:
Yujie Wen 2019-07-11 00:03:19 +08:00
parent 1b3b1c0e91
commit 02bcbcdef3
1 changed files with 7 additions and 1 deletions

View File

@ -386,6 +386,11 @@ BEFORE the plugins that depend on them."
:group 'org-export-reveal
:type 'string)
(defcustom org-reveal-slide-id-head "slide-"
"The heading string for slide ID"
:group 'org-export-reveal
:type 'string)
(defun if-format (fmt val)
(if val (format fmt val) ""))
@ -432,7 +437,8 @@ exporter."
)
(format "<section %s%s>\n"
(org-html--make-attribute-string
`(:id ,(format "slide-%s%s" preferred-id
`(:id ,(concat org-reveal-slide-id-head
preferred-id
(if for-split "-split" ""))
:class ,(org-element-property :HTML_CONTAINER_CLASS headline)
:data-transition ,(org-element-property :REVEAL_DATA_TRANSITION headline)