diff options
| author | cashmere <cashmere@autistici.org> | 2026-08-15 02:14:35 +0200 |
|---|---|---|
| committer | cashmere <cashmere@autistici.org> | 2026-08-15 02:14:35 +0200 |
| commit | 556cf8fc60b8ed51a678eb54e05130a76ea656ab (patch) | |
| tree | c13c8de5d6f06577178a64e650a9c2fc1dbb4e44 /lisp | |
| parent | 6e790cb1d15e7072817ff8646b4fc165b4408332 (diff) | |
| download | emacs-556cf8fc60b8ed51a678eb54e05130a76ea656ab.tar.gz | |
track ox-reveal
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ox-reveal.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lisp/ox-reveal.el b/lisp/ox-reveal.el index 5c8539e..5a45cef 100644 --- a/lisp/ox-reveal.el +++ b/lisp/ox-reveal.el @@ -90,6 +90,7 @@ default fragment style, otherwise return \"fragment style\"." :translate-alist '((export-block . org-reveal-export-block) + (special-block . org-reveal-special-block) (headline . org-reveal-headline) (inner-template . org-reveal-inner-template) (keyword . org-reveal-keyword) @@ -325,16 +326,20 @@ a '\\n'" (format " class=\"%s\"" (frag-style frag)))) (defun org-reveal-export-block (export-block contents info) - "Transocde a EXPORT-BLOCK element from Org to Reveal. -CONTENTS is nil. INFO is a plist holding contextual information." + "Transcode an export block element from Org to Reveal." (let ((block-type (org-element-property :type export-block)) (block-string (org-element-property :value export-block))) (cond ((string= block-type "NOTES") - (org-reveal-tag 'aside '(('class . 'notes)) + (org-reveal-tag 'aside '(:class "notes") (org-export-string-as block-string 'html 'body-only))) ((string= block-type "HTML") (org-remove-indentation block-string))))) +(defun org-reveal-special-block (special-block contents info) + (if (string= (org-element-property :type special-block) "notes") + (org-reveal-tag 'aside '(:class "notes") contents) + (org-html-special-block special-block contents info))) + (defun org-reveal-headline (headline contents info) "Transcode a HEADLINE element from Org to Reveal. CONTENTS holds the contents of the headline. INFO is a plist @@ -494,6 +499,7 @@ holding contextual information." (if (plist-get info :reveal-keyboard) "true" "false")) (format "overview: %s,\n" (if (plist-get info :reveal-overview) "true" "false")) + "showNotes: false,\n" (let ((width (plist-get info :reveal-width))) (if (> width 0) (format "width: %d,\n" width) "")) (let ((height (plist-get info :reveal-height))) |