From cd66dac230ad3416449c126fff42cf71625d6db3 Mon Sep 17 00:00:00 2001
From: "C. McEnroe" <june@causal.agency>
Date: Mon, 28 Dec 2020 22:58:29 -0500
Subject: Generate Tag tokens for mdoc headings

---
 bin/hilex/mdoc.l | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

(limited to 'bin/hilex/mdoc.l')

diff --git a/bin/hilex/mdoc.l b/bin/hilex/mdoc.l
index 50e2f94f..e0911628 100644
--- a/bin/hilex/mdoc.l
+++ b/bin/hilex/mdoc.l
@@ -21,7 +21,7 @@
 #include "hilex.h"
 %}
 
-%s MacroLine
+%s MacroLine Heading
 
 %%
 
@@ -38,6 +38,11 @@
 		return Normal;
 	}
 
+	S[hs] {
+		BEGIN(Heading);
+		return Keyword;
+	}
+
 	%[ABCDIJNOPQRTUV]|A[cdnopqrt]|B[cdfkloqtx]|Br[coq]|Bsx|C[dm]|D[1bcdloqtvx] |
 	E[cdfklmnorsvx]|F[acdlnortx]|Hf|I[cnt]|L[bikp]|M[st]|N[dmosx]|O[copstx] |
 	P[acfopq]|Q[cloq]|R[esv]|S[chmoqstxy]|T[an]|U[dx]|V[at]|X[cor] {
@@ -47,6 +52,15 @@
 	"\""([^""]|"\\\"")*"\"" { return String; }
 }
 
+<Heading>{
+	"\n" {
+		BEGIN(0);
+		return Normal;
+	}
+
+	[^[:space:]].* { return Tag; }
+}
+
 "\\"(.|"("..|"["[^]]*"]") { return String; }
 
 [[:blank:]]+|[^.\n""\\[:space:]]+|.|\n { return Normal; }
-- 
cgit 1.4.1