From 7272d1546bd020210a3b250554a3fda9396e1e60 Mon Sep 17 00:00:00 2001 From: Puck Meerburg Date: Thu, 3 Jul 2025 18:57:48 +0000 Subject: [PATCH] docread: duplicate header links This makes it all a bit clearer, IMO. Change-Id: I6a6a696484771b2368c37589a4b7ece8101c0b82 --- docs/docread/docread.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/docs/docread/docread.scm b/docs/docread/docread.scm index 5932886..4d6cb5a 100644 --- a/docs/docread/docread.scm +++ b/docs/docread/docread.scm @@ -97,7 +97,7 @@ (let loop ((item table-of-contents)) (cond ((null? item) (error "Unknown TOC root" name)) - ((equal? name (caar item)) (set-cdr! (car item) (cons (sprintf "** xref:generated:~A[++~A++]\n" path name) (cdar item)))) + ((equal? name (caar item)) (set-cdr! (car item) (cons (sprintf "** xref:generated:~A[++~A++]\n*** xref:generated:~A[++~A++]\n" path name path name) (cdar item)))) ((is-prefix (caar item) name) (set-cdr! (car item) (cons (sprintf "*** xref:generated:~A[++~A++]\n" path name) (cdar item)))) (else (loop (cdr item))))))