[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/engrave-faces 7a807b7: html: don't generate spans with
From: |
ELPA Syncer |
Subject: |
[elpa] externals/engrave-faces 7a807b7: html: don't generate spans with style="" |
Date: |
Tue, 7 Sep 2021 07:57:09 -0400 (EDT) |
branch: externals/engrave-faces
commit 7a807b7c57eafe3e1d50f4fa1eada1f4bbc27811
Author: TEC <tec@tecosaur.com>
Commit: TEC <tec@tecosaur.com>
html: don't generate spans with style=""
---
engrave-faces-html.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/engrave-faces-html.el b/engrave-faces-html.el
index cdeca29..8b4d0da 100644
--- a/engrave-faces-html.el
+++ b/engrave-faces-html.el
@@ -85,9 +85,11 @@ See `engrave-faces-preset-styles' and
`engrave-faces-html-output-style'."
('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 " ") "\">"
- content "</span>")))
+ (let* ((attrs (engrave-faces-merge-attributes faces))
+ (style (engrave-faces-html-gen-style-css attrs " ")))
+ (if (string= style "")
+ content
+ (concat "<span style=\"" style "\">" content "</span>"))))
(defun engrave-faces-html-protect-string (str)
(replace-regexp-in-string
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/engrave-faces 7a807b7: html: don't generate spans with style="",
ELPA Syncer <=