diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2015-06-26 07:57:09 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2015-06-26 07:57:09 -0700 |
| commit | 069f2e879d2ad0ed7ab111f15cbf9d4901f864df (patch) | |
| tree | 6e2b8003c194f78978857d39fb84333c0e423513 /genman.txr | |
| parent | 37b3b5e039f2562d4e12017fd8c43617953b88d5 (diff) | |
| download | txr-069f2e879d2ad0ed7ab111f15cbf9d4901f864df.tar.gz txr-069f2e879d2ad0ed7ab111f15cbf9d4901f864df.tar.bz2 txr-069f2e879d2ad0ed7ab111f15cbf9d4901f864df.zip | |
* genman.txr: indentation.
Diffstat (limited to 'genman.txr')
| -rw-r--r-- | genman.txr | 20 |
1 files changed, 10 insertions, 10 deletions
@@ -80,17 +80,17 @@ Content-type: text/html This document was created by @(end) @(set BODY @(mapcar (do if (search-regex @1 #/<H[1-9]>/) - @1 - (regsub #/<TT>.%<\/TT>/ - (do let ((tok [@1 4 -5]) tag) - (if (match-str tok "@(") - (let ((sym [tok 2 -1])) - (set tag [txrhash sym])) - (set tag [@@2 tok])) - (if tag - `<A HREF="#@tag">@1</A>` - @1)) + @1 + (regsub #/<TT>.%<\/TT>/ + (do let ((tok [@1 4 -5]) tag) + (if (match-str tok "@(") + (let ((sym [tok 2 -1])) + (set tag [txrhash sym])) + (set tag [@@2 tok])) + (if tag + `<A HREF="#@tag">@1</A>` @1)) + @1)) BODY LOOKUP)) @(output) |