tec
/
ox-chameleon
1
0
Fork 0
Code Issues Pull Requests 1 Releases Activity

Fix nil engrave theme behaviour

This commit is contained in:
TEC 2022-12-06 01:44:42 +08:00
parent 2df40a664c
commit 0d7fdfcdab
Signed by: tec
SSH Key Fingerprint: SHA256:eobz41Mnm0/iYWBvWThftS0ElEs1ftBr6jamutnXc/A
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ox-chameleon.el
View File

@ -120,11 +120,12 @@ and the current theme otherwise."
(copy-sequence ; To avoid modifying the theme itself.
(cond
(keyword-theme (engrave-faces-get-theme keyword-theme))
((symbolp ox-chameleon-engrave-theme)
((and (symbolp ox-chameleon-engrave-theme)
(not (eq ox-chameleon-engrave-theme nil)))
(engrave-faces-get-theme ox-chameleon-engrave-theme))
((consp ox-chameleon-engrave-theme)
ox-chameleon-engrave-theme)
(engrave-faces-get-theme t))))
(t (engrave-faces-get-theme t)))))
(org-default-extras
`((org-document-title :short "org-title" :slug "ot" :foreground
,(plist-get (alist-get 'font-lock-builtin-face theme) :foreground))