To: _arc.hive_@lm.va.com.au
From: "Martin (biz.finder.net.au)" <martin@finder.net.au>
Subject: current work
Date: Thu, 19 Dec 2002 19:15:03 +1030

-- fix characters
tell application "Tex-Edit Plus"
	activate
	replace window 1 looking for "'" replacing with "'" replacing 
with styles {color:green} with global replacing
	replace window 1 looking for "'" replacing with "'" replacing 
with styles {color:green} with global replacing

end tell
tell application "Tex-Edit Plus"
	activate
	replace window 1 looking for "=E9" replacing with "é" 
replacing with styles {size:18, color:blue} with cases matching and 
global replacing
	replace window 1 looking for "=C9" replacing with "É" 
replacing with styles {size:18, color:blue} with cases matching and 
global replacing

end tell

-- replace small italics
tell application "Tex-Edit Plus"
	activate
	replace window 1 looking for "^*" replacing with "<i>^*</i>" 
looking for styles {font:"Arial", style:{bold, italic}, size:9} 
replacing with styles {font:"Geneva", style:{bold, italic}, size:12, 
color:yellow} with global replacing
end tell

tell application "Tex-Edit Plus"
	activate
	replace window 1 looking for "^*" replacing with "<i>^*</i>" 
looking for styles {style:{italic}} with global replacing
	replace window 1 looking for "<i>^c</i>" replacing with "^c" 
with global replacing
end tell

-- replace page header
tell application "Tex-Edit Plus"
	activate
	replace window 1 looking for "^*" replacing with "^c^c<span 
class=3D\"pageheader\">^*</span><br><br>" looking for styles 
{font:"Arial", size:16} replacing with styles {font:"Geneva", 
size:20, color:blue} with global replacing
	replace window 1 looking for "<span class=3D\"pageheader\"> 
</span>" replacing with "" looking for styles {font:"Geneva", 
size:20, color:blue} replacing with styles {font:"Geneva", size:20, 
color:blue} with global replacing
	replace window 1 looking for "<span class=3D\"pageheader\"> " 
replacing with "<span class=3D\"pageheader\">" looking for styles 
{font:"Geneva", size:20, color:blue} replacing with styles 
{font:"Geneva", size:20, color:blue} with global replacing
	replace window 1 looking for "<br><br>^c^c" replacing with 
"<br><br>^c" with global replacing
end tell

-- replace closing dates and nominations
tell application "Tex-Edit Plus"
	activate
	replace window 1 looking for "NOMINATIONS CLOSE:" replacing 
with "<b>NOMINATIONS CLOSE:</b>" replacing with styles {size:14, 
color:green} with global replacing
	replace window 1 looking for "CLOSING DATE:" replacing with 
"<b>CLOSING DATE:</b>" replacing with styles {size:14, color:green} 
with global replacing
	replace window 1 looking for "CLOSING DATES:" replacing with 
"<b>CLOSING DATES:</b>" replacing with styles {size:14, color:green} 
with global replacing
end tell

-- replace headings
tell application "Tex-Edit Plus"
	activate
	replace window 1 looking for "^*" replacing with "<span 
class=3D\"headings\">^*</span><br>" looking for styles {font:"Arial", 
size:14} replacing with styles {font:"Geneva", size:14, color:red} 
with global replacing
	replace window 1 looking for "<span class=3D\"headings\"> 
</span>" replacing with "" looking for styles {font:"Geneva", 
size:14, color:red} replacing with styles {font:"Geneva", size:14, 
color:red} with global replacing
	replace window 1 looking for "<span class=3D\"headings\"> " 
replacing with "<span class=3D\"pageheader\">" looking for styles 
{font:"Geneva", size:14, color:red} replacing with styles 
{font:"Geneva", size:14, color:red} with global replacing
end tell


-- replace headings
tell application "Tex-Edit Plus"
	activate
	replace window 1 looking for "^*" replacing with "<span 
class=3D\"headings\"><B>^*</B></span><br>" looking for styles 
{font:"Arial", size:11, style:bold} replacing with styles 
{font:"Geneva", size:12, color:magenta} with global replacing
	replace window 1 looking for "<span class=3D\"headings\"> 
</span>" replacing with "" looking for styles {font:"Geneva", 
size:12, color:magenta} replacing with styles {font:"Geneva", 
size:12, color:magenta} with global replacing
	replace window 1 looking for "<span class=3D\"headings\"> " 
replacing with "<span class=3D\"pageheader\">" looking for styles 
{font:"Geneva", size:12, color:magenta} replacing with styles 
{font:"Geneva", size:12, color:magenta} with global replacing
end tell

-- replace remaining body bold text
tell application "Tex-Edit Plus"
	activate
	replace window 1 looking for "^*" replacing with "<b>^*</b>" 
looking for styles {font:"Times New Roman", style:{bold}, 
color:black} replacing with styles {color:cyan} with global replacing
end tell

-- insert breaks
tell application "Tex-Edit Plus"
	activate
	replace window 1 looking for "^c^c" replacing with "<DOUBLE 
BREAK>" replacing with styles {color:green} with global replacing
	replace window 1 looking for "^c" replacing with "<br>^c" 
replacing with styles {color:blue} with global replacing
	replace window 1 looking for "<DOUBLE BREAK>" replacing with 
"^c<br>^c<br>^c" replacing with styles {color:green} with global 
replacing
end tell

-- put <br>'s into closing dates
tell application "Tex-Edit Plus"
	activate
	replace window 1 looking for " Decisions advised^* Projects" 
replacing with "<br>^cDecisions advised^*<br>^c" with global replacing
	replace window 1 looking for " Projects<br>^c" replacing with 
"<br>^cProjects" with global replacing

	replace window 1 looking for " Decisions advised^* For 
=46unding" replacing with "<br>^cDecisions advised^*<br>^c" with global 
replacing
	replace window 1 looking for " For Funding<br>^c" replacing 
with "<br>^cFor Funding" with global replacing
	replace window 1 looking for "Decisions advised Decisions 
advised" replacing with "Decisions advised" with global replacing
end tell

-- please refer to support material link
tell application "Tex-Edit Plus"
	activate
	replace window 1 looking for " Please refer to Support 
Material^*." replacing with " Please refer to the <a 
href=3D\"submit.html\"><span class=3D\"linkage\">Support 
Material</span></a> page for this category.<br>^c" with global 
replacing
end tell

tell application "Tex-Edit Plus"
	activate
	replace window 1 looking for "^*" replacing with "^c" looking 
for styles {font:"Times", style:{bold}, size:16, color:blue} 
replacing with styles {font:"Arial", style:{bold}, size:16} with 
global replacing
	replace window 1 looking for "^*" replacing with "^c" looking 
for styles {font:"Times", style:{bold}, size:14, color:blue} 
replacing with styles {font:"Arial", style:{bold}, size:16} with 
global replacing
end tell

-- fix characters
tell application "Tex-Edit Plus"
	activate
	replace window 1 looking for ": <br>" replacing with ":<br>" 
with global replacing
	replace window 1 looking for "<br>^c=85	" replacing with 
"<br>^c<li class=3D\"Text\">" with global replacing
end tell