hare

commit 9c8cf7b9a3b8f611ee16c475b05359a0801272e6
parent f726683fae3a309141efee1776e3352a15ca6619
Author: Drew DeVault <sir@cmpwn.com>
Date:   Mon, 19 Apr 2021 15:01:51 -0400

haredoc: add permalink to each heading

Diffstat:
M
cmd/haredoc/html.ha
 | 
7
++++++-

1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/cmd/haredoc/html.ha b/cmd/haredoc/html.ha
@@ -97,7 +97,12 @@ fn details(decl: ast::decl) (void | error) = {
 	fmt::print("'>")?;
 	unparse::ident(os::stdout, decl_ident(decl))?;
 	// TODO: Make this URL real
-	fmt::print("<span class='heading-extra'><a href='#'>[source]</a></span>")?;
+	fmt::print("<span class='heading-extra'>
+		<a href='#'>[source]</a>
+		<a href='#")?;
+	unparse::ident(os::stdout, decl_ident(decl))?;
+	fmt::print("'>[link]</a>
+	</span>")?;
 	fmt::println("</h3>")?;
 
 	fmt::println("<pre class='decl'>")?;