diff options
| author | Craig Jennings <c@cjennings.net> | 2026-02-15 15:21:21 -0600 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-02-15 15:21:21 -0600 |
| commit | 69965799360954e6c86c1b4a3e0930bb40a0a8de (patch) | |
| tree | c510af25bdfa7143bb437e19fd9227f5843b0565 | |
| parent | 8be31167f77ace5a2660ac916c06866348b5fe5a (diff) | |
fix(reveal): suppress date/caps on title slide, move transition to init options
- Add date:nil, timestamp:nil, author:t to template OPTIONS
- Set global CSS override (text-transform:none) via org-reveal-head-preamble
- Move transition from obsolete REVEAL_TRANS to REVEAL_INIT_OPTIONS
- Default transition changed to "none"
- Global init options now reference cj/reveal-default-transition constant
| -rw-r--r-- | modules/org-reveal-config.el | 12 | ||||
| -rw-r--r-- | tests/test-org-reveal-config-header-template.el | 14 |
2 files changed, 16 insertions, 10 deletions
diff --git a/modules/org-reveal-config.el b/modules/org-reveal-config.el index 3ab80315..9dfbb99a 100644 --- a/modules/org-reveal-config.el +++ b/modules/org-reveal-config.el @@ -33,7 +33,7 @@ (defconst cj/reveal-default-theme "black" "Default reveal.js theme for new presentations.") -(defconst cj/reveal-default-transition "slide" +(defconst cj/reveal-default-transition "none" "Default reveal.js slide transition for new presentations.") ;; --------------------------------- ox-reveal --------------------------------- @@ -45,7 +45,10 @@ (setq org-reveal-single-file t) (setq org-reveal-plugins '(highlight notes search zoom)) (setq org-reveal-highlight-css "%r/plugin/highlight/monokai.css") - (setq org-reveal-init-options "slideNumber:true, hash:true")) + (setq org-reveal-init-options (format "slideNumber:true, hash:true, transition:'%s'" + cj/reveal-default-transition)) + (setq org-reveal-head-preamble + "<style>.reveal h1,.reveal h2,.reveal h3,.reveal p{text-transform:none;}</style>")) ;; ----------------------------- Private Helpers ------------------------------- @@ -58,11 +61,10 @@ #+DATE: %s #+REVEAL_ROOT: %s #+REVEAL_THEME: %s -#+REVEAL_TRANS: %s -#+REVEAL_INIT_OPTIONS: slideNumber:true, hash:true +#+REVEAL_INIT_OPTIONS: slideNumber:true, hash:true, transition:'%s' #+REVEAL_PLUGINS: (highlight notes search zoom) #+REVEAL_HIGHLIGHT_CSS: %%r/plugin/highlight/monokai.css -#+OPTIONS: toc:nil num:nil +#+OPTIONS: toc:nil num:nil date:nil timestamp:nil author:t " title (user-full-name) (format-time-string "%Y-%m-%d") (concat "file://" cj/reveal-root) diff --git a/tests/test-org-reveal-config-header-template.el b/tests/test-org-reveal-config-header-template.el index 11939c55..df1db9e7 100644 --- a/tests/test-org-reveal-config-header-template.el +++ b/tests/test-org-reveal-config-header-template.el @@ -59,10 +59,10 @@ result)))) (ert-deftest test-org-reveal-config-header-template-normal-contains-transition () - "Output should contain #+REVEAL_TRANS: with the default transition." + "Output should contain transition in INIT_OPTIONS with the default value." (let ((result (test-reveal--header "My Talk"))) (should (string-match-p - (format "^#\\+REVEAL_TRANS: %s$" cj/reveal-default-transition) + (format "transition:'%s'" cj/reveal-default-transition) result)))) (ert-deftest test-org-reveal-config-header-template-normal-contains-init-options () @@ -85,9 +85,13 @@ (should (string-match-p "^#\\+REVEAL_HIGHLIGHT_CSS:.*monokai" result)))) (ert-deftest test-org-reveal-config-header-template-normal-contains-options () - "Output should contain #+OPTIONS: disabling toc and num." + "Output should contain #+OPTIONS: disabling toc, num, and date; enabling author." (let ((result (test-reveal--header "My Talk"))) - (should (string-match-p "^#\\+OPTIONS: toc:nil num:nil$" result)))) + (should (string-match-p "^#\\+OPTIONS:.*toc:nil" result)) + (should (string-match-p "^#\\+OPTIONS:.*num:nil" result)) + (should (string-match-p "^#\\+OPTIONS:.*date:nil" result)) + (should (string-match-p "^#\\+OPTIONS:.*timestamp:nil" result)) + (should (string-match-p "^#\\+OPTIONS:.*author:t" result)))) (ert-deftest test-org-reveal-config-header-template-normal-ends-with-blank-line () "Output should end with a trailing newline (blank line separator)." @@ -98,7 +102,7 @@ "All required org keywords should be present in the output." (let ((result (test-reveal--header "My Talk")) (keywords '("#+TITLE:" "#+AUTHOR:" "#+DATE:" - "#+REVEAL_ROOT:" "#+REVEAL_THEME:" "#+REVEAL_TRANS:" + "#+REVEAL_ROOT:" "#+REVEAL_THEME:" "#+REVEAL_INIT_OPTIONS:" "#+REVEAL_PLUGINS:" "#+REVEAL_HIGHLIGHT_CSS:" "#+OPTIONS:"))) (dolist (kw keywords) |
