[PATCH 2/3] add html attributes to quote-block

[John Kitchin <jkitchin@andrew.cmu.edu>]

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