[elpa] externals/engrave-faces 67de75f 31/36: html: allow for css classes without a :slug

[ELPA Syncer]

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

    html: allow for css classes without a :slug
---
 engrave-faces-html.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/engrave-faces-html.el b/engrave-faces-html.el
index 9a60cbc..d4ce0fc 100644
--- a/engrave-faces-html.el
+++ b/engrave-faces-html.el
@@ -43,7 +43,8 @@ See `engrave-faces-preset-styles' and 
`engrave-faces-html-output-style'."
 
 (defun engrave-faces-html-gen-stylesheet-entry (face style)
   "Generate a HTML preamble line for STYLE representing FACE."
-  (concat "." engrave-faces-html-class-prefix (plist-get style :slug)
+  (concat "." engrave-faces-html-class-prefix (or (plist-get style :slug)
+                                                  (symbol-name face))
           " {\n  "
           (engrave-faces-html-gen-style-css style "\n  ")
           " }"))