branch: externals/engrave-faces
commit e063673cf6896a902d17386cf425a39090119a11
Author: TEC <t...@tecosaur.com>
Commit: TEC <t...@tecosaur.com>
html: add support for weight and height
---
engrave-faces-html.el | 19 +++++++++++++++++--
1 file changed, 17 insertions(+), 2 deletions(-)
diff --git a/engrave-faces-html.el b/engrave-faces-html.el
index d4ce0fc..ee32412 100644
--- a/engrave-faces-html.el
+++ b/engrave-faces-html.el
@@ -56,7 +56,8 @@ See `engrave-faces-preset-styles' and
`engrave-faces-html-output-style'."
(st (plist-get attrs :strike-through))
(ul (plist-get attrs :underline))
(it (eql (plist-get attrs :slant) 'italic))
- (wt (plist-get attrs :weight)))
+ (wt (plist-get attrs :weight))
+ (ht (plist-get attrs :height)))
(mapconcat
#'identity
(delq nil
@@ -66,9 +67,23 @@ See `engrave-faces-preset-styles' and
`engrave-faces-html-output-style'."
(when st "text-decoration: line-through;")
(when ul "text-decoration: underline;")
(when it "text-decoration: italic;")
- (when wt (format "font-weight: %s;" wt))))
+ (when wt (format "font-weight: %s;" (engrave-faces-html-css-weight
wt)))
+ (when (and ht (floatp ht)) (format "font-size: %sem" ht))))
seperator)))
+(defun engrave-faces-html-css-weight (weight)
+ (pcase weight
+ ('ultra-light 100) ('extra-light 100)
+ ('light 200) ('thin 200)
+ ('semi-light 300)
+ ('book 400) ('normal 400) ('regular 400)
+ ('medium 500)
+ ('semi-bold 600) ('demi-bold 600)
+ ('bold 700)
+ ('extra-bold 800)
+ ('heavy 900) ('ultra-bold 900)
+ ('black 950)))
+
(defun engrave-faces-html-face-apply (faces content)
(let ((attrs (engrave-faces-merge-attributes faces)))
(concat "<span style=\"" (engrave-faces-html-gen-style-css attrs " ") "\">"
