# tmac.wrprc-specific stuff.

# HTML-specific redefinitions for tmac.wrprc

# Ah, Bh, Ch need additional break before output text

imm remove-name y Ah
req Ah parse-macro-args eol \
		break center 0 fill adjust b \
		push-string ".H*header 2\n" \
		push-string ".H*atoc 1\n" \
		push-string "$1\n" \
		push-string ".H*aend\n" \
		push-string ".H*header*end\n"

imm remove-name y Bh
req Bh parse-macro-args eol \
		break center 0 fill adjust b \
		push-string ".H*header 3\n" \
		push-string ".H*atoc 2\n" \
		push-string "$1\n" \
		push-string ".H*aend\n" \
		push-string ".H*header*end\n"

imm remove-name y Ch
req Ch parse-macro-args eol \
		break center 0 fill adjust b \
		font "B" \
		push-string ".H*atoc 3\n" \
		push-string "$1\n" \
		push-string ".H*aend\n" \
		font "R"

# for the fill stuff, should really save the fill value, then restore
imm remove-name y Ps
req Ps parse-macro-args eol \
		break center 0 nofill \
		push-string ".ta 4n +4n +4n +4n +4n +4n +4n +4n\n" \
		push-string ".H*disp*indent 3\n" \
		push-string ".H*disp\n"

imm remove-name y Pe
req Pe parse-macro-args eol \
		break center 0 fill \
		push-string ".ta .5i +.5i +.5i +.5i +.5i +.5i +.5i +.5i\n" \
		push-string ".H*disp*end\n"

imm remove-name y Ls
req Ls parse-macro-args eol \
		break \
		push-string ".H*list\n"

imm remove-name y Li
req Li parse-macro-args eol \
		break \
		push-string ".H*list*item\n"

imm remove-name y Le
req Le parse-macro-args eol \
		break \
		push-string ".H*list*end\n"
