emacs-elpa-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]