From 526ff444979c6829ec52cc619136747354e57630 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 26 Jun 2015 08:02:12 -0700 Subject: * genman.txr: New filter to add hyperlinks within code in more places such as examples and summary lists. --- genman.txr | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) (limited to 'genman.txr') diff --git a/genman.txr b/genman.txr index 423a8e38..b90c8387 100644 --- a/genman.txr +++ b/genman.txr @@ -93,6 +93,32 @@ This document was created by @1)) BODY LOOKUP)) +@(set BODY @(let ((inside-tt nil) + (inside-syntax nil)) + (mapcar (do cond + ((equal @1 "") (set inside-tt t) @1) + ((equal @1 "") (set inside-tt nil) + (set inside-syntax nil) + @1) + ((equal @1 "
Syntax:
") (set inside-syntax t) @1) + ((or (and inside-tt (not inside-syntax)) + (match-regex @1 #/
/)) + (let* ((out0 (regsub #/@\([a-z0-9\-]+/ + (do let* ((tok [@1 2..:]) + (tag (or [txlhash tok] + [@@2 tok]))) + (if tag + `@[@1 0](@tok` + @1)) @1))) + (regsub #/[\(\[][^ )&]+/ + (do let* ((tok [@1 1..:]) + (tag [txlhash tok])) + (if tag + `(@tok` + @1)) out0))) + (t @1)) + BODY + LOOKUP))) @(output) Manpage for TXR @VERSION -- cgit v1.2.3