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 | f31804366c7bd6aefadbfcd8a0b9e2bfe6e0933c (patch) | |
| tree | b4e2fa23bbed24ab892510763ed7733163d8501d | |
| parent | e7d9044bdc0cedc68394739f6327436241ec138f (diff) | |
| download | txr-f31804366c7bd6aefadbfcd8a0b9e2bfe6e0933c.tar.gz txr-f31804366c7bd6aefadbfcd8a0b9e2bfe6e0933c.tar.bz2 txr-f31804366c7bd6aefadbfcd8a0b9e2bfe6e0933c.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>.
| -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>`)) |