[elpa] externals/engrave-faces 581b594 33/36: html: apply background & foreground color to page

[ELPA Syncer]

branch: externals/engrave-faces
commit 581b59461898515640216a21611729f6b4cce3a7
Author: TEC <tec@tecosaur.com>
Commit: TEC <tec@tecosaur.com>

    html: apply background & foreground color to page
---
 engrave-faces-html.el | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/engrave-faces-html.el b/engrave-faces-html.el
index ee32412..911f03f 100644
--- a/engrave-faces-html.el
+++ b/engrave-faces-html.el
@@ -123,9 +123,15 @@ See `engrave-faces-preset-styles' and 
`engrave-faces-html-output-style'."
                                                (buffer-name)))
           "</title>
     <style>"
-          (if-let ((default-bg (plist-get (cdr (assoc 'default 
engrave-faces-preset-styles)) :background)))
-              (format "\n      body { background: %s }" default-bg)
-            "")
+          (let* ((default-sty (cdr (assoc 'default 
engrave-faces-preset-styles)))
+                 (default-bg (plist-get default-sty :background))
+                 (default-fg (plist-get default-sty :foreground)))
+            (if (or default-bg default-fg)
+                (concat "\n      body {"
+                        (when default-bg (format " background: %s;" 
default-bg))
+                        (when default-fg (format " color: %s;" default-fg))
+                        " }")
+              ""))
           "
       pre {
         font-size: 1rem;