Enables #+attr_html: and puts a id attribute when the block is named into the html element. --- lisp/ox-html.el | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-)
diff --git a/lisp/ox-html.el b/lisp/ox-html.el index 92de209..5bdfc14 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -3155,11 +3155,19 @@ holding contextual information." ;;;; Quote Block -(defun org-html-quote-block (_quote-block contents _info) +(defun org-html-quote-block (quote-block contents info) "Transcode a QUOTE-BLOCK element from Org to HTML. CONTENTS holds the contents of the block. INFO is a plist holding contextual information." - (format "<blockquote>\n%s</blockquote>" contents)) + (let ((attributes (org-export-read-attribute :attr_html quote-block))) + (when (org-element-property :name quote-block) + (setq attributes (plist-put + attributes :id + (org-element-property :name quote-block)))) + (setq attributes (org-html--make-attribute-string attributes)) + (when (not (equal attributes "")) + (setq attributes (concat " " attributes))) + (format "<blockquote%s>\n%s</blockquote>" attributes contents))) ;;;; Section -- 2.4.4
