diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-07-08 22:15:21 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-07-08 22:15:21 -0700 |
| commit | dbca9adcf0c6612b013d42eb7b6b891770e72d72 (patch) | |
| tree | b4e2fa23bbed24ab892510763ed7733163d8501d /genman.txr | |
| parent | f83a4d69e70e429644031c1e66c18539aa7fa358 (diff) | |
| download | txr-dbca9adcf0c6612b013d42eb7b6b891770e72d72.tar.gz txr-dbca9adcf0c6612b013d42eb7b6b891770e72d72.tar.bz2 txr-dbca9adcf0c6612b013d42eb7b6b891770e72d72.zip | |
doc: put [+]/[-] open/collapse markers on right.
* genman.txr (closedtxt, opentxt): Add leading space.
In TOC filtering code, insert the toggle elements
just before the closing </dt> rather than before
opening <a>.
Diffstat (limited to 'genman.txr')
| -rw-r--r-- | genman.txr | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -3,8 +3,8 @@ @(bind symhash @(hash :equal-based)) @(bind tagmap @(hash :equal-based)) @(bind tochash @(hash :equal-based)) -@(bind closedtxt "<TT>[+]</TT>") -@(bind opentxt "<TT>[-]</TT>") +@(bind closedtxt " <TT>[+]</TT>") +@(bind opentxt " <TT>[-]</TT>") @(bind xpnall "[expand all]") @(bind clpsall "[collapse all]") @(bind closed t) @@ -113,7 +113,7 @@ Content-type: text/html @ (end) <dl> @ (cat TOC) -@ (bind pos @(car (search-regex TOC #/<a/))) +@ (bind pos @(car (search-regex TOC #/<\/dt/))) @ (bind id @(gensym)) @ (do (set [TOC pos..pos] `<a href="#/" onclick="toggle(this, '@id')" class="toggle">@(if closed closedtxt opentxt)</a>`)) |