branch: externals/engrave-faces
commit 67de75f6ae2d165e7294cba3ff55ff97a12696e6
Author: TEC <[email protected]>
Commit: TEC <[email protected]>
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 ")
" }"))
