Example HTML Clips

= V7 MultiLine TabWidth=30

H=";HTML Library"
HTML elements in alphabetical order

H="Add New HTML5 page"
^!Open ^$GetTemplatePath$Web page HTML5.tpl

H="All HTML files open"
^!ClearVariable %FileList%
^!Set %Folder%=^?{(T=D)Full path=C:\Shared Documents\Dropbox\Public\Pluralist\}
^!Set %FullPath%=^$GetFileFirst(^%Folder%;*.*htm*)$

:Loop
^!IfTrue ^$IsEmpty(^%FullPath%)$ Close
^!Append %FileList%=^%FullPath%^%nl%
^!Open "^%FullPath%"
^!Set %FullPath%=^$GetFileNext$
^!GoTo Loop

:Close
^!CloseFileFind
^!Info [L]^%FileList%

H="Apostrophe"


H="Background colour span"
<span style="background-color:#cccccc"> ^& </span>

H="Biblio book"
<p class="biblio">^?[Author surname], ^?[Initials and full stops] (^?[Date of publication]), <span style="font-style:italic">^?[Title of book (blank if highlighted)]^&</span>, ^?[Town of publication]: ^?[Publisher], ^?[Relevant pages (or later remove comma and space)].</p>

H="Blockquote"
<blockquote>
^&
</blockquote>

H="Bold"
<strong>^&</strong>

H="Bold span options"
<span style="font-weight:^?[Text strength==Weak^=300|Normal^=500|_Bold^=700|Very bold^=900]">^&</span>

H="Bold to strong"
^!Replace "<b>" >> "<strong>" [HAS]
^!Replace "</b>" >> "</strong>" [HAS]

H="Bookmark out dashes"
^!Replace "-" >> "" HA

H="Bookmark out spaces"
^!Replace " " >> "" HA

H="Bookmark repeat"
<a name="^$StrLower("^&")$"></a>^&

H="Bookmark repeat & to"
<a name="^$StrLower("^&origin")$"></a>
<a href="#^$StrLower("^&")$">^&</a>

H="Bookmark simple"
<a name="whatever"></a>^&

H="Bookmark titles to links"
^!Replace "a name="" >> "a href="#" WAS

H="Bookmark to "
<a href="^?[URL if relevant]#^?[Anchor Name=]">^&</a>

H="Bookmark to image"
^!ToolBar New Document
<p>
<div align="center">
<a href="#whatever"><img ^?[(T=T;F="Image Files|*.gif;*.jpg;*.jpeg")Image file name] border="^?[Border =_0|1|2|3|4|5]" alt="^?[Alt (choose or enter own) =_Jump to next| Image|Click here for ]" /></a>
</div>
</p>

^!ToolBar Select All
^!If ^$GetSelSize$ > 2 Skip
^!ToolBar Select All
^!If ^$GetSelSize$ < 3 End
^!Set %Text%=^$GetSelection$
^!Set %Text%=^$StrReplace("file:///c|/";"C:\";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("%20";" ";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("/";"\";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("C:\My Uploads\Pluralist\";"http://pluralist.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("C:\My Uploads\FreeUK Plural\";"http://www.plural.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("C:\My Uploads\FreeUK Change\";"http://www.change.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("C:\My Uploads\FreeUK Renew\";"http://www.renew.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("\";"/";"^%Text%";No;No)$
^!InsertText ^%Text%

^!Keyboard CTRL+A
^!Keyboard CTRL+L
^!Keyboard CTRL+C
^!Keyboard CTRL+END

^!InsertHtml ^P^P^P^P^P^P^P^P^P^P^P^P^P^P^P^P

^!InsertHtml ^P^P^P^P^P
NOW RETURN TO THE HTML DOCUMENT - NO NEED TO SAVE THIS

^!InsertHtml ^P^P^P

^!Keyboard Ctrl+F4

H="Bookmark to nothing"
<a href="#">^&</a>

H="Bookmark to overlib"
<a href="#^?[Give the bookmark except # (choices to assist and edit)=_whatever||^&]" onmouseover="return overlib('^?[Give explanatory text=^&]', CAPTION, '^?[Give caption title=^&]');" onmouseout="return nd();">^&</a>

H="Bookmark to page top"
<div align="center">
<a href="#top" onmouseover="return overlib('Click for the top of this page');" onmouseout="return nd();"><strong>/ \</strong><br />
<strong>|</strong><br />
<strong>|</strong></a>
</div>

H="Bookmark to repeat"
<a href="#^$StrLower("^&")$">^&</a>

H="Bookmark to repeat & extra"
<a href="#^&">^&<b>Extra</b></a>

H="Bookmark to simple"
<a href="#whatever">^&</a>

H="Bookmark to simple & extra"
<a href="#whatever">^&<b>Extra</b></a>

H="Bookmark to simple & extra cut"
;Cuts text to become extra display text to allow other text to transfer to Bookmark to anchor text too
^!Info Be ready to highlight text to become concealed extra text!
^!Continue Press OK and highlight text: five seconds allowed!
^!Delay 50
^!Keyboard CTRL+X
^!Info Highlight text to become Bookmark to anchor text!^P^Then press clip: Bookmark to simple and extra paste

H="Bookmark to simple & extra paste"
<a href="#whatever">^&<b>
^!Paste
</b></a>

H="Bookmarks in webpage"
^!Continue The examined document must be the furthest right tab. If not, press Cancel and drag its tab
^!ClearVariables
^!Jump Doc_START
^!Set %Location%=^?{(T=D)LOCATION: Press OK - do not normally alter}
^!Set %Directory%=^?{(T=D)Directory choice to SAVE DOCUMENT}
^!Set %FileName%=^$GetFileName(^$GetDocName$)$
^!ToolBar New Document
^!SetScreenUpdate Off
^!MENU Modify/Document to HTML/With Paragraph Tags
^!Replace "<p> </p>^P<p> </p>^P^P</body>^P</html>" >> ""
^!MENU Document/Use as Paste Board
^!Clip "Table start"
^!Document PREV
:FINDIMG
^!Find "<a name=" S
^!IfError END
^!Keyboard SHIFTDOWN END
^!Keyboard CTRL+C
^!Keyboard SHIFTUP RIGHT
^!GoTo FINDIMG
:END
^!Document LAST
^!MENU Document/Use as Paste Board
^!Keyboard CTRL+A
^!Replace "***^P^P" >> "</td>^P^P<td align="left" valign="top">" [HAS]
^!Replace "<tr>^P<td align="left" valign="top">^P</td>^P</tr>^P^P" >> "" [HAS]
^!Jump Doc_END
^!Clip "Table end"
^!InsertHtml ^P
<p> </p>
<p> </p>

</body>
</html>

^!Save AS names_^%FileName%
^!Jump Doc_START
:REPNIL
^!Find "<a name=" S
^!IfError ENDEND
^!Keyboard RIGHT RIGHT
^!Keyboard SHIFT+CTRL+RIGHT
^!Keyboard CTRL+C
^!Find "">" S
^!Keyboard RIGHT
 
^!Keyboard CTRL+V
 
^!GoTo REPNIL
:ENDEND
^!Keyboard CTRL+A
^!Replace "<a name="" >> "<a href="^%Location%^%FileName%#" [HAS]
^!Keyboard CTRL+HOME
^!Replace "C:\My Uploads\FreeUK Pluralist" >> "http://www.pluralist.freeuk.com" [HAS]
^!Keyboard CTRL+HOME
^!Replace "C:\My Uploads\FreeUK Enk" >> "http://www.enk.freeuk.com" [HAS]
^!Keyboard CTRL+HOME
^!Replace "C:\My Uploads\FreeUK Renew" >> "http://www.renew.freeuk.com" [HAS]
^!Keyboard CTRL+HOME
^!Replace "C:\My Uploads\FreeUK Plural" >> "http://www.plural.freeuk.com" [HAS]
^!Keyboard CTRL+HOME
^!Replace "C:\My Uploads\FreeUK Change" >> "http://www.change.freeuk.com" [HAS]
^!Keyboard CTRL+HOME
^!Replace "C:\My Uploads\FreeUK Differ" >> "http://www.differ.freeuk.com" [HAS]
^!Replace "\" >> "/" [HAS]
^!Replace "/ " >> "/" [HAS]
^!Jump Doc_START
^!Save AS ^%Directory%names_^%FileName%
^!SetScreenUpdate On

H="Break line"
<br />

H="Break line clear"
<br clear="left" />

H="Break line not"
<nobr>^&</nobr />

H="Break lines"
<br />
<br />

H="Break lines from lines"
^!Replace ^P >> <br />^P [HAS]

H="Break lines from paras"
^!SetScreenUpdate Off
^!Replace </p>^P^P<p> >> ^P<br/>^P<br/>^P^P [HAS]
^!SetScreenUpdate On

H="Button"
<p>
<div align="center"><a href="../ ***.html" onclick="location='../***.html'"><button>Click for ???</button></a></div>
</p>

H="Centre"

H="Centre para"
<p>
<div align="center">
^&
</div>
</p>

H="Citation infill"
cite="/ict/explain.html"

H="Class biblio infill"
class="biblio"

H="Class repeat infill"
class="^$StrLower("^&")$"^&

H="Close (one liner)"
<a href="javascript:window.close();">Click to close this window.</a>

H="Close window (Body)"
<div align="center">
<a href="javascript:closeWindow()" onclick="location='javascript:closeWindow()'"><button>Click to close</button></a>
</div>

H="Close window (Header)"
<script language="Javascript" type="text/Javascript">
<!--

function closeWindow() {

thisWindow=window.close ('thisWin')

if (Window && !Window.closed) {

Window.close()

}
}

//-->

</script>

H="Colour bg to style"
^!REPLACE bgcolor=" >> bgcolor="# [HAS]
^!REPLACE bgcolor="## >> bgcolor="# [HAS]
^!REPLACE bgcolor="# >> style="background-color:# [HAS]

H="Colour capture"
^!Shell c:\progra~1\smartc~1\smartc~1.exe
^!SetHintInfo Going to a colour finder:
^!FocusApp SmartColor

H="Colour copied span"
^!ClearVariables
^!Set %Colour%=^$GetClipboard$
^!Continue Highlight text to colour (5 seconds)
^!Delay 50
^!InsertText <span style="color:#^%Colour%">^&</span>

H="Colour copied span fast"
^!ClearVariables
^!Set %Colour%=^$GetClipboard$
^!InsertText <span style="color:#^%Colour%">^&</span>

H="Colour copy span"
^!ClearVariables
^!Continue Double click on hex number only (ignore #)
^!Delay 50
^!Set %Newhex%=^$GetSelection$
^!SetClipboard ^%Newhex%
^!Set %Colour%=^$GetClipboard$
^!Keyboard HOME
^!Continue Highlight text to colour (5 seconds)
^!Delay 50
^!InsertText <span style="color:#^%Colour%">^&</span>

H="Colour Hex to RGB"
; Updated 120299/rayfitz
^!Set %HexR%=^?{ &Red hex value}; %HexG%=^?{ &Green hex value}; %HexB%=^?{ &Blue hex value}
^!IfCancel Exit
^!IfFalse ^%HexR% Next ELSE Skip
^!Append %HexR%=0
^!IfFalse ^%HexG% Next ELSE Skip
^!Append %HexG%=0
^!IfFalse ^%HexB% Next ELSE Skip
^!Append %HexB%=0
^!If ^$StrSize("^%HexR%")$ > 1 Skip
^!Set %HexR%=0^%HexR%
^!If ^$StrSize("^%HexG%")$ > 1 Skip
^!Set %HexG%=0^%HexG%
^!If ^$StrSize("^%HexB%")$ > 1 Skip
^!Set %HexB%=0^%HexB%
^!Set %R%=^$HexToInt(^%HexR%)$
^!Set %G%=^$HexToInt(^%HexG%)$
^!Set %B%=^$HexToInt(^%HexB%)$
^!If ^%R% > 255 Special
^!If ^%G% > 255 Special
^!If ^%B% > 255 Special else Display
:SPECIAL
^!Skip Hex value(s) greater than FF! ^%nl%^%nl%Hex ^%HexR% ^%HexG% ^%HexB% = ^%R% ^%G% ^%B% ^%nl%^%nl%^%nl%Insert the values into your document?
^!Goto Focus
Hex ^%HexR% ^%HexG% ^%HexB% = ^%R% ^%G% ^%B%
^!Goto Focus
:DISPLAY
^!Skip Hex: #^%HexR%^%HexG%^%HexB% ^%nl%^%nl%RGB: ^%R% ^%G% ^%B% ^%nl%^%nl%^%nl%Insert the values into your document?
^!Goto Focus
Hex #^%HexR%^%HexG%^%HexB% = RGB ^%R% ^%G% ^%B%
:FOCUS
^!FocusDoc

H="Colour RGB to Hex"
; Updated 120299/rayfitz
:START
^!Set %R%=^?{ &Red RGB value}; %G%=^?{ &Green RGB value}; %B%=^?{ &Blue RGB value}
^!IfCancel Exit
^!Set %HexR%=^$IntToHex(^%R%)$; %HexG%=^$IntToHex(^%G%)$; %HexB%=^$IntToHex(^%B%)$
^!If ^$IsEmpty(^%R%)$=1 Next ELSE Skip
^!Set %R%=0
^!If ^$IsEmpty(^%G%)$=1 Next ELSE Skip
^!Set %G%=0
^!If ^$IsEmpty(^%B%)$=1 Next ELSE Skip
^!Set %B%=0
^!If ^$IsNumber(^%R%)$=0 Number
^!If ^$IsNumber(^%G%)$=0 Number
^!If ^$IsNumber(^%B%)$=0 Number ELSE More
:NUMBER
^!Prompt Sorry, numeric entries only!
^!Goto Start
:MORE
^!If ^$StrSize("^%HexR%")$ > 1 Skip
^!Set %HexR%=0^%HexR%
^!If ^$StrSize("^%HexG%")$ > 1 Skip
^!Set %HexG%=0^%HexG%
^!If ^$StrSize("^%HexB%")$ > 1 Skip
^!Set %HexB%=0^%HexB%
^!If ^%R% < 0 Negative
^!If ^%G% < 0 Negative
^!If ^%B% < 0 Negative ELSE Last
:NEGATIVE
^!Prompt Sorry, nonnegative numbers only!
^!Goto Start
:LAST
^!If ^%R% > 255 Special
^!If ^%G% > 255 Special
^!If ^%B% > 255 Special ELSE Display
:SPECIAL
^!Skip RGB value(s) greater than 255! ^%nl%^%nl%^%R% ^%G% ^%B% = Hex ^%HexR% ^%HexG% ^%HexB% ^%nl%^%nl%^%nl%Insert the values into your document?
^!Goto Focus
^%R% ^%G% ^%B% = Hex ^%HexR% ^%HexG% ^%HexB%
^!Goto Focus
:Display
^!Skip RGB: ^%R% ^%G% ^%B% ^%nl%^%nl%Hex: #^%HexR%^%HexG%^%HexB% ^%nl%^%nl%^%nl%Insert the hex value into your document?
^!Goto Focus
"#^%HexR%^%HexG%^%HexB%"
:FOCUS
^!FocusDoc

H="Colour span black"
<span style="color:#000000">^&</span>

H="Colour span blue"
<span style="color:#0000ff">^&</span>

H="Colour span brown"
<span style="color:#990000">^&</span>

H="Colour span green"
<span style="color:#009900">^&</span>

H="Colour span grey"
<span style="color:#999999">^&</span>

H="Colours hex view"
color:^?[(H=20)Color choice==#000000|#000080|#00008b|#0000cd|#0000ff|#006400|#008000|#008080|#008b8b|#009900|#00bfff|#00ced1|#00fa9a|#00ff00|#00ff7f|#00ffff|#00ffff|#191970|#1e90ff|#20b2aa|#228b22|#2e8b57|#2f4f4f|#32cd32|#3cb371|#40e0d0|#4169e1|#4682b4|#483d8b|#48d1cc|#4b0082|#556b2f|#5f9ea0|#6495ed|#66cdaa|#696969|#6a5acd|#6b8e23|#708090|#778899|#7b68ee|#7cfc00|#7fff00|#7fffd4|#800000|#800080|#808000|#808080|#87ceeb|#87cefa|#8a2be2|#8b0000|#8b008b|#8b4513|#8fbc8f|#90ee90|#9370db|#9400d3|#98fb98|#9932cc|#9acd32|#a0522d|#a52a2a|#a9a9a9|#add8e6|#adff2f|#afeeee|#b0c4de|#b0e0e6|#b22222|#b8860b|#ba55d3|#bc8f8f|#bdb76b|#c0c0c0|#c71585|#cd5c5c|#cd853f|#d2691e|#d2b48c|#d3d3d3|#d8bfd8|#da70d6|#daa520|#db7093|#dc143c|#dcdcdc|#dda0dd|#deb887|#e0ffff|#e6e6fa|#e9967a|#ee82ee|#eee8aa|#f08080|#f0e68c|#f0f8ff|#f0fff0|#f0ffff|#f4a460|#f5deb3|#f5f5dc|#f5f5f5|#f5fffa|#f8f8ff|#fa8072|#faebd7|#faf0e6|#fafad2|#fdf5e6|#ff0000|#ff00ff|#ff00ff|#ff1493|#ff4500|#ff6347|#ff69b4|#ff7f50|#ff8c00|#ffa07a|#ffa500|#ffb6c1|#ffc0cb|#ffd700|#ffdab9|#ffdead|#ffe4b5|#ffe4c4|#ffe4e1|#ffebcd|#ffefd5|#fff0f5|#fff5ee|#fff8dc|#fffacd|#fffaf0|#fffafa|#ffff00|#ffffe0|#fffff0|#ffffff]

H="Comment surround"

H="Cross out"
<del>^&</del>

H="Date created"
^!Set %date%=^$GetDate(dd mmmm yyyy)$
^!InsertText Created on ^%date%^p

H="Date updated"

H="Datetime infill"
datetime="2017-01-01T15:20Z"

H="Definition list"
<dl>
^$removetokens(^$strfill(" <dt></dt><dd></dd>^p";^?[how many items?=1|2|_3|4|5|6|7|8|9])$)$</dl>

H="Delete"
<del>^&</del>

H="Dir 1 List website"
^!Shell "D:\Program Files\Small Utilities\dirhtml\dirhtml.exe"
^!Delay 50
^!FocusApp *dirhtml v4.3
^!Delay 10
^!keyboard ALT+K ENTER

H="Dir 2 Processing"
^!StatusShow Stage 2 To XHTML
^!Open "C:\Shared Documents\Dropbox\public\pluralist\dirtest.html"
^!SetScreenUpdate Off
^!SetWordWrap Off

^!Jump DOC_START
^!Replace "^P" >> "^P^P" WAS

^!Jump DOC_START
^!Menu Modify/"Change HTML Tags"/"To XHTML"
^!Jump DOC_START
^!DeleteLine

^!StatusShow Stage 3 Header
^!Jump DOC_START
^!Find "</head>"
^!Jump LINE_START
^!InsertText ^P
^!InsertText <style type="text/css"> ^P ^P
^!InsertText ^P ^P
^!InsertText </style>^P
^!Jump DOC_START
^!Find border="0">
^!Jump LINE_END
^!Keyboard LEFT
^!InsertText width="50%" align="center"
^!Jump DOC_START
^!Find "meta"
^!Find "<"
^!Jump LINE_START
^!InsertText <meta name="robots" content="follow">

^!StatusShow Stage 4 Completion
^!Jump DOC_START
^!Find "dirtest.html"
^!DeleteLine

^!SetWordWrap On
^!RecycleFile "C:\Shared Documents\Dropbox\public\pluralist\dirtest.html"
^!Save AS "C:\Shared Documents\Dropbox\public\pluralist\filelist.html"
^!Toolbar View in Browser

H="Directory List"
<dir>
^$removetokens(^$strfill(" <li></li>^p";^?[how many items?=1|2|_3|4|5|6|7|8|9])$)$</dir>

H="Div class"
<div class="^?[Class name=standard|_biblio|whatever]">
^&
</div>

H="Div class id"
^!SetPasteIndent Off
^!InsertWizardHtml <div class="^?{&Class name}" id="^?{&Unique ID name}">^P^&^P</div>

H="Div from span"
^!Replace "span" >> "div"

H="Div right"
<div align="right">
^&
</div>

H="Div style"
<div style="line-height:100%; color:#ffffff; font-size:15pt; font-style:italic; padding:10; background-color:#ffff00; text-align:center; font-weight:900">
^&
</div>

H="Embed"
^!SetWizardLabel "Enter values for tag attributes"
^!InsertWizardHtml <embed src="^?{&Object URL=^&}" align="^?{&Align=absbottom|absmiddle|baseline|bottom|left|middle|right|texttop|top}" alt="^?{Alternative text &description}" />

H="Extra infill"
<b>^&</b>

H="Extra infill & into"
^!Find "</a>"
^!Keyboard LEFT
<b></b>
^!Keyboard LEFT LEFT LEFT LEFT

H="Favourites add"
<a onclick="window.external.addFavorite('^?[URL to bookmark=http://www.pluralist.co.uk]','^?[Bookmark Title=Bookmark Adrian Worsfold Website]')" href="">^?[Text to show=IE user Add to Favourites!]</a>

H="File HTML - text - XHTML"
;This removes heaps of bad code and tables
^!Keyboard SHIFT+CTRL+T
^!Keyboard ALT+M D P
^!Keyboard ALT+M M X
^!Keyboard ALT+F A

H="File HTML to text"
;Converts all open HTML documents into plain text files
^!Continue This Clip will convert all open HTML documents to plain text files. Continue?
;Copy the document count in a variable
^!Set %Index%=^$GetDocCount$

;Check every open document through the following loop
:LoopStart
;Activate the specified document (starts with the last one in the tab bar)
^!SetDocIndex ^%Index%
;Skip the conversion process if the document does not have an HTML extension or is a Clipbook library
^!IfFalse ^$IsHTMLDoc$ SkipConversion
^!IfTrue ^$IsClipDoc$ SkipConversion
;Strip tags from current document
^!Toolbar Strip ^?[Keep links in tags?==_Yes^=Tags|No^=HTML]
^!IfError SkipConversion
;Place the cursor at the start of the document
^!Jump Text_Start
;Save converted document if users wants this done automatically
^!IfFalse ^?[Automatically save converted documents?==_Yes|No] Skip
^!Save As ^##

:SkipConversion
;Substract one from the Index value
^!Dec %Index%
;Go back to start of loop if there are still documents left to check
^!If ^%Index% > 0 LoopStart

H="File Open HTML template"
;Opens a template file for the creation of a web page
^!Open ^$GetTemplatePath$HTML.tpl

H="File text to XHTML"
^!Keyboard ALT+M D P
^!Keyboard ALT+M M X
^!Keyboard CTRL+HOME

H="File text to XML"
^!Keyboard ALT+M D P
^!Keyboard ALT+M M X
^!Keyboard CTRL+A
^!Keyboard ALT+M M M
^!Keyboard CTRL+HOME

H="Files HTML to Text..."
^!Continue Strips HTML from files in a directory; converts to .txt. Saves as HTML file name with .txt extension. Continue?

; long line till blank
^!Set %Folder%=^?{(T=D)Browse: full path, end in backslash}; %Close%=^?{Files are made in NoteTab, close each new file as it is made==_Yes^=Close|No^=}; %Strip%=^?{Strip Tags preserves urls, strip html removes all tags==ToolBar Strip Tags|_ToolBar Strip html}

^!SetHintInfo Converting...
^!SetScreenUpdate Off

^!Set %FullPath%=^$GetFileFirst(^%Folder%;*.*htm*)$

:Loop
^!IfTrue ^$IsEmpty(^%FullPath%)$ Close
^!SetClipboard ^$GetFileText(^%FullPath%)$
^!ToolBar Paste New

^!^%Strip%
^!Save:As ^$GetPath("^%FullPath%")$^$GetName("^%FullPath%")$.txt
^!^%Close%
^!Inc %FileCount%
^!Set %FullPath%=^$GetFileNext$
^!Goto Loop

:Close
^!CloseFileFind
^!Info ^%FileCount% files converted

H="Files open favourites"
^!Menu Favorites/Categories/Favorites/Open All

H="Files text to HTML"
;Converts all open non-HTML documents to HTML
^!Continue This Clip will convert all open non-HTML documents to HTML documents. Continue?
;Copy the document count in a variable
^!Set %Index%=^$GetDocCount$

;Check every open document through the following loop
:LoopStart
;Activate the specified document (starts with the last one in the tab bar)
^!SetDocIndex ^%Index%
;Skip the conversion process if the document has an HTML extension or is a Clipbook library
^!IfTrue ^$IsHtmlDoc$ SkipConversion
^!IfTrue ^$IsClipDoc$ SkipConversion
;Convert text to HTML format
^!Toolbar Document to HTML
^!IfError SkipConversion
;Place the cursor at the start of the document
^!Jump Text_Start
;Save converted document if users wants this done automatically
^!IfFalse ^?[Automatically save converted documents?==_Yes|No] Skip
^!Save As ^##

:SkipConversion
;Substract one from the Index value
^!Dec %Index%
;Go back to start of loop if there are still documents left to check
^!If ^%Index% > 0 LoopStart

H="Folder open"
^!Shell "^?{(T=D)Enter folder name/ Use the button =^$GetExpandedName$}"

H="Folder TIF open"
^!Set %Folder%=^$GetExpandedName(^$GetShellFolder(Cache)$)$
^!Shell "^?{(T=D)Enter folder name/ Use the button =^%Folder%}"

H="Folder to ISP"
^!Set %PageTitle%=^?{Page title=Files in Folder}; %FileName%=^?{Web page file name (no path or extension) =dirXXXXX}; %Directory%=^?{(T=D)Directory to search}; %Specs%=^?{File Specs=*.*}; %Sorting%=^?{(T=C)File sorting==Unsorted|_Name|Type|Date|Size}; %Reverse%=^?{(T=C)Descending order==Yes^=Rev|_No^=}
^!IfCancel Exit

^!Set %Sorting%=^%Reverse%^%Sorting%
^!Close "^%Directory%^%FileName%.htm"
^!Set %KeepNameFormat%=^$GetNameFormat$
^!SetNameFormat ^%Directory%^%FileName%.html
^!ToolBar New Document
^!SetNameFormat ^%KeepNameFormat%
^!SetWordWrap OFF
^!InsertHtml <html xmlns="http://www.w3.org/1999/xhtml">^P<head>^P<title>^%PageTitle%</title>^P<meta name="Keywords" content="Directory, File, Names, HTML" />^P<meta name="Description" content="File names" />^P^P<link rel="stylesheet" type="text/css" href="../pagetnr.css" />^P^P<style type="text/css">^P^Pbody{text-align:justify;margin:5%;background:000099}^P^PH2 {font-size:15pt;padding:10;color:000099;background:ffff00;text-align:center;font-weight:900}^P
^P^PH1 {font-size:15pt;color:ffffff;text-align:center;font-weight:900}^P
TD {text-align:center;color:blue; background:yellow}^P^P</style>^P</head>^P^P
<body>^P<div align="center">^P^P<h1>^%PageTitle%</h1>^P<h2>^%Directory%^%Specs%</h2>^P<table width="70%" cellspacing="20" cellpadding="10">^P^P

^!Set %HTMLFullName%=^$GetFileFirst(^%Directory%;"^%Specs%";^%Sorting%)$
^!IfTrue ^$IsEmpty(^%HTMLFullName%)$ ExitLoop
^!Set %HTMLName%=^$GetFileName(^%HTMLFullName%)$
^!InsertHtml <tr>^P<td><a href="^$StrLower("^%directory%^%htmlname%")$"> ^$StrLower("^%Directory%^%HTMLName%")$<br />(^$GetFileSize(^%HTMLFullName%)$ bytes)</a></td>^P</tr>^P

^!Set %HTMLFullName%=^$GetFileNext$
^!GoTo StartLoop

:ExitLoop
^!CloseFileFind
^!InsertText ^P
^!InsertHtml ^P</table>^P</div>^P</body>^P</html>^P

^!If ^$GetSelSize$ > 2 Skip
^!ToolBar Select All
^!If ^$GetSelSize$ < 3 End
^!Set %Text%=^$GetSelection$
^!Set %Text%=^$StrReplace("C:\Documents\Shared Documents\Shared Uploads\FreeUK Pluralist\";"http://www.pluralist.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("C:\Documents\Shared Documents\Shared Uploads\FreeUK Plural\";"http://www.plural.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("C:\Documents\Shared Documents\Shared Uploads\FreeUK Enk\";"http://www.enk.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("C:\Documents\Shared Documents\Shared Uploads\FreeUK Change\";"http://www.change.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("C:\Documents\Shared Documents\Shared Uploads\FreeUK Renew\";"http://www.renew.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("\";"/";"^%Text%";No;No)$
^!InsertText ^%Text%

^!Jump Text_Start
^!Keyboard ALT+M M X
^!Keyboard CTRL+HOME
^!Keyboard CTRL+W

^!Save AS C:\My Uploads\FreeUK~2\direct~1\^%FileName%.html

^!Goto ^?{What would you like to do now?==_View page in main browser^=Next|View page in second browser^=SecondBrowser|No preview^=End}
^!ToolBar View in Browser
^!Goto End
:SecondBrowser
^!ToolBar View Other Browser

H="Folders to http"
^!If ^$GetSelSize$ > 2 Skip
^!ToolBar Select All
^!If ^$GetSelSize$ < 3 End
^!Set %Text%=^$GetSelection$
^!Set %Text%=^$StrReplace("C:\Documents\Shared Documents\Shared Uploads\FreeUK Pluralist\";"http://www.pluralist.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("C:\Documents\Shared Documents\Shared Uploads\FreeUK Differ\";"http://www.differ.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("C:\Documents\Shared Documents\Shared Uploads\FreeUK Plural\";"http://www.plural.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("C:\Documents\Shared Documents\Shared Uploads\FreeUK Enk\";"http://www.enk.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("C:\Documents\Shared Documents\Shared Uploads\FreeUK Change\";"http://www.change.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("C:\Documents\Shared Documents\Shared Uploads\FreeUK Renew\";"http://www.renew.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("\";"/";"^%Text%";No;No)$
^!InsertText ^%Text%

H="Font old end"
</font>

H="Font old start"
<font color="#" size="3">

H="Font Size infill"
font-size:^?[font-size=8pt|10pt|12pt|14pt|16pt|18pt|20pt|22pt|24pt|26pt|28pt|30pt|36pt|48pt];^&

H="Font to span style"
^!Replace font face=" >> span style="font-family: [HAS]
^!Replace font color=" >> span style="color: [HAS]
^!Replace /font >> /span [HAS]

H="Form"
^!SetWizardLabel "Enter values for tag attributes"
^!InsertWizardHtml <form action="^?{&Action (CGI-BIN) URL}" method="^?{&Method=get|post}" target="^?{&Target (transitional)=blank^=_blank|parent^=_parent|self^=_self|top^=_top}">^P ^&^P</form>^P

H="Form checkbox"
<input type="checkbox" name="check1" value="Magellan" checked>^&<br />

H="Form input choices"
^!SetWizardLabel "Enter values for tag attributes"
^!InsertWizardHtml <input type="^?{Input &type=Button|Checkbox|File|Hidden|Image|Password|Radio|Reset|Submit|_Text}" name="^?{Input &name}" value="^?{&Value=^&}" />^P

H="Form input text"
^!SetWizardLabel "Enter values for tag attributes"
^!InsertWizardHtml <input type="Text" name="^?{Field &name}" value="^?{&Value=^&}" maxlength="^?{&Maximum text length}" size="^?{&Size}" />^P

H="Form menu"
<div align="center">
<form>
<select name="list" size="^?[Size==_1|2|3|4|5]">
^!Set %ItemCount%=^?[Number of items=_1|2|3|4|5|6|7|8|9|10]
^!Set %ItemIndex%=0
:RepeatItem
^!Inc ItemIndex
^!If ^%ItemIndex% > ^%ItemCount% EndItem
<option selected="selected" value="^?{Destination ^%ItemIndex%}">^?{Name for Link}</option>

^!GoTo RepeatItem
:EndItem
</select>
<input type="button" value="^?[Navigation Button Name=GO!]" onclick="top.location.href=this.form.list.options[this.form.list.selectedIndex].value" />
</form>
</div>

H="Form radio"
<input type="radio" name="qanda" value="neutral" checked>^&<br />

H="Form select"
^!If ^$GetSelSize$ > 0 FormatSelection
^!Set %Count%=^?{How many &items?=1|2|_3|4|5|6|7|8|9}; %FieldName%=^?{Field &name}
^!InsertWizardHtml <select name="^%FieldName%">^P^$StrFill(" <option></option>^P";^%Count%)$</select>^P
^!Goto End

:FormatSelection
^!Select PARAGRAPHS
^!SetListDelimiter ^P
^!SetArray %Items%=^$GetSelection$

^!Set %Indent%=" "
^!Set %GroupIndent%=""
^!Set %IndentSize%=^$Calc(^$StrSize("^%Items1%!")$ - ^$StrSize("^$StrTrim("^%Items1%!")$")$)$
^!If ^%IndentSize% > 0 ^!Set %Indent%=^$StrCopy("^%Items1%";1;^%IndentSize%)$
^!If ^%IndentSize% > 2 ^!Set %GroupIndent%=^$StrCopy("^%Indent%";1;^$Calc(^%IndentSize% - 2)$)$

^!Set %Index%=1; %ItemsCount%=^%Items0%; %ListStr%=^%GroupIndent%<select name="^?{Field name}">^P
^!If ^%ItemsCount% > 1 ^!Dec %ItemsCount%

:StartLoop
^!If ^%Index% > ^%ItemsCount% EndLoop
^!Set %ListStr%=^%ListStr%^%Indent%<option value="^?{&Option value (optional)}"^?{&selected="Yes^=" selected|_no^="}">^?{Text=^$StrTrim("^%Items^%Index%%")$}</option>^P
^!Inc %Index%
^!Goto StartLoop

:EndLoop
^!InsertWizardHtml ^%ListStr%^%GroupIndent%</select>^P

H="Form submit"
^!SetWizardLabel "Enter value for tag attributes"
^!InsertWizardHtml <input type="Submit" name="^?{Button &name}" value="^?{&Value=Submit}" />^P

H="Frames none"
^!InsertHtml <noframes>^p ^&^p</noframes>^p

H="Frameset"
^!SetWizardLabel "Enter values for tag attributes"
^!InsertWizardHtml <frameset cols="^?{List of &columns}" rows="^?{List of &rows}">^p ^&^p</frameset>^p

H="FTP Edit Crimson"
^!Keyboard CTRL+A
^!Keyboard CTRL+C
^!Shell c:progra~1\crimso~1\cedt.exe
^!SetHintInfo Going to EditPad:
^!FocusApp Crimson Editor*

H="FTP Edit Remotepad"
^!Shell c:progra~1\smallu~1\remote~1\remote~1.exe
^!FocusApp RemotePad*

H="FTP Explorer"
^!Shell c:progra~1\ftpexp~1\ftpx.exe
^!FocusApp Connect

H="FTP FreeUK Change"
^!Shell c:progra~1\terrap~1\servers\change.svr
^!FocusApp change.svr*

H="FTP FreeUK Enk"
^!Shell c:progra~1\terrap~1\servers\plural.svr
^!FocusApp plural.svr*

H="FTP FreeUK Plural"
^!Shell c:progra~1\terrap~1\servers\freese~1.svr
^!FocusApp freeserve.svr*

H="FTP FreeUK Renew"
^!Shell c:progra~1\terrap~1\servers\renew.svr
^!FocusApp renew.svr*

H="FTP Pluralist"
^!Shell c:progra~1\terrap~1\servers\plural~1.svr
^!FocusApp pluralist.svr*

H="FTP WS program"
^!Shell c:progra~1\ws_ftp\ws_ftp95.exe
^!FocusApp Session Properties

H="H1"
<h1>^&</h1>
^!Keyboard HOME
^!Inserttext "<br />^P"

H="H1 from para"
^!Replace "p>" >> "h1>" [HAS]
^!Keyboard HOME
^!Inserttext "<br />^P"

H="H1 to H4 class"
^!InsertWizardHtml <h^?{(T=C)&Header level==_1|2|3|4} class="^?{&Class name}">^&</h^?{&Header level}>^P

H="H2"
<h2>^&</h2>
^!Keyboard HOME
^!Inserttext "<br />^P"

H="H2 from para"
^!Replace "p>" >> "h2>" [HAS]
^!Keyboard HOME
^!Inserttext "<br />^P"

H="H3"
<h3>^&</h3>
^!Keyboard HOME
^!Inserttext "<br />^P"

H="H3 from para"
^!Replace "p>" >> "h3>" [HAS]
^!Keyboard HOME
^!Inserttext "<br />^P"

H="H4"
<h4>^&</h4>
^!Keyboard HOME
^!Inserttext "<br />^P"

H="H4 & bookmark repeat"
<a name="^$StrLower("^&")$"></a>

^!KEYBOARD HOME
<h4>^&</h4>
^!Keyboard HOME
^!Inserttext "<br />^P"
^!KEYBOARD UP
^!KEYBOARD END
^!KEYBOARD SHIFT+HOME
^!KEYBOARD SHIFT+RIGHT
^!KEYBOARD SHIFT+RIGHT
^!KEYBOARD SHIFT+RIGHT
^!Replace " " >> "" HA

H="H4 from para"
^!Replace "p>" >> "h4>" [HAS]
^!Keyboard HOME
^!Inserttext "<br />^P"

^!Set %Author%=^$GetValue(HTML_Author)$
^!Set %CSS%=^$GetValue(HTML_CSS)$

^!Set %DefaultCharSet%=^$GetValue(HTML_CharSet)$
^!IfTrue ^$IsEmpty(^%DefaultCharSet%)$ ^!Set %DefaultCharSet%=Unicode (UTF-8)
^!Set %CharSetValues%=^$SetDefaultValue("^%CharSetValues%";^%DefaultCharSet%)$

^!Set %Title%=^?{&Web page title}; %Description%=^?{Web page &description}; %Keywords%=^?{Web page &keywords}; %Author%=^?{Your &name=^%Author%}; %CharSet%=^?{&Character set=^%CharSetValues%}; %CSS%=^?{C&SS file name=^%CSS%}

^!SaveValue HTML_Author=^%Author%
^!SaveValue HTML_CSS=^%CSS%
^!SaveValue HTML_CharSet=^%CharSet%

^!IfFalse ^$IsEmpty(^%CharSet%)$ ^!Set %CharSet%= <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=^%CharSet%">^P
^!IfFalse ^$IsEmpty(^%Author%)$ ^!Set %Author%= <META NAME="author" CONTENT="^%Author%">^P
^!IfFalse ^$IsEmpty(^%Description%)$ ^!Set %Description%= <META NAME="description" CONTENT="^%Description%">^P
^!IfFalse ^$IsEmpty(^%Keywords%)$ ^!Set %Keywords%= <META NAME="keywords" CONTENT="^%Keywords%">^P
^!IfFalse ^$IsEmpty(^%CSS%)$ ^!Set %CSS%= <LINK REL="stylesheet" TYPE="text/css" HREF="^%CSS%">^P

^!InsertHtml <HEAD>^P <TITLE>^%Title%</TITLE>^P^%CharSet% <META NAME="generator" CONTENT="^$GetProgName$ ^$GetProgVersion$ (www.notetab.com)">^P <META NAME="created" CONTENT="^$GetDate(yyyy-mm-dd)$">^P^%Author%^%Description%^%Keywords%^%CSS%</HEAD>^P

H="Header Crosshair"
<style type="text/css">

</style>

H="Header no right"
<script language="javascript" src="../../noright.js"></script>

H="Header title"
^!InsertHtml <title>^&</title>^P^P

H="Highlight"
<span style="background-color:#ffff00">^&</span>

H="Horizontal line"
<hr width="95%" align="center" size="1" color="c3b39c" />
<br />

H="HTML"
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>

<title>Pluralist</title>
</head>
<body>

</body>
</html>

H="HTML code tidy"
;Tidy code in all open HTML documents. This Clip can use the HTML Tidy program, if available
^!Continue This Clip will tidy the code in all open HTML documents. Continue?

;Copy the document count in a variable
^!Set %Index%=^$GetDocCount$

;Determine method to use
^!Set %UseHtmlTidy%=No
^!IfFileExist "^$GetTidyExe$" ^!Set %UseHtmlTidy%=Yes
^!IfFalse ^%UseHtmlTidy% InitPlain
;If HTML Tidy is found, ask which method the user would like to use
^!Set %UseHtmlTidy%=^?{Select method==_Use HTML Tidy program (more options)^=Yes|Use NoteTab commands (much faster)^=No}
^!IfTrue ^%UseHtmlTidy% InitTidy

:InitPlain
^!Set %Param%=^?{Tag format?==_Uppercase|Lowercase|XHTML}; %SaveChanges%=^?{Automatically save changed documents?==Yes|_No}; %Label%=CallPlain
^!Goto LoopStart

:InitTidy
^!Set %Param%=--tidy-mark false -q^?{Indent HTML code?==_Yes^=i|No^=}^?{Tag format?==_Uppercase^=u|Lowercase^=|XHTML^= -asxml}^?{Wrap long lines?==Yes^=|_No^= -wrap 0}; %SaveChanges%=^?{Automatically save changed documents?==Yes|_No}; %Label%=CallTidy

;Tidy the contents of the current document
:CallPlain
^!Select ALL
^!InsertText ^$GetHtmlTextTidy("^$GetSelection$";^%Param%)$
^!Goto EndCall

:CallTidy
^!RunTidy ^%Param%
^!IfError UpdateIndex

:EndCall
;Place the cursor at the start of the document
^!Jump Text_Start
;Save converted document if users wants this done automatically
^!IfFalse ^%SaveChanges% UpdateIndex
^!IfFalse ^$IsModified$ UpdateIndex
^!Save

:UpdateIndex
;Substract one from the Index value
^!Dec %Index%
;Go back to start of loop if there are still documents left to check
^!If ^%Index% > 0 LoopStart

H="HTML end"
</body>
</html>

H="HTML file open"
^!Set %OpenFile%=^?{(T=O;S=M;F="HTML Files (*.*htm*)|*.*htm*")=^$GetValue(HTML:Files)$}
^!IfSame "^%OpenFile%" "^$GetValue(HTML:Files)$" End
^!IfTrue ^$IsEmpty("^%OpenFile%")$ End
^!Open "^%OpenFile%"

H="HTML new"
^!Open ^$GetTemplatePath$HTML.tpl

H="HTML surround"
^!Keyboard Ctrl+A
^!Keyboard Ctrl+X

^!SetIniFile ^$GetLibraryName$
^!Set %XName%=^$GetValue(XName)$; %XEmail%=^$GetValue(XEmail)$

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>^?[Web Page Title]</title>
<link rev="made" href="mailto:^%XEmail%" />
<meta name="author" content="^%XName%" />
<meta name="keywords" content="^?[Web Page Keywords seperated by commas]" />
<meta name="description" content="^?[Web Page Description]" />

</head>
<body>

^!Keyboard Ctrl+V

</body>
</html>

H="HTMLs to file"
;Prompt user with Clip wizard to determine which files should be listed and how the page should be built
^!Set %PageTitle%=^?{Page title=HTML Files}; %FileName%=^?{Web page file name (no path or extension)=HTML Files}; %Directory%=^?{(T=D)Directory to search}; %Specs%=^?{File Specs=*.htm;*.html}; %Sorting%=^?{(T=C)File sorting==Unsorted|_Name|Type|Date|Size}; %Reverse%=^?{(T=C)Descending order==Yes^=Rev|_No^=}
;End procedure if the user canceled the Clip wizard
^!IfCancel Exit

;Set variable for sorting parameter
^!Set %Sorting%=^%Reverse%^%Sorting%
;Close the output file if there is one open in NoteTab
^!Close "^%Directory%^%FileName%.htm"
;Create a new document with specified name for web page
^!Set %KeepNameFormat%=^$GetNameFormat$
^!SetNameFormat ^%Directory%^%FileName%.htm
^!ToolBar New Document
^!SetNameFormat ^%KeepNameFormat%
;Turn word wrap off
^!SetWordWrap OFF
;Insert web page header and title
^!InsertHtml <html xmlns="http://www.w3.org/1999/xhtml">^P<head>^P<title>^%PageTitle%</title>^P<meta name="Keywords" content="Directory, File, Names, HTML" />^P<meta name="Description" content="File names" />^P</head>^P<body>^P<center>^P<h1>^%PageTitle%</h1>^P<h2>^%Directory%^%Specs%</h2>^P<hr />^P</center>^P

;Retrieve first file name that matches specified search criteria
^!Set %HTMLFullName%=^$GetFileFirst(^%Directory%;"^%Specs%";^%Sorting%)$
:StartLoop
;If the HTML name is empty (no more matching files), leave the loop
^!IfTrue ^$IsEmpty(^%HTMLFullName%)$ ExitLoop
;Copy HTML name without path to variable
^!Set %HTMLName%=^$GetFileName(^%HTMLFullName%)$
;Insert image tag and information into document
^!InsertHtml <a href="^$StrLower("^%directory%^%htmlname%")$"="directory%^%htmlname%")$""> ^$StrLower("^%Directory%^%HTMLName%")$ (^$GetFileSize(^%HTMLFullName%)$ bytes)</a><p>^P

;Get next matching HTML name and go back to start of loop
^!Set %HTMLFullName%=^$GetFileNext$
^!GoTo StartLoop

:ExitLoop
;Close the file-find variable to restore system resources
^!CloseFileFind
;Insert line break after last image tag
^!InsertText ^P
;Insert web page closing tags
^!InsertHtml ^P</body>^P</html>^P

;Place cursor back to top of page
^!Jump Text_Start
;Offer user the choice to display the newly created web page in browser or end Clip
^!Goto ^?{What would you like to do now?==_View page in main browser^=NextView page in second browser^=SecondBrowser|No preview^=End}
^!ToolBar View in Browser
^!Goto End
:SecondBrowser
^!ToolBar View Other Browser

H="Hyperlink email"
<a href="mailto:fred@fred.co.uk">^&</a>

H="Hyperlink email set"
^!SetIniFile ^$GetLibraryName$
^!SetWizardLabel "The following will be saved and used in other clips."
^!Set %XName%=^?{Default Name=_^$GetValue(XName)$|Adrian}; %XEmail%=^?{Default Email Address=_^$GetValue(XEmail)$|_adrian@pluralist.co.uk}
^!SaveValue XName=^$StrTrim(^%XName%)$
^!SaveValue XEmail=^$StrTrim(^%XEmail%)$
^!SaveValue XMade="777"

H="Hyperlink end"
</a>

H="Hyperlink find start"
^!ToolBar New Document
^!Keyboard Shift+Ctrl+F5

^!Select All
^!If ^$GetSelSize$ < 3 End
^!Set %Text1%=^$GetSelection$
^!Set %Text2%=^$StrReplace("\";"/";"^%Text1%";No;No)$

^!Toolbar Clear All

^!InsertText <a href="^%Text2%" target="_blank">

^!Select All
^!Menu Modify/Text Case/Lower Case

^!Jump DOC_START
^!Replace "c:/shared documents/dropbox/public/pluralist/" >> "https://dl.dropboxusercontent.com/u/28120070/pluralist/" WAS

^!Toolbar Copy All
^!Jump DOC_END

^!InsertText ^P^P^P^P^P^P^P^P^P^P^P^P^P^P

NOW RETURN TO THE HTML DOCUMENT - NO NEED TO SAVE THIS
CONTROL+V at link start, hyperlink end </a> at link's end

^!Keyboard CTRL+F4

H="Hyperlink image"
^!ToolBar New Document

"^?[Target=Open in frameset^= target="_parent"|Whole^= target="_top"|New window^= target="_blank"]>
^!SetWizardLabel "Enter values for tag attributes"
<img ^?[(T=T;F="Image Files|*.gif;*.jpg;*.jpeg;*.png")Image file name] border="^?[Border =_0|1|2|3|4|5]" /></a>

^!Select All
^!If ^$GetSelSize$ < 3 End
^!Set %Text1%=^$GetSelection$
^!Set %Text2%=^$StrReplace("\";"/";"^%Text1%";No;No)$

^!Toolbar Clear All

^!Keyboard Shift+Ctrl+F5
^!Select All
^!Set %Text3%=^$GetSelection$
^!Set %Text4%=^$StrReplace("\";"/";"^%Text3%";No;No)$
^!Toolbar Clear All

^!InsertText <a href="^%Text4%^%Text2%

^!Select All
^!Menu Modify/Text Case/Lower Case

^!Jump DOC_START
^!Replace "c:/users/worsfold/dropbox/public/pluralist/" >> "http://www.pluralist.co.uk/" WAS

^!Toolbar Copy All
^!Jump DOC_END

NOW RETURN TO THE HTML DOCUMENT - NO NEED TO SAVE THIS
CONTROL+V at link place

^!InsertHtml ^P^P^P^P^P
^!Keyboard Ctrl+F4

H="Hyperlink image para simple"
^!ToolBar New Document
<p>
<div align="center">
<a href=".html" target="_blank"><img ^?[(T=T;F="Image Files|*.gif;*.jpg;*.jpeg;*.png")Image file name] border="^?[Border =_0|1|2|3|4|5]" /></a>
</div>
</p>

^!Select All
^!If ^$GetSelSize$ < 3 End
^!Set %Text1%=^$GetSelection$
^!Set %Text2%=^$StrReplace("\";"/";"^%Text1%";No;No)$

^!Toolbar Clear All

^!InsertText ^%Text2%

^!Select All
^!Menu Modify/Text Case/Lower Case

^!Toolbar Copy All
^!Jump DOC_END

NOW RETURN TO THE HTML DOCUMENT - NO NEED TO SAVE THIS
CONTROL+V at link place

^!InsertHtml ^P^P^P^P^P
^!Keyboard Ctrl+F4

H="Hyperlink mailto"
^!SetIniFile ^$GetLibraryName$
^!Set %XName%=^$GetValue(XName)$; %XEmail%=^$GetValue(XEmail)$
^!Set %temp%=^&
^!If ^$StrPos("@";^&;False)$ <> 0 DoMail
^!If ^%Temp<>"" doHighlighted ELSE doNot
^!Goto END

:DoMail
<a href="mailto:^?{Enter Email Address=_^&|^%XEmail%}">^?{Text to Set as
The Active Link=^&|_^%XName%}</a>
^!Goto END

:doHighlighted
<a href="mailto:^?{Enter Email Address=^&|_^%XEmail%}">^?{Text to Set as
The Active Link=_^&|^%XName%}</a>
^!Goto END

:doNot
<a href="^%XEmail%">^%XName%</a>

H="Hyperlink mouseover"
<a href="fred.html#part" onmouseover="location='fred.html#part'">^&</a>

H="Hyperlink overlib"
<a href="^?[Give the whole URL (choices to assist and edit)=_.html|http://www.|http://www.^&.co.uk|http://www.^&.com]" onmouseover="return overlib('^?[Give explanatory text=^&]', CAPTION, '^?[Give caption title=^&]');" onmouseout="return nd();">^&</a>

H="Hyperlink pasted & extra add content"
<a href="
^!Paste
">^&<b>^?[Text revealed on mouseover=Click for |Explanation: ]</b></a>

H="Hyperlink reference"
;Wraps around URL
, [Online], Available World Wide Web, URL:^& [Accessed date, time].

H="Hyperlink relations"
^!SetWizardLabel "Enter values to build Link tag"
^!InsertWizardHtml <LINK HREF="^?{&URL of linked resource}" REL="^?{&Relationship to link=alternate|bookmark|chapter|contents|copyright|glossary|help|index|next|prev|section|start|stylesheet|subsection}" REV="^?{Relationship &from link=alternate|bookmark|chapter|contents|copyright|glossary|help|index|made|next|prev|section|start|stylesheet|subsection}">^P

H="Hyperlink repeat"
^!If ^$StrPos("@";^&;False)$ <> 0 checkmailto
^!If ^$StrPos("http";"^&";false)$ = 0 nohttp ELSE http

:checkmailto
^!If ^$StrPos("mailto:";"^&";false)$ <> 0 mailto ELSE nomailto

:nomailto
<a href="mailto:^$StrLower("^&")$">^&</a>
^!Goto END

:mailto
<a href="^&">^&</a>
^!Goto END

:nohttp
<a href="http://www.^$StrLower("^&")$" target="_blank">^&</a>
^!Goto END

:http
<a href="^$StrLower("^&")$" target="_blank">^&</a>

:end

H="Hyperlink repeat .html"
<a href="^$StrLower("^&")$.html">^&</a>

H="Hyperlink simple & extra"
<a href="whatever.html">^&<b>Extra</b></a>

H="Hyperlink simple & extra pasted"
<a href="whatever.html">^&<b>
^!Paste
</b></a>

H="Hyperlink simple .html"
<a href="whatever.html">^&</a>

H="Hyperlink simple .pdf"
<a href="whatever.pdf">^&</a>

H="Hyperlink simple target"
<a href="" target="_blank">^&</a>
^!Keyboard HOME
^!Find """"

H="Hyperlink target infill"
target="^?[Target==_Blank^=_blank|Parent^=_parent|Self^=_self|Top^=_top]"
^!Replace " " >> ""

H="Hyperlink title"
title=""

H="Hyperlink title return"
^!Replace <div id="tooltip" style="position:absolute;visibility:hidden"></div>^P^P >> ""
^!Replace onmouseover="showtip(this,event,' >> title=" [HAS]
^!Replace ')" onmouseout="hidetip()" >> ***> [HAS]
^!Replace ')"^Ponmouseout="hidetip()"> >> ***> [HAS]
^!Replace *** >> " [HAS]
^!Replace "')" >> "" [HAS]

H="Hyperlink up one down infill"
../folder/

H="Hyperlink up one infill"
../

H="Hyperlink www"
<a href="http://www.???.co.uk" target="_blank">^&</a>

H="Hyperlinks all repeat"
^!SetScreenUpdate Off
^!ClearVariables

^!Jump Doc_Start
:Loop1
^!Find "http://" S
^!IfError END1
^!MoveCursor 1
^!Select Url
^!Set %url%=^$GetSelection$
^!InsertHTML <a href=^%url% target="_blank">^%url%</a>
^!Goto Loop1
:END1

^!Jump Doc_Start
^!ClearVariables

:Loop2
^!Find "https://" S
^!IfError END2
^!MoveCursor 1
^!Select Url
^!Set %url%=^$GetSelection$
^!InsertHTML <a href=^%url% target="_blank">^%url%</a>
^!Goto Loop2
:END2

^!SetScreenUpdate On

H="Hyperlinks all shite (text)"
^!Replace "https://.+JobTitle=(.+?\d{4}-\d{2}-\d{2}).+00(?=( |\R))" >> "<a href="$0" target="_blank">UJ $1" WRASTI

H="Hyperlinks in webpage"
^!Continue The examined document must be the furthest right tab. If not, press Cancel and drag its tab
^!Jump Doc_START
^!Set %Directory%=^?[(T=D)Directory to save result]
^!Set %FileName%=^$GetFileName(^$GetDocName$)$
^!ToolBar New Document
^!MENU Modify/Document to HTML/With Paragraph Tags
^!Replace "<p> </p>^P<p> </p>^P^P</body>^P</html>" >> ""
^!MENU Document/Use as Paste Board
^!Document PREV
:FINDURL
^!Find "<a href=" S
^!IfError END
^!Select PARAGRAPH
^!Keyboard CTRL+C
^!Keyboard RIGHT
^!GoTo FINDURL
:END
^!Document LAST
^!Keyboard CTRL+A
^!Replace "***^P^P" >> "^P<br />^P<br />" [HAS]
^!MENU Document/Use as Paste Board
^!Jump Doc_END
^!InsertHtml ^P
<p> </p>
<p> </p>

</body>
</html>

^!Save AS ^%Directory%urls_^%FileName%
^!Jump Doc_START

H="Hyperlinks list in text"
^!Jump Doc_START
^!Set %FileName%=^$GetFileName(^$GetDocName$)$
^!Set %URLS%=^%NL%
:FINDURL1
^!Find "http://" S
^!IfError END1
^!Set %URLS%=^%URLS%^$GetBlock$^%NL%
^!GoTo FINDURL1
:END1
^!Jump Doc_START
:FINDURL2
^!Find "https://" S
^!IfError END2
^!Set %URLS%=^%URLS%^$GetBlock$^%NL%
^!GoTo FINDURL2
:END2
^!ToolBar New Document
^%FileName%:
^%URLS%
^!Save AS Links in ^%FileName%

H="Image alt infill"
alt="^?[Alt (choose or enter own) =_Image| Click here for ]"

H="Image break"
<br clear="all" />

H="Image details program"
^!Toolbar New Document
^!FocusDoc
^!Menu Document/Use as Paste Board
^!Shell D:\progra~1\smallu~1\imgtoh~1\img2html.exe
^!Info [L]"Click and later CTRL+V into required position"
^!Keyboard HOME
^!Replace "width=" >> "width=""
^!Keyboard HOME
^!Replace " height=" >> "" height=""
^!Keyboard HOME
^!Replace " Border=0" >> "" border="0""
^!Keyboard HOME
^!Menu Document/Use as Paste Board
^!Keyboard CTRL+A
^!Keyboard CTRL+L
^!Keyboard CTRL+C
^!DestroyDoc

H="Image find"
^!ToolBar New Document
<img ^?[(T=T;F="Image Files|*.gif;*.jpg;*.jpeg;*.png")Image file name] border="^?[Border =_0|1|2|3|4|5]" />
^!ToolBar Select All
^!If ^$GetSelSize$ > 2 Skip
^!ToolBar Select All
^!If ^$GetSelSize$ < 3 End
^!Set %Text%=^$GetSelection$

^!Set %Text%=^$StrReplace("\";"/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("file:///d|/documents%20and%20settings/adrian/my%20documents/my%20pictures/";"http://www.change.freeuk.com/";"^%Text%";No;No)$
^!InsertText ^%Text%

^!Keyboard CTRL+A
^!Keyboard CTRL+L
^!Keyboard CTRL+C
^!DestroyDoc

H="Image find para"
^!ToolBar New Document
<br />
<br />
<p>
<div align="center">
<img ^?[(T=T;F="Image Files|*.gif;*.jpg;*.jpeg;*.png")Image file name] border="^?[Border =_0|1|2|3|4|5]" />
^!ToolBar Select All
^!If ^$GetSelSize$ > 2 Skip
^!ToolBar Select All
^!If ^$GetSelSize$ < 3 End
^!Set %Text%=^$GetSelection$
^!Set %Text%=^$StrReplace("file:///c|/";"C:\";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace(" ";" ";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("/";"\";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("C:\Documents\Shared Documents\Shared Uploads\Pluralist\";"http://www.pluralist.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("C:\Documents\Shared Documents\Shared Uploads\FreeUK Plural\";"http://www.plural.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("C:\Documents\Shared Documents\Shared Uploads\FreeUK Change\";"http://www.change.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("C:\Documents\Shared Documents\Shared Uploads\FreeUK Renew\";"http://www.renew.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("C:\Documents\Shared Documents\Shared Uploads\FreeUK Differ\";"http://www.differ.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("\";"/";"^%Text%";No;No)$

^!Set %Text%=^$StrReplace("../../../freeuk%20change";"http://www.change.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("../../../freeuk%20differ";"http://www.differ.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("../../../freeuk%20enk";"http://www.enk.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("../../../freeuk%20plural";"http://www.plural.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("../../../freeuk%20pluralist";"http://www.pluralist.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("../../../freeuk%20renew";"http://www.renew.freeuk.com/";"^%Text%";No;No)$

^!InsertText ^%Text%
^!InsertHTML ^P
</div>
</p>
^!InsertHTML ^P^P

^!Keyboard CTRL+A
^!Keyboard CTRL+L
^!Keyboard CTRL+C
^!DestroyDoc

H="Image Map gif"
<div align="center">
<img src="^&.gif" border="0" usemap="#^&">
</div>
<map name="^&">
^!Keyboard CTRL+HOME
^!Find "usemap" [HAS]

H="Image MapThis"
^!Shell c:progra~1\mapthis\mapthis.exe
^!FocusApp MapThis!

H="Image MapThis starter"
^!Set %FileChoice%="^?[(T=t;F="Image Files|*.gif;*.jpg;*.jpeg") Click button on CTRL+RIGHT && select image file]

; Now Trim the src=" from the left
^!Set %CutLeft%=^$StrDeleteLeft("^%FileChoice%";5)$

; Find the location of the " in the remaining string
^!Set %CutCTRL+RIGHT%=^$StrPos(""";"^%CutLeft%";True)$

; Decrement that number by 1
^!Dec %CutCTRL+RIGHT%

; Then trim it so only the image path and file name remain
^!Set %Penult%=^$StrCopyLeft("^%CutLeft%";^%CutCTRL+RIGHT%)$

^!Set %Namer%=^$StrDeleteCTRL+RIGHT("^%Penult%";4)$

^!ToolBar New Document
<p>
<div align="center">
<img src="
^!InsertText ^%Penult%
" border="0" usemap="#
^!InsertText ^%Namer%
">
</div>
</p>

^!Keyboard CTRL+A
^!Keyboard CTRL+L
^!Keyboard CTRL+C
^!Keyboard CTRL+END

^!InsertHtml ^P^P^P^P^P^P^P^P^P^P^P^P^P^P^P^P

^!InsertHtml ^P^P^P^P^P
NOW RETURN TO THE HTML DOCUMENT - NO NEED TO SAVE THIS

^!InsertHtml ^P^P^P

^!Keyboard Ctrl+F4

H="Image number this ½"
^!ClearVariables
^!Keyboard CTRL+C
^!Set %Block%=^$GetSelection$
^!Set %new%=^$Calc(^%Block%*0.50;0)$
^!SetClipboard ^%new%
^!Paste

H="Image number this ¾"
^!Keyboard CTRL+C
^!Set %Block%=^$GetSelection$
^!Set %new%=^$Calc(^%Block%*0.75;0)$
^!SetClipboard ^%new%
^!Paste

H="Image position left"
<span style="color: #000000; clear: left; float: left; margin-bottom: 2em; margin-right: 2em;">^&</span>

H="Image position right"
<span style="color: #000000; clear: right; float: right; margin-bottom: 2em; margin-left: 2em;">^&</span>

H="Images details HTML"
^!ToolBar New Document
^!MENU Modify/Document to HTML/With Paragraph Tags
^!Replace "<p> </p>^P<p> </p>^P^P</body>^P</html>" >> "<br />^P<br />^P<p>^P<div align="center">"
^!MENU Document/Use as Paste Board
^!Shell D:\progra~1\smallu~1\imgtoh~1\img2html.exe
^!FocusApp HTML GIF & JPG Width & Height Tool
^!Info Press when all images have been captured
^!Document LAST
^!Keyboard CTRL+A
^!Replace "***^P^P" >> "^p</div>^P</p>^P^P<br />^P<br />^P<p>^P<div align="center">" [HAS]
^!Replace "width=" >> "width="" [HAS]
^!Replace " height=" >> "" height="" [HAS]
^!Replace " Border=0" >> "" border="0"" [HAS]
^!MENU Document/Use as Paste Board
^!Jump Doc_END
^!InsertHtml ^P</div>^P</p>^P^P
<p> </p>
<p> </p>

</body>
</html>

^!Save AS from_image2html.html
^!Jump Doc_START

H="Images in webpage"
^!Continue The examined document must be the furthest CTRL+RIGHT tab. If not, press Cancel and drag its tab
^!Jump Doc_START
^!Set %Directory%=^?[(T=D)Directory to save result]
^!Set %FileName%=^$GetFileName(^$GetDocName$)$
^!ToolBar New Document
^!MENU Modify/Document to HTML/With Paragraph Tags
^!Replace "<p> </p>^P<p> </p>^P^P</body>^P</html>" >> ""
^!MENU Document/Use as Paste Board
^!Document PREV
:FINDIMG
^!Find "<img" S
^!IfError END
^!Select PARAGRAPH
^!Keyboard CTRL+C
^!Keyboard CTRL+RIGHT
^!GoTo FINDIMG
:END
^!Document LAST
^!Keyboard CTRL+A
^!Replace "***^P^P" >> "^P<br />^P<br />" [HAS]
^!MENU Document/Use as Paste Board
^!Jump Doc_END
^!InsertHtml ^P
<p> </p>
<p> </p>

</body>
</html>

^!Save AS ^%Directory%images_^%FileName%
^!Jump Doc_START

H="Italic"
<i>^&</i>

H="Italic pause"
</i>^&<i>

H="Italic reversals"
^!Replace "<i>" >> "<***>" HAS
^!Replace "</i>" >> "<i>" HAS
^!Replace "<***>" >> "</i>" HAS

H="Italic span"
<span style="font-style:italic">^&</span>

H="Italic span pause"
</span>^&<span style="font-style:italic">

H="Line spacing span"
<span style="line-height:100%">^&</span>

H="List 1 Remove breaks"
^!Replace "<br />" >> "" HAS

H="List 2 Items surround"
<li>^&</li>

H="List 3 Items middling"
^!Replace ^P >> </li>^P<li> HAS

H="List 4a Unordered"

H="List 4b Ordered"
<ol type="^?[Numbering System==A, B, C, D, E^=A|a, b, c, d, e^=a|I, II,
III, IV, V^=I|I, ii, iii, iv, v^=i|_1, 2, 3, 4, 5^=1]">
^&
</ol>

H="List middling"
</li>
<li>

H="List paragraphs"
;8-5-2002 by Sheri Pierce
;8-6-2002 enhanced for flexible margins
^!SetArray %FV%=^?{(M="09;0;_")Left Bullet Margin=^%FV1%};^?{(M="09;0;_")Enter Width=^%FV2%};^?{(T=C)Justify==^$SetDefaultValue(On^=True|_Off^=False;^%FV3%)$}
^!SetHintInfo Reformat in Progress
^!SetScreenUpdate Off
^!Replace "^[\s\*]*" >> "" ISRHA
^!Set %bs%=^$StrFill("^%SPACE%";^%FV1%)$
^!Set %ts%=^$StrFill("^%SPACE%";^$Calc(^%FV1%+2)$)$
^!SetPasteIndent Off
^!InsertSelect ^P^$GetSelection$
^!Menu Modify/Lines/Join Lines
^!Menu Modify/Spaces/Single Space
^!InsertSelect ^$StrFormat("^$GetSelection$";^$Calc(^%FV1%+2)$;^%FV2%;^%FV3%)$
^!InsertSelect ^P^P^$GetSelection$
^!Replace "^P^P^%ts%" >> "^P^P^%bs%*^%SPACE%" ISHA
^!InsertSelect ^$StrDeleteLeft("^$GetSelection$";4)$
^!ClearVariable %bs%
^!ClearVariable %ts%
;end of clip

H="Meta tags"
<meta name="description" content="^&" />
<meta name="keywords" content="^&" />
<meta name="author" content="Adrian Worsfold" />

H="Meta time out"
<meta http-equiv="Refresh" content="10;URL=whatever.html" />

H="MusicXML extract thorough"
^!SetScreenUpdate Off
^!Replace "'" >> "'" WAS
^!Replace "\R(?=</text>)" >> "" WARS
^!Find "(?s)^\x20*<credit page="1">.+</credit>" WRS
^!Set %Credits%=^$GetSelection$
^!Set %Credits%=^$StrReplace("<[^>]+>";"";^%Credits%;AR)$
^!Set %Credits%=^$StrReplace("^\x20+";"";^%Credits%;AR)$
^!Set %Credits%=^$StrReplace("^\R";"";^%Credits%;AR)$
^!Replace "\x20(?=</text>)" >> "" WARS
^!Replace "<syllabic>(?:single|end)\X+?<text>[^<]+?\K(?=</text>)" >> "\x20" WARS
^!SetClipboard ^$GetDocListAll("^\x20*<lyric number="(\d+)\X+?<text>([^<]+?)</text>";$1|$2\r\n)$
^!Select All
^!Paste
^!Set %Nr%=1

:Loop
^!Set %Text%=^$GetDocListAll("^^%Nr%\|(.+)";"$1")$
^!IfEmpty ^%Text% Out
^!Append %All%=^%Text%^P^P
^!Inc %Nr%
^!Goto Loop

:Out
^!Select All
^!InsertText ^%All%
^!Replace "(?<=[,;.\x20])\x20?(?=[[:upper:]])" >> "\r\n" WARS
^!Jump Doc_Start
^!InsertText ^%Credits%^P
^!Jump Doc_Start
^!Set %FileName%=^$GetLine$
^!Save as "C:\Adrian's Documents\Music\^%FileName%.txt"
^!ClearVariables

H="Outline to HTML"
;Converts the current outline document into a web page
;Readme.otl demo or current .otl
^!IfTrue ^$IsOutlineDoc$ Start ELSE Next
;Check if the Readme.otl document exists. If not, skip demonstration procedure and show error message
^!IfFileExist ^$GetAppPath$Readme.Otl Next ELSE ShowErrorMsg
^!Continue The current document is not an outline. Would you like to see a demonstration with the Readme.Otl file?
;Open the Readme.otl document
^!Open ^$GetAppPath$Readme.Otl
;If there was an error while trying to open it, show message and end procedure
^!IfError Next ELSE Start
^!Prompt Error: could not open "^$GetAppPath$Readme.Otl"

:Start
;Convert the outline file to HTML format
^!Toolbar Document to HTML
;Place the cursor at the start of the document
^!Jump Text_Start
;Offer user the choice to display the newly created web page in browser or end Clip
^!Goto ^?{What would you like to do now?==_View page in main browser^=NextView page in second browser^=SecondBrowser|No preview^=End}
^!ToolBar View in Browser
^!Goto End

:SecondBrowser
^!ToolBar View Other Browser
^!Goto End

:ShowErrorMsg
^!Prompt Error: the current document is not an outline

H="Outline topics to HTMLs"
;Converts each outline topic into an individual web page.
;Readme.otl document test or current .otl
^!IfTrue ^$IsOutlineDoc$ Start ELSE Next
;Check if the Readme.otl document exists. If not, skip demonstration procedure and show error message
^!IfFileExist ^$GetAppPath$Readme.Otl Next ELSE ShowErrorMsg
^!Continue The current document is not an outline. Would you like to see a demonstration with the Readme.Otl file?
;Open the Readme.otl document
^!Open ^$GetAppPath$Readme.Otl
;If there was an error while trying to open it, show message and end procedure
^!IfError Next ELSE Start
^!Prompt Error: could not open "^$GetAppPath$Readme.Otl"

:Start
;Copy the name of the outline document to a variable
^!Set %OutlineName%=^$GetName("^")$
;Copy user's choice for keeping the web pages open or not
^!Set %KeepOpen%=^?[Keep new HTML documents open in editor?==_Yes|No]
;Store the current document index in a variable
^!Set %DocIndex%=^$GetDocIndex$
;Set the TopicIndex variable to 0
^!Set %TopicIndex%=0
;Store the topic count in a variable
^!Set %TopicCount%=^$GetTopicCount$
;Change the name format for newly created documents to the outline file name with the .html extension
^!Set %KeepNameFormat%=^$GetNameFormat$
^!SetNameFormat ^$GetAppPath$^%OutlineName%%0.2d.html

:LoopStart
;Add one to the value contained in the TopicIndex variable
^!Inc %TopicIndex%
;End the Clip if the TopicIndex number is greater than the number of topics in the outline document
^!If ^%TopicIndex% > ^%TopicCount% EndClip
;Activate the outline document if it is not already the current one
^!SetDocIndex ^%DocIndex%
;Move to the topic defined in the TopicIndex variable
^!SetTopicIndex ^%TopicIndex%
;Copy the content of the topic to the Clipboard
^!SetClipboard ^$GetText$
;Paste the content of the Clipboard into a new document
^!ToolBar Paste New
;Convert the text in the new document to the HTML format
^!Toolbar Document to HTML
;Place the cursor at the start of the text in the new HTML document
^!Jump Text_Start
;Save the new HTML document without prompting the user for the name
^!Save AS ^
;Close the HTML document if the user chose to do so
^!IfTrue ^%KeepOpen% Skip
^!Close
;Go back to the start of the loop
^!GoTo LoopStart

:ShowErrorMsg
^!Prompt Error: the current document is not an outline
^!GoTo End

:EndClip
;Restore the original new document name format
^!SetNameFormat ^%KeepNameFormat%

H="Overlib any span"
^!INSERTHTML <span style="color:#990000" onmouseover="return overlib('type', CAPTION, 'title');" onmouseout="return nd();">^&</span>
^! KEYBOARD RIGHT HOME UP UP
^!Find "type" [T]

H="Overlib body"
;Enter just under the body tags
<div id="overDiv" style="position:absolute; visibility:hidden; z-index:1000;"></div>
<script language="JavaScript" src="../../overlib.js"></script>

H="Overlib colours"
<script language="JavaScript">
ol_fgcolor="#ffcc99";ol_bgcolor="#990000";ol_textcolor="#000000";
</script>

H="Overlib infill"
onmouseover="return overlib('^&', CAPTION, 'title');" onmouseout="return nd();"

H="Overlib infill copy paste"
;Facilitates text from elsewhere to be inserted into Overlib explanation
^!Info If not done already, highlight text to copy - five seconds
^!Delay 50
^!Keyboard CTRL+C
^!Info Be ready to position cursor, highlighting any existing code to remove:^P^Pincluding " ", left of the > or />^P^P(Move this and look before pressing OK)
^!Continue Press OK and position: five seconds allowed!
^!Delay 50
^!Clip "Overlib infill paste"
^!Keyboard HOME
^!Clip "Overlib title highlight"

H="Overlib infill paste"
;Cut the still wanted explanatory text? If not do so. Highlight any code to replace with new overlib code and pasted text.
onmouseover="return overlib('
^!Paste
', CAPTION, 'title');" onmouseout="return nd();"
^!Keyboard HOME
^!Keyboard UP
^!Keyboard CTRL+RIGHT
^!Find "CAPTION, '"
^!Keyboard CTRL+RIGHT
^!Keyboard SHIFTDOWN CTRL+RIGHT CTRL+RIGHT CTRL+RIGHT CTRL+RIGHT CTRL+RIGHT SHIFTUP

H="Overlib title highlight"
^!Find "title" [T]

H="Para"
<p>^&</p>

H="Para align right"
<p align="right">^&</p>

H="Para big gap"
<p> </p>

H="Para big gap double"
<p> </p>
<p> </p>

H="Para breaks"
<br />
<br />

H="Para center"
<p align="center">^&</p>

H="Para class"
<p class="biblio">^&</p>

H="Para end"
^&</p>

H="Para from table (partial)"
^!Menu Edit/Select All
^!Replace "^P</td>^P</tr>" >> "</p>" [HAS]
^!Replace "<tr>^P<td align="left" valign="top">^P" >> "<p>" [HAS]
^!Replace "</td>^P</tr>" >> "</p> [HAS]
^!Replace "</td>^P</tr>^P</table>" >> "</p>^P" [HAS]
^!Replace "^P</table>" >> "" [HAS]

^!Keyboard CTRL+HOME
^!Find "<table"
^!Keyboard SHIFTDOWN END SHIFTUP
^!Keyboard CTRL+X

H="Para left"
<p align="left">^&</p>

H="Para middling"
</p>

<p>

H="Para page break"
<p style="page-break-before: always">^&</p>

H="Para page break infill"
style="page-break-before: always"

H="Para start"
<p>^&

H="Plain Text"
<plaintext>
^&
</plaintext>

H="Preformatted text autorep"
^!InsertHtml <pre>^P^&^P</pre>^P

H="Quotes"
"^&"

H="Reference URL wizard"
<p class="biblio">^?[Author surname], ^?[Initials and full stops] (^?[Date of webpage formation]), <span style="font-style:italic">^?[Title of webpage]</span>, [Online], Available World Wide Web, URL: <a href="^&" target="_blank">^&</a> [Accessed ^?[Enter the day and month viewed], ^?[Enter the year], ^?[Enter the hour (24 hour clock)]:^?[Enter the minutes].</p>

H="Reopen files"
^!Keyboard ALT+F R 1
^!Keyboard ALT+F R 1
^!Keyboard ALT+F R 1
^!Keyboard ALT+F R 1
^!Keyboard ALT+F R 1
^!Keyboard ALT+F R 1
^!Keyboard ALT+F R 1
^!Keyboard ALT+F R 1
^!Keyboard ALT+F R 1
^!Keyboard ALT+F R 1
^!Keyboard ALT+F R 1
^!Keyboard ALT+F R 1
^!Keyboard ALT+F R 1
^!Keyboard ALT+F R 1

H="Saving prevented"
<script language="javascript">
function click() {
if (event.button==2) {
alert('Saving is prevented.') }}
document.onmousedown=click
</script>

H="Script none"
^!InsertHtml <noscript>^p ^&^p</noscript>^p

H="Signature"
<p>Adrian Worsfold<br />
<a href="http://www.pluralist.co.uk" target="_blank">http://www.pluralist.co.uk</a>
<br />
<br />
<a href="mailto:adrian@pluralist.co.uk">adrian@pluralist.co.uk</a></p>
<p> </p>

H="Space"
 

H="Space (next) to coded"
^!Replace " " >> " "

H="Space new line space"
 <br /> 

H="Spaces preserve"
^$StrFill(" ";^$GetSelSize$)$

H="Spaces wrap"
 ^& 

H="Span class"
<span class="whatever">^&</span>

H="Span class"
^!SetPasteIndent Off
^!InsertWizardHtml <span class="^?{&Class name}" id="^?{&Unique ID name}">^&</span>

H="Span end"
</span>

H="Span style"
<span style="">^&</span>

H="Span style filler"
line-height:100%; color:#ffffff; font-size:15pt; font-style:italic; padding:10; background-color:#ffff00; text-align:center; font-weight:900

H="Style activate"

body {background-color:#ccffcc; color:#006300}
td {background-color:#ffffff; color:#006300; line-height:200%; text-align:justify}
li {line-height:150%}

-->
</style>

H="Style anchor active"
^!Set %Element%=a
^!IfSame "^$GetHtmlFormat$" "Uppercase" ^!Set %Element%=^$StrUpper("^%Element%")$
^!InsertText ^%Element%:active {^&}

H="Style anchor link"
^!Set %Element%=a
^!IfSame "^$GetHtmlFormat$" "Uppercase" ^!Set %Element%=^$StrUpper("^%Element%")$
^!InsertText ^%Element%:link {^&}

H="Style anchor visited"
^!Set %Element%=a
^!IfSame "^$GetHtmlFormat$" "Uppercase" ^!Set %Element%=^$StrUpper("^%Element%")$
^!InsertText ^%Element%:visited {^&}

H="Style back colour"
style="background-color:#ffffff"

H="Style back image"
background-image: url("pic.jpg"); background-attachment:fixed;

H="Style body"
body {line-height:200%; color:#630000; font-size:10pt; font-style:oblique; background:#ffccff; text-align:left; font-weight:700}

H="Style border"
^!Set %width%=^?{border-&width=thin|_medium|thick};%style%=^?{border-&style==_none|dotted|dashed|solid|double|groove|ridge|inset|outset};%color%=^?{background-&color=aqua|black|blue|fuchsia|gray|green|lime|maroon|navy|olive|purple|red|silver|teal|_white|yellow}
^!Set %Value%=^%Empty%

^!IfFalse "^$IsEmpty(^%width%)$" ^!Set %Value%=^%Value% ^%width%
^!IfFalse "^$IsEmpty(^%style%)$" ^!Set %Value%=^%Value% ^%style%
^!IfFalse "^$IsEmpty(^%color%)$" ^!Set %Value%=^%Value% ^%color%

^!InsertText border:^%Value%;

H="Style class"
.variant {line-height:100%; color:#0000aa; font-size:12pt; font-style:italic; padding:5; background:#ffffcc; text-align:left; font-weight:700}

H="Style extra display"
a {color:#0000ff; text-decoration: none}
a b {display:none; font-weight:700}
a:hover {background-color:#ffffcc; color:#ff0000; text-decoration: none}

a:hover b {display:block; position:relative; top:0px; left:0px; height:50px; width:300px; padding:5px; margin:5px; z-index:10; color:#000099; background-color:#ffffff; font:10pt verdana; font-weight:500; text-align:justify; vertical-align:middle}

H="Style fonts"
;<font-style> <font-variant> <font-weight> <font-size/line-height> <font-family>
^!Set %style%=^?{font-&style==_normal|italic|oblique};%variant%=^?{font-&variant==_normal|small-caps};%weight%=^?{font-&weight==_normal|bold|bolder|lighter|100|200|300|400|500|600|700|800|900};%size%=^?{font-&size/line-height};%family%=^?{font-&family=_serif|sans-serif|cursive|fantasy|monospace|arial, helvetica, sans-serif|times new roman, times, serif|courier new, courier, monospace|wingding, symbol|comic sans ms|impact|lucida|palatino|verdana}
^!Set %Value%=^%Empty%

^!IfFalse "^$IsEmpty(^%style%)$" ^!Set %Value%=^%Value% ^%style%
^!IfFalse "^$IsEmpty(^%variant%)$" ^!Set %Value%=^%Value% ^%variant%
^!IfFalse "^$IsEmpty(^%weight%)$" ^!Set %Value%=^%Value% ^%weight%
^!IfFalse "^$IsEmpty(^%size%)$" ^!Set %Value%=^%Value% ^%size%
^!IfFalse "^$IsEmpty(^%family%)$" ^!Set %Value%=^%Value% ^%family%

^!InsertText font:^%Value%;

H="Style font-style"
^!Set %Value%=^?{Value for font-style==_normal|italic|oblique}
^!InsertText font-style:^%Value%;

H="Style font-variant"
^!Set %Value%=^?{Value for font-variant==_normal|small-caps}
^!InsertText font-variant:^%Value%;

H="Style glow white"
filter:Glow(Color:#ffffff, strength:5); width:100%;

H="Style headings"
h1 {font-size:20pt; padding:10; color:ffff00; background:006300; text-align:center;font-weight:900}
h2 {font-size:15pt; padding:10; color:ffffcc; background:006300; text-align:center;font-weight:900}
h3 {font-size:14pt; padding:5; color:ffffcc; background:006300; text-align:left;font-weight:700}
h4 {font-size:14pt; color:006300; text-align:left;font-weight:700}

H="Style justify"
text-align:justify;

H="Style line height"
line-height:150%

H="Style list image"
^!Set %Value%=^?{(T=O;F="Image Files|*.gif;*.png;*.jpg;*.jpeg;*.jpe")Value for list-style-image}
^!InsertText list-style-image: url(^$FileToUrl("^$GetRelativeName("^%Value%")$")$);

H="Style list position"
^!Set %Value%=^?{Value for list-style-position==inside|_outside}
^!InsertText list-style-position:^%Value%;

H="Style list type"
^!Set %Value%=^?{Value for list-style-type==_disc|circle|square|decimal|lower-roman|upper-roman|lower-alpha|upper-alpha|none}
^!InsertText list-style-type:^%Value%;

H="Style margin"
^!Set %Value1%=^?{Height for margin-top=0|1|_5|10|20}^?{(T=C)Units==em|ex|px|in|cm|mm|pt|pc|_%}
^!Set %Value2%=^?{Height for margin-CTRL+RIGHT=0|1|_5|10|20}^?{(T=C)Units==em|ex|px|in|cm|mm|pt|pc|_%}
^!Set %Value3%=^?{Height for margin-bottom=0|1|_5|10|20}^?{(T=C)Units==em|ex|px|in|cm|mm|pt|pc|_%}
^!Set %Value4%=^?{Height for margin-left=0|1|_5|10|20}^?{(T=C)Units==em|ex|px|in|cm|mm|pt|pc|_%}
^!InsertText margin:^%Value1%,^%Value2%,^%Value3%,^%Value4%;

H="Style margin-bottom"
^!Set %Value%=^?{Width of margin-left=0}^?{(T=C)Units==em|ex|_px|in|cm|mm|pt|pc|%}
^!InsertText margin-bottom:^%Value%;

H="Style margin-left"
^!Set %Value%=^?{Width of margin-left=0}^?{(T=C)Units==em|ex|_px|in|cm|mm|pt|pc|%}
^!InsertText margin-left:^%Value%;

H="Style margin-right"
^!Set %Value%=^?{Width of margin-CTRL+RIGHT=0}^?{(T=C)Units==em|ex|_px|in|cm|mm|pt|pc|%}
^!InsertText margin-CTRL+RIGHT:^%Value%;

H="Style margin-top"
^!Set %Value%=^?{Height of margin-top=0}^?{(T=C)Units==em|ex|_px|in|cm|mm|pt|pc|%}
^!InsertText margin-top:^%Value%;

H="Style padding"
^!Set %Value1%=^?{Height for padding-&top=0|1|_5|10|20}^?{(T=C)Units==em|ex|_px|in|cm|mm|pt|pc|%}
^!Set %Value2%=^?{Height for padding-&CTRL+RIGHT=0|1|_5|10|20}^?{(T=C)Units==em|ex|_px|in|cm|mm|pt|pc|%}
^!Set %Value3%=^?{Height for padding-&bottom=0|1|_5|10|20}^?{(T=C)Units==em|ex|_px|in|cm|mm|pt|pc|%}
^!Set %Value4%=^?{Height for padding-&left=0|1|_5|10|20}^?{(T=C)Units==em|ex|_px|in|cm|mm|pt|pc|%}
^!InsertText padding:^%Value1%,^%Value2%,^%Value3%,^%Value4%;

H="Style padding-bottom"
^!Set %Value%=^?{Value for padding-bottom=0}^?{(T=C)Units==em|ex|_px|in|cm|mm|pt|pc|%}
^!InsertText padding-bottom ^%Value%;

H="Style padding-left"
^!Set %Value%=^?{Value for padding-left=0}^?{(T=C)Units==em|ex|_px|in|cm|mm|pt|pc|%}
^!InsertText padding-left:^%Value%;

H="Style padding-right"
^!Set %Value%=^?{Value for padding-CTRL+RIGHT=0}^?{(T=C)Units==em|ex|_px|in|cm|mm|pt|pc|%}
^!InsertText padding-CTRL+RIGHT:^%Value%;

H="Style padding-top"
^!Set %Value%=^?{Value for padding-top=0}^?{(T=C)Units==em|ex|_px|in|cm|mm|pt|pc|%}
^!InsertText padding-top:^%Value%;

H="Style page break"
p.pagebreak { page-break-before:always; }

H="Style scrollbar"
scrollbar-arrow-color:#ffffff; scrollbar-base-color:#ffcc99; scrollbar-dark-shadow-color:#999966; scrollbar-track-color:#ffffff;

H="Style Super/ Subscript"
^!Set %Value%=^?{(h=2)Value for text-decoration==Subscript^=sub|Superscript^=super}
^!InsertText vertical-align:^%Value%;

H="Style td full"
td {text-align:justify; line-height:200%; background-color:#ffffff; letter-spacing:0.1 em; color:#000099}

H="Style text-align"
^!Set %Value%=^?{Value for text-align==Left^=left|CTRL+RIGHT^=CTRL+RIGHT|Centre^=center|Justify^=justify}
^!InsertText text-align:^%Value%;

H="Style text-decoration"
^!Set %Value%=^?{(h=9)Value for text-decoration==None^=_none|Underline^=underline|Over the text^=overline|Strike through^=line-through|Blinking^=blink}
^!InsertText text-decoration:^%Value%;

H="Style text-indent"
^!Set %Value%=^?{Value for text-indent=0}^?{(T=C)Units==em|ex|_px|in|cm|mm|pt|pc|%}
^!InsertText text-indent:^%Value%;

H="Subscript"
<sub>^&</sub>

H="Superscript"
<sup>^&</sup>

H="Table 1 by 1"

<tr>

</tr>

</table>
</div>

H="Table 2 by 2"

<tr>

<td align="left" valign="top" width="50%">
Data

</td>
</tr>
<tr>

</tr>

</table>
</div>
</p>

H="Table CSV all"
^!SetScreenUpdate [Off]
^!Keyboard CTRL+A
^!Keyboard CTRL+C
^!Toolbar New Document
^!Keyboard CTRL+V
^!Keyboard CTRL+A
^!Replace ^P >> ^P</td>^P</tr>^P^P<tr>^P<td align="CTRL+RIGHT" valign="middle">^P  [HAS]
^!Replace "," >> ^P</td>^P^P<td align="CTRL+RIGHT" valign="middle">^P  [HAS]
^!Replace "^P " >> "^P" [HAS]
^!Clip "Table 1 by 1"
^!Keyboard CTRL+A
^!Clip "HTML"
^!Keyboard CTRL+HOME
^!Replace "center" >> "CTRL+RIGHT"
^!Keyboard CTRL+HOME
^!Replace border="0" >> border="3"
^!Save As "temporary.html"
^!Open "temporary.html"
^!Keyboard F8

H="Table CSV selected"
^!SetScreenUpdate [Off]
^!Keyboard CTRL+C
^!Toolbar New Document
^!Keyboard CTRL+V
^!Keyboard CTRL+A
^!Replace ^P >> ^P</td>^P</tr>^P^P<tr>^P<td align="left" valign="top">^P [HAS]
^!Replace "," >> ^P</td>^P^P<td align="left" valign="top">^P [HAS]
^!Replace "^P " >> "^P" [HAS]
^!Replace <td align="left" valign="top">^P^P</td> >> <td align="left" valign="top">^P ^P</td> [HAS]
^!Clip "Table 1 by 1"
^!Keyboard CTRL+A
^!Keyboard CTRL+C
^!Save As "temporary.html"
^!Keyboard ALT+D E

H="Table CSV wizard"
; Set cursor to beginning of document
^!SetCursor 1:1

; Replace all empty cells with a blank space
; Do it a few times so nothing gets missed
^!Replace ,, , , ATIWS
^!SetCursor 1:1
^!Replace ,, , , ATIWS
^!SetCursor 1:1
^!Replace ,, , , ATIWS
^!SetCursor 1:1
^!Replace ,, , , ATIWS

; Check for beginning blank cells...
^!SetCursor 1:1
^!Replace ^P, ^P , ATIWS

; ...and check for trailing blank cells
^!SetCursor 1:1
^!Replace ,^P , ^P ATIWS

; Go back and check for a blank cell at the VERY beginning
^!SetCursor 1:1
^!InsertText ^P
^!SetCursor 1:1
^!Replace ^P, ^P , ATIWS
^!SetCursor 1:1
^!DeleteLine

; MSWorks puts quotes around all text.
; The following removes all quotes from the file. If this
; causes problems, eliminate this step.
^!SetCursor 1:1
^!Replace " ATIWS

; Back to beginning of document
^!SetCursor 1:1

; Replace all line breaks with appropriate TD and TR tags.
^!Replace ^P </td></tr>^p<tr><td align=^?[Horizontal alignment of cell data="left"|_"CTRL+RIGHT"|"center"] valign=^?[Vertical alignment of cell data="top"|"bottom"|_"middle"]> ATIWS

; Remove last line
^!Jump TEXT_END
^!DeleteLine

; Insert TD and TR tags at beginning of first line.
^!SetCursor 1:1
^!InsertText <tr><td align=^?[Horizontal alignment of cell data="left"|_"CTRL+RIGHT"|"center"] valign=^?[Vertical alignment of cell data="top"|"bottom"|_"middle"]>

; Replace all commas with TD pairs
^!Replace , </td><td align=^?[Horizontal alignment of cell data="left"|_"CTRL+RIGHT"|"center"] valign=^?[Vertical alignment of cell data="top"|"bottom"|_"middle"]> ATIWS

; Add a TABLE tag to the beginning
^!SetCursor 1:1
^!InsertText <table border=^?[Border (0 is no borders)="0"|_"1"|"2"|"3"|"4"|"5"|"6"|"7"|"8"|"9"|"10"] cellpadding=^?[Cellpadding (2 is average)="0"|"1"|_"2"|"3"|"4"|"5"|"6"|"7"|"8"|"9"|"10"] cellspacing=^?[Cellspacing (0 looks clean)=_"0"|"1"|"2"|"3"|"4"|"5"|"6"|"7"|"8"|"9"|"10"]>^P

; Add a closing /TABLE tag to the end
^!Jump TEXT_END
^!InsertText </table>^P

; Prompt when completed
^!Prompt All Done!

H="Table end"

</td>
</tr>

</table>
</div>
</p>

H="Table only"
<div align="center">
<table width="100%" cellpadding="3" cellspacing="0" border="0">
^&
</table>
</div>

H="Table only middling"
</table>
</div>

H="Table start"
<p>
<div align="center">
<table width="90%" cellpadding="20" cellspacing="5" border="0">

H="Table TabSV all"
^!SetScreenUpdate [Off]
^!Keyboard CTRL+A
^!Keyboard CTRL+C
^!Toolbar New Document
^!Keyboard CTRL+V
^!Keyboard CTRL+A
^!Replace ^P >> ^P</td>^P</tr>^P^P<tr>^P<td align="CTRL+RIGHT" valign="middle">^P  [HAS]
^!Replace "^T" >> ^P</td>^P^P<td align="CTRL+RIGHT" valign="middle">^P  [HAS]
^!Replace "^P " >> "^P" [HAS]
^!Clip "Table 1 by 1"
^!Keyboard CTRL+A
^!Clip "HTML"
^!Keyboard CTRL+HOME
^!Replace "center" >> "CTRL+RIGHT"
^!Keyboard CTRL+HOME
^!Replace border="0" >> border="3"
^!Save As "temporary.html"
^!Open "temporary.html"
^!Keyboard F8

H="Table TabSV selected"
^!SetScreenUpdate [Off]
^!Keyboard CTRL+C
^!Toolbar New Document
^!Keyboard CTRL+V
^!Keyboard CTRL+A
^!Replace ^P >> ^P</td>^P</tr>^P^P<tr>^P<td align="left" valign="top">^P [HAS]
^!Replace "^T" >> ^P</td>^P^P<td align="left" valign="top">^P [HAS]
^!Replace "^P " >> "^P" [HAS]
^!Replace <td align="left" valign="top">^P^P</td> >> <td align="left" valign="top">^P ^P</td> [HAS]
^!Clip "Table 1 by 1"
^!Keyboard CTRL+A
^!Keyboard CTRL+C
^!Save As "temporary.html"
^!Keyboard ALT+D E

H="Table wizard"
^!InsertHtml <div align="^?{&div==center|left|right}">^P<table border="^?[Table border=_0|1|2|3|4|5]" width="^?[Table width=50%|_90%|95%|100%]" cellspacing="^?[Cellspacing=_0|3|5|10|20]" cellpadding="^?[Cellpadding=0|3|_5|10|20]">^P
^!SET %RowCount%=^?[How many &rows=1|2|_3|4|5|6|7|8|9]
^!SET %CellCount%=^?[How many &cells=1|2|_3|4|5|6|7|8|9]
^!SET %RowIndex%=0
:RepeatRow
^!INC RowIndex
^!IF ^%RowIndex% > ^%RowCount% EndRow
^!InsertHtml   <tr>^P
^!SET %CellIndex%=0
:RepeatCell
^!INC CellIndex
^!IF ^%CellIndex% > ^%CellCount% EndCell
^!InsertHtml     <td align="^?[TD &Align=centre^=center|left|right]" valign="^?[TD &VAlign=bottom|middle|top]">^P
^?[&Prompt for cell text=Yes^=    ^?{R^%RowIndex%C^%CellIndex%: Enter cell text}|_No^=    ]
^!InsertHtml ^P    </td>^P

^!GoTo RepeatCell
:EndCell
^!InsertHtml </tr>^P
^!GoTo RepeatRow
:EndRow
^!InsertHtml </table>^P</div>^P

H="TD"
<td align="left" valign="top">
^&
</td>

H="TD 2 columns infill"
colspan="2"

H="TD 2 rows infill"
rowspan="2"

H="TD label sp-br-sp"
^!Keyboard Delete
 <br /> 

H="TD label sps surround"
 ^& 
^!Keyboard left

H="TD labels sp-br-sp"
^!Keyboard Delete
 <br /> 
^!Replace " " >> " <br /> "

H="TD left to centre"
^!Replace align="left" valign="top" >> align="center" valign="middle" [HAS]

H="TD left top"
<td align="left" valign="top">
^&
</td>

H="TD middling"

</td>

H="TD middling tab"
^!Replace "^T" >> ^P</td>^P^P<td align="left" valign="top">^P [HAS]

H="TD width infill"
width="^?[(H=7)Width choice==10%|20%|25%|33%|40%|50%|70%|90%|100%]"

H="TR TD"
<tr>

</tr>

H="TR TD details"
^!Clip "Color Codes"
^!SetWizardLabel "Enter values for tag attributes"
^!InsertWizardHtml <tr>^P<td align="^?{Data &horizontal align=centre^=center|justify|Left|CTRL+RIGHT}" valign="^?{Data &vertical align=baseline|Bottom|Middle|Top}" colspan="^?{Columns span=2|3|4|}" bgcolor="^?{&Background color (transitional)=^%AllColors%}">^&</td>^P</tr>

H="TR TD easier see"
^!SetScreenUpdate Off

^!SetScreenUpdate Off
^!StatusShow Cleaning paragraph breaks and spaces
:LOOP1
^!Keyboard CTRL+HOME
^!Replace "^P " >> "^P" [WAS]
^!IFError END1
^!GoTo LOOP1
:END1

^!StatusShow Cleaning spaces and paragraph breaks
:LOOP2
^!Keyboard CTRL+HOME
^!Replace " ^P" >> "^P" [WAS]
^!IFError END2
^!GoTo LOOP2
:END2

^!StatusShow Making the tables easier to see
^!Replace "e><t" >> "e>^P<t" [WAS]
^!Replace "r><t" >> "r>^P<t" [WAS]
^!Replace "d><t" >> "d>^P<t" [WAS]
^!Replace "></" >> ">^P</" [WAS]
^!Replace ">^P<tr" >> ">^P^P<tr" [WAS]
^!Replace ">^P<td" >> ">^P^P<td" [WAS]
^!Replace "<tr>^P<td" >> "<tr>^P^P<td" [WAS]
^!Replace "</td>^P</tr>^P" >> "</td>^P^P</tr>^P" [WAS]
^!Replace "</td>^P<td" >> "</td>^P^P<td" [WAS]
^!Replace "<td><" >> "<td>^P<" [WAS]
^!Replace "></td>" >> ">^P</td>" [WAS]
^!Replace "</tr>^P^P<tr>^P" >> "</tr>^P<tr>^P" [WAS]
^!Replace "</tr>^P</table>" >> "</tr>^P^P</table>" [WAS]
^!Replace "</tr>^P^P<tr" >> "</tr>^P<tr" [WAS]
^!Replace ">^P<div" >> ">^P^P<div"

^!SetScreenUpdate On

H="TR TD image find"
^!ToolBar New Document
<tr>
<td align="center" valign="top">
<img ^?[(T=T;F="Image Files|*.gif;*.jpg;*.jpeg")Image file name] border="^?[Border =_0|1|2|3|4|5]" alt="^?[Alt (choose or enter own) =_Image| Click here for ]" />
</td>
</tr>

^!ToolBar Select All
^!If ^$GetSelSize$ > 2 Skip
^!ToolBar Select All
^!If ^$GetSelSize$ < 3 End
^!Set %Text%=^$GetSelection$
^!Set %Text%=^$StrReplace("file:///c|/";"C:\";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace(" ";" ";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("/";"\";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("C:\My Uploads\Freeserve\";"http://www.worsfold98.freeserve.co.uk/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("C:\My Uploads\FreeUK Plural\";"http://www.plural.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("C:\My Uploads\FreeUK Change\";"http://www.change.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("C:\My Uploads\FreeUK Renew\";"http://www.renew.freeuk.com/";"^%Text%";No;No)$
^!Set %Text%=^$StrReplace("\";"/";"^%Text%";No;No)$
^!InsertText ^%Text%

^!Keyboard CTRL+A
^!Keyboard CTRL+L
^!Keyboard CTRL+C
^!Keyboard CTRL+END

^!InsertHtml ^P^P^P^P^P^P^P^P^P^P^P^P^P^P^P^P

^!InsertHtml ^P^P^P^P^P
NOW RETURN TO THE HTML DOCUMENT - NO NEED TO SAVE THIS

^!InsertHtml ^P^P^P

^!Keyboard Ctrl+F4

H="TR TD middling"
</td>

</tr>
<tr>

H="TR TD middling </p>...<p>"
^!Replace </p>^P^P<p> >> ^P</td>^P</tr>^P^P<tr>^P<td align="left" valign="top">^P [HAS]
^!Replace </p>^P<p> >> </td></tr>^P<tr><td align="left" valign="top"> [HAS]

H="TR TD middling <br />"
^!Replace <br>^P >> ^P</td>^P</tr>^P^P<tr>^P<td align="left" valign="top">^P [HAS]
^!Replace <br />^P >> ^P</td>^P</tr>^P^P<tr>^P<td align="left" valign="top">^P [HAS]
^!Replace <br> >> ^P</td>^P</tr>^P^P<tr>^P<td align="left" valign="top">^P [HAS]
^!Replace <br /> >> ^P</td>^P</tr>^P^P<tr>^P<td align="left" valign="top">^P [HAS]

H="TR TD middling lines"
^!Menu Modify/Lines/Compress
^!Replace ^P >> ^P</td>^P</tr>^P^P<tr>^P<td align="left" valign="top">^P [HAS]

H="TR TD middling to breaks"
^!Replace <tr><td align="left" valign="top"> >> <br /> [HAS]
^!Replace <tr><td align="center" valign="top"> >> <br /> [HAS]
^!Replace <tr>^P<td align="left" valign="top"> >> <br /> [HAS]
^!Replace <tr>^P<td align="center" valign="top"> >> <br /> [HAS]
^!Replace </td>^P</tr> >> <br /> [HAS]
^!Replace <br />^P^P<br /> >> <br />^P<br />^P [HAS]
^!Keyboard END

H="TR TDs 2"

</tr>

H="TR TDs 2"

<tr>

</tr>

H="TR TDs 3"

<tr>

</tr>

H="Txt shadow choices span"
^!ClearVariables
^!Set %shright%=2; %shdown%=15; %shspread%=0
^!Set %shright%=^?{Shadow right=^%shright%}; %shdown%=^?{Shadow down=^%shdown%}; %shspread%=^?{Shadow spread (from 0 towards weakness/ imprecision)=^%shspread%}; %shcolour%=^?{(H=20)Colour - select none will repeat==alice blue #f0f8ff^=#f0f8ff|antique white #faebd7^=#faebd7|aqua #00ffff^=#00ffff|aqua marine #7fffd4^=#7fffd4|azure #f0ffff^=#f0ffff|beige #f5f5dc^=#f5f5dc|bisque #ffe4c4^=#ffe4c4|black #000000^=#000000|blanched almond #ffebcd^=#ffebcd|blue #0000ff^=#0000ff|blue violet #8a2be2^=#8a2be2|brown #a52a2a^=#a52a2a|burly wood #deb887^=#deb887|cadet blue #5f9ea0^=#5f9ea0|chartreuse #7fff00^=#7fff00|chocolate #d2691e^=#d2691e|coral #ff7f50^=#ff7f50|corn flower blue #6495ed^=#6495ed|corn silk #fff8dc^=#fff8dc|crimson #dc143c^=#dc143c|cyan #00ffff^=#00ffff|dark blue #00008b^=#00008b|dark cyan #008b8b^=#008b8b|dark golden rod #b8860b^=#b8860b|dark gray #a9a9a9^=#a9a9a9|dark green #006400^=#006400|dark khaki #bdb76b^=#bdb76b|dark magenta #8b008b^=#8b008b|dark olive green #556b2f^=#556b2f|dark orange #ff8c00^=#ff8c00|dark orchid #9932cc^=#9932cc|dark red #8b0000^=#8b0000|dark salmon #e9967a^=#e9967a|dark sea green #8fbc8f^=#8fbc8f|dark slate blue #483d8b^=#483d8b|dark slate gray #2f4f4f^=#2f4f4f|dark turquoise #00ced1^=#00ced1|dark violet #9400d3^=#9400d3|deep pink #ff1493^=#ff1493|deep sky blue #00bfff^=#00bfff|dim gray #696969^=#696969|dodger blue #1e90ff^=#1e90ff|fire brick #b22222^=#b22222|floral white #fffaf0^=#fffaf0|forest green #228b22^=#228b22|fuchsia #ff00ff^=#ff00ff|gainsboro #dcdcdc^=#dcdcdc|ghost white #f8f8ff^=#f8f8ff|gold #ffd700^=#ffd700|golden rod #daa520^=#daa520|gray #808080^=#808080|green #008000^=#008000|green yellow #adff2f^=#adff2f|honey dew #f0fff0^=#f0fff0|hot pink #ff69b4^=#ff69b4|indian red #cd5c5c^=#cd5c5c|indigo #4b0082^=#4b0082|ivory #fffff0^=#fffff0|khaki #f0e68c^=#f0e68c|lavender #e6e6fa^=#e6e6fa|lavender blush #fff0f5^=#fff0f5|lawn green #7cfc00^=#7cfc00|lemon chiffon #fffacd^=#fffacd|light blue #add8e6^=#add8e6|light coral #f08080^=#f08080|light cyan #e0ffff^=#e0ffff|light golden rod yellow #fafad2^=#fafad2|light green #90ee90^=#90ee90|light grey #d3d3d3^=#d3d3d3|light pink #ffb6c1^=#ffb6c1|light salmon #ffa07a^=#ffa07a|light sea green #20b2aa^=#20b2aa|light sky blue #87cefa^=#87cefa|light slate gray #778899^=#778899|light steel blue #b0c4de^=#b0c4de|light yellow #ffffe0^=#ffffe0|lime #00ff00^=#00ff00|lime green #32cd32^=#32cd32|linen #faf0e6^=#faf0e6|magenta #ff00ff^=#ff00ff|maroon #800000^=#800000|medium aqua marine #66cdaa^=#66cdaa|medium blue #0000cd^=#0000cd|mediumgreen #009900^=#009900|medium orchid #ba55d3^=#ba55d3|medium purple #9370db^=#9370db|medium sea green #3cb371^=#3cb371|medium slate blue #7b68ee^=#7b68ee|medium spring green #00fa9a^=#00fa9a|medium turquoise #48d1cc^=#48d1cc|medium violet red #c71585^=#c71585|midnight blue #191970^=#191970|mint cream #f5fffa^=#f5fffa|misty rose #ffe4e^=#ffe4e1|moccasin #ffe4b5^=#ffe4b5|navajo white #ffdead^=#ffdead|navy #000080^=#000080|old lace #fdf5e6^=#fdf5e6|olive #808000^=#808000|olive drab #6b8e23^=#6b8e23|orange #ffa500^=#ffa500|orange red #ff450^=#ff4500|orchid #da70d6^=#da70d6|pale golden rod #eee8aa^=#eee8aa|pale green #98fb98^=#98fb98|pale turquoise #afeeee^=#afeeee|pale violet red #db7093^=#db7093|papaya whip #ffefd5^=#ffefd5|peach puff #ffdab9^=#ffdab9|peru #cd853f^=#cd853f|pink #ffc0cb^=#ffc0cb|plum #dda0dd^=#dda0dd|powder blue #b0e0e6^=#b0e0e6|purple #800080^=#800080|red #ff0000^=#ff0000|rosy brown #bc8f8f^=#bc8f8f|royal blue #4169e1^=#4169e1|saddle brown #8b4513^=#8b4513|salmon #fa8072^=#fa8072|sandy brown #f4a460^=#f4a460|sea green #2e8b57^=#2e8b57|sea shell #fff5ee^=#fff5ee|sienna #a0522d^=#a0522d|silver #c0c0c0^=#c0c0c0|sky blue #87ceeb^=#87ceeb|slate blue #6a5acd^=#6a5acd|slate gray #708090^=#708090|snow #fffafa^=#fffafa|spring green #00ff7f^=#00ff7f|steel blue #4682b4^=#4682b4|tan #d2b48c^=#d2b48c|teal #008080^=#008080|thistle #d8bfd8^=#d8bfd8|tomato #ff6347^=#ff6347|turquoise #40e0d0^=#40e0d0|violet #ee82ee^=#ee82ee|wheat #f5deb3^=#f5deb3|white #ffffff^=#ffffff|white smoke #f5f5f5^=#f5f5f5|yellow #ffff00^=#ffff00|yellow green #9acd32^=#9acd32}
^!InsertText <span style="text-shadow:^%shright%px ^%shdown%px ^%shspread%px ^%shcolour%">^&</span>

H="Txt shadow preset span"
<span style="text-shadow:2px 5px 2px #333333">^&</span>

H="Txtarea new"
^!SetWizardLabel "Enter values for tag attributes"
^!InsertWizardHtml ^P<div align="center">^P<textarea name="^?{Input &name=Infoshow|display}" rows="^?{&Rows=5|_6|10}" cols="^?{&Columns=_45|50|60}" wrap="^?{&Word wrap=_offVirtual|Physical}"^?{(t="C)&Read" only="=True^=" readonly|_false^="}">^P^P</textarea>^P</div>^P^P

H="Txtarea remove code"
^!Keyboard ALT+M H R

H="Txtarea style infill"
style="background-color:#ff99cc; border:groove; color:#000099"

H="Txtarea wrap"
^!Keyboard ALT+M H R
^!SetWizardLabel "Enter values for tag attributes"
^!InsertWizardHtml ^P<div align="center">^P<textarea name="^?{Input &name=Infoshow|display}" rows="^?{&Rows=5|_6|10}" cols="^?{&Columns=_45|50|60}" wrap="^?{&Word wrap=_offVirtual|Physical}"^?{(t="C)&Read" only="=True^=" readonly|_false^="}">^P^&^P</textarea>^P</div>^P^P

H="Underline"
<u>^&</u>

H="Underline span"
<span style="text-decoration:underline">^&</span>

H="Web edit favs"
^!Keyboard SHIFT+F2

H="Web edit inserts"
^!ToolBar New Document
^!InsertFile ^?{Choose one==_Open Start^=C:\My Uploads\Pluralist\start.html|Open Proceeds^=C:\My Uploads\Pluralist\proceeds.html|Open Filelist^=C:\My Uploads\Pluralist\filelist.html|Open Slotnews^=C:\My Uploads\Pluralist\uptodate\slotnews.html|Open Headnews^=C:\My Uploads\Pluralist\uptodate\headnews.html|Open Directory^=C:\My Uploads\FreeUK~2\direct~1\dircdi~1.htm}

H="Web liberal signature"
<p> </p>

<p><span style="font-style:italic">Adrian Worsfold</span></p>

<p><a href="http://www.pluralist.co.uk" target="_blank" onmouseover="return overlib('Click here only if you arrived at this page directly and close this page when finished', CAPTION, 'To the Home Page');" onmouseout="return nd();">Pluralist - Liberal and Thoughtful</a></p>

H="Web overlib body"
<div id="overDiv" style="position:absolute; visibility:hidden; z-index:1000;"></div>
<script language="JavaScript" src="../../overlib.js"></script>

H="Web pages open"
^!^?{Choose one==_Open Start^="C:\My Uploads\Freeserve\start.html"|Open Proceeds^="C:\My Uploads\Freeserve\proceeds.html"|Open Filelist^="C:\My Uploads\Freeserve\filelist.html"|Open Slotnews^="C:\My Uploads\Freeserve\uptodate\slotnews.html"|Open Headnews^="C:\My Uploads\Freeserve\uptodate\headnews.html"|Open Directory^="C:\My Uploads\FreeUK~2\direct~1\dircdi~1.htm"}

H="Web pluralist (no count)"
^!Url http://www.pluralist.co.uk/twowin.html

H="Web signature"

<p><span style="font-style:italic"><a href="http://www.pluralist.co.uk" target="_blank" onmouseover="return overlib('Click here only if you arrived at this page directly and close this page when finished', CAPTION, 'To the Home Page');" onmouseout="return nd();">Adrian Worsfold</a></span></p>

H="Web signature control"
<br />
<br />

<p><span style="font-style:italic; font-weight:500; font-size:10pt"><a href="http://www.pluralist.co.uk" target="_blank" onmouseover="return overlib('Click here only if you arrived at this page directly and close this page when finished', CAPTION, 'To the Home Page');" onmouseout="return nd();">Adrian Worsfold</a></span></p>

H="Website CLB Applications"
^!ClearVariables
^!Shell "c:\progra~1\powerzip\powerzip.exe"
^!Delay 20
^!IfAppOpen "*- Powerzip" Skip_2
^!Shellwait "c:\progra~1\powerzip\powerzip.exe"
^!Delay 20
^!KeyboardDelay 002
^!FocusApp *- Powerzip
^!Keyboard CTRL+N #C:\Program Files\NoteTab\libraries\applclip.zip# TAB TAB ENTER
^!FocusApp *- Powerzip
^!Keyboard CTRL+D #C:\Program Files\NoteTab\libraries\applications.clb# TAB TAB ENTER
^!FocusApp *- Powerzip
^!Keyboard TAB TAB TAB ENTER
^!FocusApp *- Powerzip
^!KeyboardDelay 005
^!Keyboard ALT+F X
^!Delay 10
^!Shell c:\progra~1\notetab\librar~1\
^!Delay 10
^!Shell c:\myuplo~1\freeuk~3\learning\ict\writing\
^!MoveFile "C:\Program Files\NoteTab\libraries\applclip.zip" "C:\My Uploads\FreeUK Enk\learning\ict\writing\applclip.zip"
^!KeyboardDelay 000

H="Website CLB HTML"
^!ClearVariables
^!Shell "c:\progra~1\powerzip\powerzip.exe"
^!Delay 20
^!IfAppOpen "*- Powerzip" Skip_2
^!Shellwait "c:\progra~1\powerzip\powerzip.exe"
^!Delay 20
^!KeyboardDelay 002
^!FocusApp *- Powerzip
^!Keyboard CTRL+N #C:\Program Files\NoteTab\libraries\htmlclip.zip# TAB TAB ENTER
^!FocusApp *- Powerzip
^!Keyboard CTRL+D #C:\Program Files\NoteTab\libraries\html.clb# TAB TAB ENTER
^!FocusApp *- Powerzip
^!Keyboard TAB TAB TAB ENTER
^!FocusApp *- Powerzip
^!KeyboardDelay 005
^!Keyboard ALT+F X
^!Delay 10
^!Shell c:\progra~1\notetab\librar~1\
^!Delay 10
^!Shell c:\myuplo~1\freeuk~3\learning\ict\writing\
^!MoveFile "C:\Program Files\NoteTab\libraries\htmlclip.zip" "C:\My Uploads\FreeUK Enk\learning\ict\writing\htmlclip.zip"
^!KeyboardDelay 000

H="Website CLB Processing"
^!ClearVariables
^!Shell "c:\progra~1\powerzip\powerzip.exe"
^!Delay 20
^!IfAppOpen "*- Powerzip" Skip_2
^!Shellwait "c:\progra~1\powerzip\powerzip.exe"
^!Delay 20
^!KeyboardDelay 002
^!FocusApp *- Powerzip
^!Keyboard CTRL+N #C:\Program Files\NoteTab\libraries\procclip.zip# TAB TAB ENTER
^!FocusApp *- Powerzip
^!Keyboard CTRL+D #C:\Program Files\NoteTab\libraries\processing.clb# TAB TAB ENTER
^!FocusApp *- Powerzip
^!Keyboard TAB TAB TAB ENTER
^!KeyboardDelay 005
^!FocusApp *- Powerzip
^!Keyboard ALT+F X
^!Delay 10
^!Shell c:\progra~1\notetab\librar~1\
^!Delay 10
^!Shell c:\myuplo~1\freeuk~3\learning\ict\writing\
^!MoveFile "C:\Program Files\NoteTab\libraries\procclip.zip" "C:\My Uploads\FreeUK Enk\learning\ict\writing\procclip.zip"
^!KeyboardDelay 000

H="Website INI NoteTab"
^!ClearVariables
^!Shell "c:\progra~1\powerzip\powerzip.exe"
^!Delay 20
^!IfAppOpen "*- Powerzip" Skip_2
^!Shellwait "c:\progra~1\powerzip\powerzip.exe"
^!Delay 20
^!KeyboardDelay 002
^!FocusApp *- Powerzip
^!Keyboard CTRL+N #C:\Program Files\NoteTab\notetabini.zip# TAB TAB ENTER
^!FocusApp *- Powerzip
^!Keyboard CTRL+D #C:\Program Files\NoteTab\notetab.ini# TAB TAB ENTER
^!FocusApp *- Powerzip
^!Keyboard TAB TAB TAB ENTER
^!KeyboardDelay 005
^!FocusApp *- Powerzip
^!Keyboard ALT+F X
^!Delay 10
^!Shell c:\progra~1\notetab\
^!Delay 10
^!Shell c:\myuplo~1\freeuk~3\learning\ict\writing\
^!MoveFile "C:\Program Files\NoteTab\notetabini.zip" "C:\My Uploads\FreeUK Enk\learning\ict\writing\procclip.zip"
^!KeyboardDelay 000

H="Website last updated"
^!InsertHtml <p> </p>^P^P
^!InsertHtml <p>Last updated on <^?[Format date==Bold^=strong|_Italic^=i|Underline^=u]>^$GetDate(mmmm dd, yyyy)$</^?[format date]></p>^P^P

;Tidy code in the current documents. This Clip can use the HTML Tidy program, if available
^!Continue This command will tidy the code in your current document. Continue?

;Determine method to use
^!Set %UseHtmlTidy%=No
^!IfFileExist "^$GetTidyExe$" ^!Set %UseHtmlTidy%=Yes
^!IfFalse ^%UseHtmlTidy% NoteTabMethod
;If HTML Tidy is found, ask which method the user would like to use
^!Set %UseHtmlTidy%=^?{Select method==_Use HTML Tidy program (more options)^=Yes|Use NoteTab commands (much faster)^=No}
^!IfTrue ^%UseHtmlTidy% TidyMethod

:NoteTabMethod
^!Set %Param%=^?{Tag format?==_Uppercase|Lowercase|XHTML}
^!Select ALL
^!InsertText ^$GetHtmlTextTidy("^$GetSelection$";^%Param%)$
^!Goto EndCall

:TidyMethod
^!Set %Param%=--tidy-mark false -q^?{Indent HTML code?==_Yes^=i|No^=}^?{Tag format?==_Uppercase^=u|Lowercase^=|XHTML^= -asxml}^?{Wrap long lines?==Yes^=|_No^= -wrap 0}
^!RunTidy ^%Param%

:EndCall
;Place the cursor at the start of the document
^!Jump Text_Start