From 7350bf5dd9df3c6b2e50fe7349db95949e973b5f Mon Sep 17 00:00:00 2001
From: Calvin Rose <calsrose@gmail.com>
Date: Sat, 26 Jan 2019 10:12:33 -0500
Subject: [PATCH] Add anchors in generated docs

This allows us to link to specific functions.
---
 tools/gendoc.janet | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tools/gendoc.janet b/tools/gendoc.janet
index 48ae879f..279d3bc1 100644
--- a/tools/gendoc.janet
+++ b/tools/gendoc.janet
@@ -75,6 +75,7 @@
          :ref ref
          :source-map sm
          :doc docstring} env-entry
+        html-key (html-escape key)
         binding-type (cond
                        macro :macro
                        ref (string :var " (" (type (get ref 0)) ")")
@@ -82,7 +83,7 @@
         source-ref (if-let [[path start end] sm]
                      (string "<span class=\"source-map\">" path " (" start ":" end ")</span>")
                      "")]
-    (string "<h2 class=\"binding\">" (html-escape key) "</h2>\n"
+    (string "<h2 class=\"binding\"><a id=\"" key "\">" html-key "</a></h2>\n"
             "<span class=\"binding-type\">" binding-type "</span>\n"
             "<p class=\"docstring\">" (trim-lead (html-escape docstring)) "</p>\n"
             source-ref)))