2 files changed, 37 insertions, 0 deletions

diff --git a/bin/hi.c b/bin/hi.c
index b3584b10..baee9517 100644
--- a/bin/hi.c
+++ b/bin/hi.c
@@ -312,6 +312,7 @@ static void check(void) {
 }
 
 #define ENUM_OPTION \
+	X(Anchor, "anchor") \
 	X(CSS, "css") \
 	X(Document, "document") \
 	X(Inline, "inline") \
@@ -503,6 +504,19 @@ static void htmlHeader(const char *opts[]) {
 			htmlTabSize(opts[Tab]);
 			printf(" }\n");
 		}
+		if (opts[Anchor]) {
+			printf(
+				"a.hi.%s { text-decoration: none; %s }\n"
+				"a.hi.%s:focus {"
+				" outline-style: none;"
+				" font-weight: bold;"
+				" text-decoration: underline;"
+				" }\n"
+				"a.hi.%s::before { content: attr(data-line); }\n",
+				ClassName[Line], HTMLStyle[Line],
+				ClassName[Line], ClassName[Line]
+			);
+		}
 		for (enum Class class = 0; class < ClassLen; ++class) {
 			if (!HTMLStyle[class]) continue;
 			printf("span.hi.%s { %s }\n", ClassName[class], HTMLStyle[class]);
@@ -526,6 +540,16 @@ static void htmlFooter(const char *opts[]) {
 
 static void
 htmlOutput(const char *opts[], enum Class class, const char *str, size_t len) {
+	if (opts[Anchor] && class == Line) {
+		size_t num = 0;
+		sscanf(str, " %zu", &num);
+		printf(
+			"<a class=\"hi %s\" id=\"L%zu\" href=\"#L%zu\" data-line=\"%.*s\">"
+			"</a>",
+			ClassName[class], num, num, (int)len, str
+		);
+		return;
+	}
 	if (opts[Inline]) {
 		printf("<span style=\"%s\">", HTMLStyle[class] ? HTMLStyle[class] : "");
 	} else {
diff --git a/bin/man1/hi.1 b/bin/man1/hi.1
index afe0fe0c..ee3a55a8 100644
--- a/bin/man1/hi.1
+++ b/bin/man1/hi.1
@@ -69,9 +69,18 @@ Output HTML
 with
 .Sy <span>
 classes.
+.
 .Pp
 The options are as follows:
 .Bl -tag -width "title=..."
+.It Cm anchor
+With
+.Fl n ,
+output line numbers
+as un-selectable anchor links.
+Incompatible with
+.Cm inline .
+.
 .It Cm css Ns = Ns Ar url
 With
 .Cm document ,
@@ -83,12 +92,15 @@ If unset,
 output default styles in a
 .Sy <style>
 element.
+.
 .It Cm document
 Output an HTML document.
+.
 .It Cm inline
 Output inline
 .Sy style
 attributes rather than classes.
+.
 .It Cm tab Ns = Ns Ar n
 With
 .Cm document
@@ -98,6 +110,7 @@ set the
 .Sy tab-size
 property to
 .Ar n .
+.
 .It Cm title Ns = Ns Ar ...
 With
 .Cm document ,