Hello,

Bastien <b...@gnu.org> writes:

> +      (class0 (org-export-read-attribute :attr_html paragraph :class))
> +      (class (if class0 (format " class=\"%s\"" class0)))
>        (extra (or (cadr (assoc parent-type style)) "")))
>      (cond
>       ((and (eq (org-element-type parent) 'item)
> @@ -2925,7 +2927,7 @@ the plist used as a communication channel."
>           (label (org-element-property :name paragraph)))
>       (org-html--wrap-image contents info caption label)))
>       ;; Regular paragraph.
> -     (t (format "<p%s>\n%s</p>" extra contents)))))
> +     (t (format "<p%s%s>\n%s</p>" class extra contents)))))

If deemed useful, I think this patch should use
`org-html--make-attribute-string' instead of hard-coding "class"
attribute:

  (attributes (org-html--make-attribute-string
               (org-export-read-attribute :attr_html paragraph)))

...

  (t (format "<p%s%s>\n%s</p>" attributes extra contents))

This way, attributes will not be limited to "class" only. See, for
example, `org-html-special-block'.


Regards,

-- 
Nicolas Goaziou

Reply via email to