[O] [PATCH 1/3] add id attribute to example-block on html export.

[John Kitchin]

This allows you to hyperlink to the block.
---
 lisp/ox-html.el | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/lisp/ox-html.el b/lisp/ox-html.el
index d07cdcc..92de209 100644
--- a/lisp/ox-html.el
+++ b/lisp/ox-html.el
@@ -2370,14 +2370,23 @@ contextual information."
 
 ;;;; Example Block
 
-(defun org-html-example-block (example-block _contents info)
+(defun org-html-example-block (example-block contents info)
   "Transcode a EXAMPLE-BLOCK element from Org to HTML.
 CONTENTS is nil.  INFO is a plist holding contextual
 information."
   (if (org-export-read-attribute :attr_html example-block :textarea)
       (org-html--textarea-block example-block)
-    (format "<pre class=\"example\">\n%s</pre>"
-           (org-html-format-code example-block info))))
+    (let ((attributes (org-export-read-attribute :attr_html example-block)))
+      (when (org-element-property :name example-block)
+       (setq attributes (plist-put
+                         attributes :id
+                         (org-element-property :name example-block))))
+      (setq attributes (org-html--make-attribute-string attributes))
+      (when (not (equal attributes ""))
+       (setq attributes (concat " " attributes)))
+      (format "<pre class=\"example\"%s>\n%s</pre>"
+             attributes
+             (org-html-format-code example-block info)))))
 
 ;;;; Export Snippet
 
-- 
2.4.4