diff --git a/ox-blackfriday.el b/ox-blackfriday.el index 2e784ec..63f5a9b 100644 --- a/ox-blackfriday.el +++ b/ox-blackfriday.el @@ -320,7 +320,10 @@ ELEM Org element using #+ATTR_HTML. If #+ATTR_CSS is also used, and if a class is specified in #+ATTR_HTML, then an inline style is also inserted that applies -the specified CSS to that class." +the specified CSS to that class. + +If CONTENTS is nil, and #+ATTR_CSS is used, return only the HTML +style tag." (let* ((elem-type (org-element-type elem)) (attr (let ((attr1 (org-export-read-attribute :attr_html elem))) (when (equal elem-type 'paragraph) @@ -331,23 +334,24 @@ the specified CSS to that class." (plist-put attr1 :target nil) (plist-put attr1 :rel nil)) attr1)) - (attr-str (org-html--make-attribute-string attr))) - (if (org-string-nw-p attr-str) - (let ((class (plist-get attr :class)) - (style-str "")) - (when class - (let* ((css-props (org-export-read-attribute :attr_css elem)) - (css-props-str (org-blackfriday--make-css-property-string css-props))) - (when (org-string-nw-p css-props-str) - (setq style-str (format "\n\n" - class css-props-str))))) - - (concat style-str - (format "