[elpa] externals/engrave-faces 2b03748 26/36: html: set page bg to default face bg (if given)

[ELPA Syncer]

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

    html: set page bg to default face bg (if given)
---
 engrave-faces-html.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/engrave-faces-html.el b/engrave-faces-html.el
index 10987ca..3190892 100644
--- a/engrave-faces-html.el
+++ b/engrave-faces-html.el
@@ -104,7 +104,11 @@ See `engrave-faces-preset-styles' and 
`engrave-faces-html-output-style'."
                                                  (file-name-nondirectory 
(buffer-file-name))
                                                (buffer-name)))
           "</title>
-    <style>
+    <style>"
+          (if-let ((default-bg (plist-get (cdr (assoc 'default 
engrave-faces-preset-styles)) :background)))
+              (format "\n      body { background: %s }" default-bg)
+            "")
+          "
       pre {
         font-size: 1rem;
         max-width: min(100rem, 100%);