diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-06-03 06:48:49 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-06-03 06:48:49 -0700 |
| commit | c26e9cfea0aa98e13f4652190103288e2f6ccf8a (patch) | |
| tree | bfcf5812175e90c3f4539eb18bc4dde3dc0ebdbe /genman.txr | |
| parent | bc1ff7680631671d089dd837fa4fba390de79d35 (diff) | |
| download | txr-c26e9cfea0aa98e13f4652190103288e2f6ccf8a.tar.gz txr-c26e9cfea0aa98e13f4652190103288e2f6ccf8a.tar.bz2 txr-c26e9cfea0aa98e13f4652190103288e2f6ccf8a.zip | |
Drop between TXR and Lisp syms in HTML Doc.
Dropping the document feature that hyperlinks
in the TXR section resolve to TXR topics,
and TXR Lisp hyperlinks go to TXR Lisp topics.
All multiple uses of symbols are handled through
the new mechanism of disambiguating topic navigators.
* genman.txr (txrhash, txlhash, tgthash): Variables
removed.
(symhash): One variable, replacing those three.
BODY collecting loop no longer collects LOOKUP
variable, since body lines are not associated
with a particular hash.
Diffstat (limited to 'genman.txr')
| -rw-r--r-- | genman.txr | 29 |
1 files changed, 9 insertions, 20 deletions
@@ -1,8 +1,6 @@ @# This requires a hacked version of man2html @# See here: http://www.kylheku.com/cgit/man -@(bind txrhash @(hash :equal-based)) -@(bind txlhash @(hash :equal-based)) -@(bind tgthash txrhash) +@(bind symhash @(hash :equal-based)) @(bind tagmap @(hash :equal-based)) @(bind tochash @(hash :equal-based)) @(bind closedtxt "<TT>[+]</TT>") @@ -49,9 +47,8 @@ Content-type: text/html @(skip)Updated: @YEAR-@MONTH-@DAY<br><a href="#index">Index</a> @(bind TIME @(make-time-utc (int-str YEAR) (int-str MONTH) (int-str DAY) 0 0 0 nil)) -@(bind lookup @[orf txrhash txlhash]) @(bind VERSION nil) -@(collect :vars (BODY LOOKUP)) +@(collect :vars (BODY)) @ (some) @ (cases) <a name="@tag"> </a> @@ -72,13 +69,9 @@ Content-type: text/html @BODY @ (end) @ (and) -<h2>@nil TXR LISP</h2> -@ (set lookup txrhash) -@ (and) <b>TXR</b> - text processing language (version @ver) @ (set VERSION ver) @ (end) -@ (bind LOOKUP lookup) @(until) <hr> <a name="index"> </a><h2>Index</h2> @@ -108,11 +101,10 @@ Content-type: text/html @ (end) @ (and) <dt><a href="@nil">@nil TXR LISP</a><dd> -@ (set tgthash txlhash) @ (and) <dt><a href="#@tag">@(coll :vars (sym))<tt>@sym</tt>@(end) @ (do (let ((n-tag [tagmap tag])) - (mapdo (do pushnew n-tag [tgthash @1]) sym) + (mapdo (do pushnew n-tag [symhash @1]) sym) (set [tochash n-tag] rest))) @ (and) <dt><a href="#@tag">@num @nil @@ -131,7 +123,7 @@ Content-type: text/html This document was created by @(end) @(flatten TOC) -@(do [mapdo process-ambiguities (list txrhash txlhash)]) +@(do (process-ambiguities symhash)) @(set BODY @(let ((inside-tt nil) (inside-syntax nil)) (mapcar (do cond @@ -147,8 +139,7 @@ This document was created by (pop @1))) (tok [@1 1..:]) (bkt [@1 0]) - (tag [(if at txrhash txlhash) - tok])) + (tag [symhash tok])) (if tag `@at@bkt<a href="#@tag">@tok</a>` `@at@1`)) @1)) @@ -162,15 +153,14 @@ This document was created by (set pfx "@(" sym [tok 2 tend] sfx [tok tend .. :] - tag [txrhash sym])) - (t (set tag [@@2 tok] + tag [symhash sym])) + (t (set tag [symhash tok] sym tok))) (if tag `<tt>@pfx<a href="#@tag">@sym</a>@sfx</tt>` @1)) @1))) - BODY - LOOKUP))) + BODY))) @(bind (d-tag n-tag) @(transpose (hash-pairs disamb))) @(output) <!doctype html public "-//W3C//DTD HTML 4.01 Transitional//EN"> @@ -254,8 +244,7 @@ function tocjump(hash) { <div class="disambiguations"> @(repeat) <a name="@{d-tag}"> - <p>Topics matching <tt>@(or (hash-revget txrhash d-tag) - (hash-revget txlhash d-tag))</tt>: + <p>Topics matching <tt>@(hash-revget symhash d-tag)</tt>: <dl> @ (repeat :counter (n 1)) <dt><a href="#@{n-tag}">@n:</a> @[tochash n-tag]</dt> |