version 1.34, 2005/03/30 21:57:12
|
version 1.35, 2005/05/01 19:10:52
|
Line 52 require string.fs
|
Line 52 require string.fs
|
Variable indentlevel |
Variable indentlevel |
Variable tag-option |
Variable tag-option |
Variable tag-class |
Variable tag-class |
|
Variable default-class |
s" " tag-option $! |
s" " tag-option $! |
s" " tag-class $! |
s" " tag-class $! |
|
s" " default-class $! |
|
|
: tag ( addr u -- ) '< emit type |
: tag ( addr u -- ) '< emit type |
tag-class $@len IF .\" class=\"" tag-class $@ type '" emit THEN |
tag-class $@len IF .\" class=\"" tag-class $@ type '" emit THEN |
tag-option $@ type |
tag-option $@ type |
'> emit |
'> emit |
s" " tag-option $! s" " tag-class $! ; |
s" " tag-option $! default-class $@ tag-class $! ; |
: tag/ ( addr u -- ) s" /" tag-option $+! tag ; |
: tag/ ( addr u -- ) s" /" tag-option $+! tag ; |
: /tag ( addr u -- ) '< emit '/ emit type '> emit ; |
: /tag ( addr u -- ) '< emit '/ emit type '> emit ; |
: tagged ( addr1 u1 addr2 u2 -- ) 2dup 2>r tag .type 2r> /tag ; |
: tagged ( addr1 u1 addr2 u2 -- ) 2dup 2>r tag .type 2r> /tag ; |
Line 80 s" " tag-class $!
|
Line 82 s" " tag-class $!
|
: class= ( addr u -- ) |
: class= ( addr u -- ) |
tag-class $@len IF s" " tag-class $+! THEN |
tag-class $@len IF s" " tag-class $+! THEN |
tag-class $+! ; |
tag-class $+! ; |
|
: dclass= ( addr u -- ) 2dup class= |
|
default-class $! ; |
: indent= ( -- ) |
: indent= ( -- ) |
indentlevel @ 0 <# #S 'p hold #> class= ; |
indentlevel @ 0 <# #S 'p hold #> class= ; |
: mailto: ( addr u -- ) s' href="mailto:' tag-option $+! |
: mailto: ( addr u -- ) s' href="mailto:' tag-option $+! |
Line 522 Variable divs
|
Line 526 Variable divs
|
longtags set-current |
longtags set-current |
|
|
: --- 0 indent cr s" hr" tag/ cr ; |
: --- 0 indent cr s" hr" tag/ cr ; |
: * 1 indent s" h1" par +indent ; |
: * 1 indent s" h1" dclass= s" h1" par +indent s" " dclass= ; |
: ** 1 indent s" h2" par +indent ; |
: ** 1 indent s" h2" dclass= s" h2" par +indent s" " dclass= ; |
: *** 2 indent s" h3" par +indent ; |
: *** 2 indent s" h3" dclass= s" h3" par +indent 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 ; |