Work with multiple HTML content classes

This commit is contained in:
Ellis Kenyo 2024-04-21 17:50:27 +08:00 committed by TEC
parent 2601556c27
commit d52696836c
Signed by: tec
SSH Key Fingerprint: SHA256:eobz41Mnm0/iYWBvWThftS0ElEs1ftBr6jamutnXc/A
1 changed files with 3 additions and 2 deletions

View File

@ -73,9 +73,10 @@ This can be overriden via #+chameleon_theme.")
(plist-put info :latex-engraved-theme chameleon-theme))
t)
((and (org-export-derived-backend-p backend 'html)
(equal (plist-get info :html-content-class) "chameleon"))
(member "chameleon" (split-string (plist-get info :html-content-class))))
(plist-put info :html-content-class
(concat "chameleon "
(concat (plist-get info :html-content-class)
" "
(symbol-name (car custom-enabled-themes))))
(unless (plist-get info :html-engraved-theme)
(plist-put info :html-engraved-theme chameleon-theme))