version 1.60, 2008/10/29 20:45:33
|
version 1.61, 2010/02/13 17:01:44
|
Line 554 true Value toc-image
|
Line 554 true Value toc-image
|
indentlevel @ over |
indentlevel @ over |
indentlevel ! |
indentlevel ! |
2dup < IF swap DO -env LOOP EXIT THEN |
2dup < IF swap DO -env LOOP EXIT THEN |
2dup > IF DO s" div" >env LOOP EXIT THEN |
2dup > IF DO indent= s" div" >env LOOP EXIT THEN |
2dup = IF drop IF -env s" div" >env THEN THEN |
2dup = IF drop IF -env indent= s" div" >env THEN THEN |
; |
|
: +indent ( -- ) |
|
indentlevel @ IF -env indent= s" div" >env THEN |
|
; |
; |
|
|
wordlist constant longtags |
wordlist constant longtags |
Line 568 Variable divs
|
Line 565 Variable divs
|
longtags set-current |
longtags set-current |
|
|
: --- 0 indent cr s" hr" tag/ cr ; |
: --- 0 indent cr s" hr" tag/ cr ; |
: * 1 indent +indent s" h1" dclass= s" h1" par s" " dclass= ; |
: * 1 indent s" h1" dclass= s" h1" par s" " dclass= ; |
: ** 1 indent +indent s" h2" dclass= s" h2" par s" " dclass= ; |
: ** 1 indent s" h2" dclass= s" h2" par s" " dclass= ; |
: *** 2 indent +indent s" h3" dclass= s" h3" par s" " dclass= ; |
: *** 2 indent s" h3" dclass= s" h3" par s" " dclass= ; |
: -- 0 indent cr print-toc ; |
: -- 0 indent cr print-toc ; |
: && 0 parse id= ; |
: && 0 parse id= ; |
: - s" ul" env s" li" par ; |
: - s" ul" env s" li" par ; |