random tidbits.

:FigureEpochTime
;Method Used:
;base year (from Jan 1 70 to Jan 1 2007)
;+ seconds in each year after 2006
;+ seconds in each month in current year
;+ seconds in days up to today
;+ seconds in hours, minutes, seconds of today
;I disregard leap seconds and figure I'll
;be dead before the next non-leap year
;divisible by four

:CalculateSecondsInYearsFrom2006
^!InsertText ++++++++++++++calc seconds in years after 2006++++++++++++++++++^P
;calculate days in years between 12/31/2006
;and current year (whole years only)
^!Set %baseyear%="2006"
^!Set %numberofyears%="^$Calc(^%year%-2006-1)$"
:Loop_years_to_seconds
^!Set %counter%="0"
^!Set %secondsinyears%="0"
;skip years entirely if is currently 2007
^!If ^%numberofyears% = 0 Loop_months_to_seconds

:next_year
;first time thiw becomes 2007 and then it
;counts up to current year
^!Inc %baseyear%
;set days in month for non-leap years
^!SetArray %daysinmonth%=31;28;31;30;31;30;31;31;30;31;30;31
;determine if year being worked on is leap year
;fix Feb days if yes
^!If ^$calc(^%baseyear% mod 4)$<>0 Skip
^!Set %daysinmonth2%=29

:calcsecondsinyears
;abort any time we are out of whole years 2007-
^!If ^%numberofyears% = 0 Loop_months_to_seconds
;in counter so that we can get days in each month of year
^!Inc %counter%
;add to seconds in year the active month in the active year
^!Set %secondsinyears%=^$Calc(^%secondsinyears%+(^%daysinmonth^%counter%%*86400))$
;this is just for testing to show the output after each month
;while calculating the active year
^!InsertText ^%secondsinyears% to ^%baseyear%-^%counter% ^$Calc(^%secondsinyears%+1167609600)$^P

;do the next month in active year unless we are at 12 (ie no more months)
^!If ^%counter% <> 12 calcsecondsinyears
;reduce years to be calculated by one and recycle to calc seconds in next year
^!Dec %numberofyears%
;reset month counter to zero
^!Set %counter%="0"
;goto next year 2008-
^!Goto next_year

:Loop_months_to_seconds
^!InsertText ++++++++++++++++++calc seconds in whole months of current year++++++++++++++++^P
;calculate days in whole months for current year
;set the months to 0 so we can process each month
^!Set %basemonth%="0"
;start the base counter
^!Set %secondsinmonths%="0"
;get us out of here if it is Jan
^!If ^$Calc(^%basemonth%+1)$ = ^%month% Loop_days_to_seconds
;set months array for non-leap years
^!SetArray %daysinmonth%=31;28;31;30;31;30;31;31;30;31;30;31
;if current year is leap year, correct Feb
^!If ^$calc(^%year% mod 4)$<>0 Skip
^!Set %daysinmonth2%=29

:next_month
;start with month 1 (Jsn first time and increas by one each time)
^!Inc %basemonth%
;if it is current month we are done with months
^!If ^%basemonth% = ^%month% Loop_days_to_seconds

:calcsecondsinmonths
;do math to get seconds in current month and add to prior months we calculated
;on previousl iterations of this
^!Set %secondsinmonths%=^$Calc(^%secondsinmonths%+(^%daysinmonth^%basemonth%%*86400))$
;insert text is just for testing so we can see we are where we belong at the end of
;each successive month of calculation
^!InsertText ^%secondsinmonths% to Month-^%basemonth% ^$Calc(^%secondsinmonths%+^%secondsinyears%+1167609600)$^P
;repeat until we hit current month (tested above)
^!Goto next_month

:Loop_days_to_seconds
^!InsertText +++++++++++++++++++++calc seconds for whole days current month+++++++++++++++++^P
;set base variable for calculation of seconds in whole days in current month
^!Set %baseday%="0"
^!Set %secondsindays%="0"

:next_day
;increment baseday to 1 first iteration and increasing on each pass
^!Inc %baseday%
;get us out of here when no more full days left to calc
^!If ^%baseday% = ^%day% Loop_hours_to_seconds

:calcsecondsindays
;do math adding second for active day to prior whole days of seconds in current month
^!Set %secondsindays%=^$Calc(^%secondsindays%+86400)$
;insert text just for testing to see if we are where we belong
^!InsertText Current Month Day-^%baseday% ^$Calc(^%secondsindays%+^%secondsinmonths%+^%secondsinyears%+1167609600)$^P
;repeat until we are out of whole days in current month (tested above)
^!Goto next_day

:Loop_hours_to_seconds
^!InsertText +++++++++++++++++++++++Calc Whole Hours Today to Seconds++++++++++++++++++++++++++++++^P
;calculate seconds in whole hours today
;set the hours to 0 so we can process each one
^!Set %basehour%="0"
;start the base counter
^!Set %secondsinhours%="0"
;get us out of here if it is < Midnight+1hour
^!If ^$Calc(^%basehour%+1)$ = ^%hours% Loop_minutes_to_seconds

:next_hour
;start with hour 1 (12:00:01am first time and increase by one each time)
^!Inc %basehour%
;if it is current month we are done with months
^!If ^%basehour% > ^%hours% Loop_minutes_to_seconds

:calcsecondsinhours
;do math to add 3600 seconds to total for this hour
^!Set %secondsinhours%=^$Calc(^%secondsinhours%+3600)$
;insert text is just for testing so we can see we are where we belong at the end of
;each successive month of calculation
^!InsertText Seconds in Hour ^%basehour% ^$Calc(^%secondsinhours%+^%secondsindays%+^%secondsinmonths%+^%secondsinyears%+1167609600)$^P
;repeat until we hit current month (tested above)
^!Goto next_hour

;START
; Clear variables
^!ClearVariables
^!If ^$GetSelSize$ > 0 HaveSelection ELSE NoSelection

:HaveSelection
^!Set %SearchTerm%=^$GetSelection$
^!Goto TheSearch

:NoSelection
^!Set %SearchTerm%=^?{Type in All Search Terms Separated by a Space}
^!Goto TheSearch

;START
; Clear variables
^!ClearVariables
^!Set %listID%=^?{Give list an ID (or leave blank)=}; %listClass%=^?{Give list a Class (or leave blank)=}
^!If "^%listID%" = "" skip
^!Set %listID%=" id='^%listID%'"
^!If "^%listClass%" = "" skip
^!Set %listClass%=" class='^%listClass%'"
^!If ^$GetSelSize$ > 0 FormatSelection

;line 22
:CreateBlank
^!Set %CountDT%=^?{How many Definition Terms (DT):?=1|2|_3|4|5|6|7|8|9}
^!Set %CountDD%=^?{How many Definition Descriptions (DD) per (DT)?=_1|2|3|4|5|6|7|8|9}
^!InsertHtml <dl^%listID%^%listClass%>^P^$StrFill(  <dt></dt>^P^$StrFill(    <dd></dd>^P;^%CountDD%)$;^%CountDT%)$</dl>^P
^!Goto End

;line 29
:FormatSelection
;Divide selection at paragraph marks to make list
^!SetListDelimiter ^p
^!SetArray %delimited_data%=^$GetSelection$

;figure out if it is just every other one?
^!Set %pattern%="^$StrUpper("^?{Is There a Set Pattern?=_Every Other|Set Ratio|NO}")$"
;^!Set %pattern%=^$StrUpper("^?{Is There a Set Pattern?=_Every Other|Set Ratio|NO]")
^!If "^%pattern%" = "NO" BuildCustom
^!If "^%pattern%" = "SET RATIO" SetRatio
;set to one for every other
^!Set %dd%="1"
^!Goto BuildRatio

:SetRatio
^!Set %dd%=^?{How many (DD) Per (DT):?=1|_2|3|4|5|6|7|8|9}
^!Goto BuildRatio

;line 49
:BuildRatio
;should I test if the ratio works?
;maybe modulus on number if items

^!Set %Count%="1"
:CreateRatioDL
^!InsertHtml <dl^%listID%^%listClass%>^P
:CreateRatioDT
^!InsertHtml ^$StrFill(" ";2)$<dt>^%delimited_data^%Count%%</dt>^P
^!Inc %Count%
^!Set %CountDD%=^%dd%

:CreateRatioDD
^!InsertHtml ^$StrFill(" ";4)$<dd>^%delimited_data^%Count%%</dd>^P
^!Dec %CountDD%
^!Inc %Count%
^!If ^%CountDD% = 0 TestDT ELSE CreateRatioDD

:TestDT
^!If ^%Count% < ^%delimited_data0% CreateRatioDT

^!InsertHtml </dl>^P
;end of Build Ratio
^!Goto End

;line 77
:BuildCustom
^!Set %Count%="1"
:CreateCustomDL
^!InsertHtml <dl^%listID%^%listClass%>^P
:CreateCustomSwitch
^!Set %ThisItem%=^?{Is ^%delimited_data^%Count%% a(DT) or (DD):?=T|_D}
^!If "^%ThisItem%" = "D" CreateCustomDD ELSE CreateCustomDT

:CreateCustomDT
^!InsertHtml ^$StrFill(" ";2)$<dt>^%delimited_data^%Count%%</dt>^P
^!Goto TestCustomDT

:CreateCustomDD
^!InsertHtml ^$StrFill(" ";4)$<dd>^%delimited_data^%Count%%</dd>^P
^!Goto TestCustomDT

:TestCustomDT
^!Inc %Count%
^!If ^%Count% > ^%delimited_data0% CreateCustomDone
^!Goto CreateCustomSwitch

;line 101
:CreateCustomDone
^!InsertHtml </dl>^P
^!Goto Done

H=";ImageWrap - One Click"
==========================================
Adapted from an original by Joe Barta jbarta a-t apk d-o-t net

http://junior.apk.net/~jbarta/image-wrap/

==========================================

Convert a group of images into a suite of HTML pages linked from a
single index page. The index file Mmust be created in a directory
above (or in the same directory as) the images.

Close all NoteTab files before running this clip.

You can customise the HTML files by digging into the clips "_wrapper"
and "_index".

H="Begin new index"
^!Continue Are all files closed? If not - cancel and save, then restart.
^!Save As ^?[(T=S;F="All Files (*.*)|*.*")Name and path for index file=piclist.html]
^!Set %bgcolor%=^?[Background color (select or enter your own hex code)=_FFFFFF (White)^=FFFFFF|000000 (Black)^=000000]
^!Set %txtcolor%=^?[Text color (select or enter your own hex code)=FFFFFF (White)^=FFFFFF|_000000 (Black)^=000000]
^!Set %doc_title%=^?[Set a title for HTML files? (leave blank for none)=Image collection]
^!SetWordWrap Off

:ImageSelect
^!Jump TEXT_END
^?{(T=O;S=M;F="Image files (*.gif;*.jpg;*.png)|*.gif;*.jpg;*.png")Select files to be indexed:}

; Make item-per-line list removing semi-colons or quotes
^!SetCursor 1:1
^!Replace ; ^P ATIWS
^!SetCursor 1:1
^!Replace " ATIWS
^!Skip Image list complete?
^!Goto ImageSelect

^!SetScreenUpdate Off
;get the base path of the file list
^!Set %base_path%=^$GetPath(^$GetDocName$)$
;get the name of file
^!Set %base_name_1%=^$GetFileName(^$GetDocName$)$
;get the total lines and initialize line count
^!Set %total_lines%=^$GetLineCount$
^!Set %current_line_number%=1
;Set up a pasteboard
^!ToolBar New Document

; go to loop
^!Clip "operate"

; tidy up on return
;kill the pasteboard
^!Document LAST
^!DestroyDoc

;now we're at the file list
^!SetCursor 1:1
^!Select ALL
^!Clip "index"

^!ToolBar Save Document
^!Prompt All done!

H="_operate"
^!SetWordWrap Off
^!Document FIRST
^!SetCursor ^%current_line_number%:1
^!Select EOL
^!ToolBar Copy

; grab image particulars
^!Set %full_disk_path%=^$GetClipboard$
^!Set %img_width%=^$GetImgWidth(^$GetClipboard$)$
^!Set %img_height%=^$GetImgHeight(^$GetClipboard$)$
^!Set %image_name%=^$GetName(^$GetClipboard$)$
^!Set %image_ext%=^$GetExt(^$GetClipboard$)$

;get the relative disk & web path of the image to the file list
^!Document NEXT
^!ToolBar Clear All
^!InsertText ^%full_disk_path%
^!SetCursor 1:1
^!Replace ^%base_path% ATIWS
^!SetCursor 1:1
^!Replace / ATIWS
^!SetCursor 1:1
^!Select EOL
^!ToolBar Cut
^!Set %relative_web_path%=^$GetClipboard$

; build a save as filename out of the full_disk_path
^!ToolBar Clear All
^!SetCursor 1:1
^!InsertText ^%full_disk_path%
^!SetCursor 1:1
^!Replace .gif _gif ATIWS
^!SetCursor 1:1
^!Replace .jpg _jpg ATIWS
^!SetCursor 1:1
^!Replace .png _png ATIWS
^!SetCursor 1:1
^!Select EOL
^!ToolBar Cut
^!Set %full_disk_html_path%=^$GetClipboard$.html

; build a href out of the relative web path
^!ToolBar Clear All
^!SetCursor 1:1
^!InsertText ^%relative_web_path%
^!SetCursor 1:1
^!Replace .gif _gif ATIWS
^!SetCursor 1:1
^!Replace .jpg _jpg ATIWS
^!SetCursor 1:1
^!Replace .png _png ATIWS
^!SetCursor 1:1
^!Select EOL
^!ToolBar Cut
^!Set %href_html_path%=^$GetClipboard$.html

;make a nifty wrapper file
^!ToolBar New Document
^!Clip "wrapper"
^!Save As ^%full_disk_html_path%
^!ToolBar Close Document

^!Set %link%=<LI><A HREF="^%href_html_path%">^%image_name%
(^%image_ext%)</A></LI>
;go to the list and insert the link in place of the existing line
^!Document FIRST
^!SetCursor ^%current_line_number%:1
^!Select EOL
^!ToolBar Cut
^!InsertText ^%link%

; Stop when line count gets to the end of the list
^!Set %current_line_number%=^$Calc(^%current_line_number%+1;0)$
^!IF ^%current_line_number%=^%total_lines% EXIT

^!Clip "operate"

:EXIT

H="_wrapper"
<!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>^%doc_title%</title>
<!-- Created with ImageWrap
    http://junior.apk.net/~jbarta/image-wrap/
    as modified by don from http://htmlfixit.com
    and fortiter at gmail dot com
    -->
<style type="text/css">
<!--
body {background-color:#^%bgcolor%;}
h2, li, li a {color:#^%txtcolor%;}
-->
</style>
</head>

<body>

<center>
<img src="^%image_name%^%image_ext%"
    width="^%img_width%"
    height="^%img_height%"
    alt="^%image_name%"
    border="0" />

    <p><a href="^%base_name_1%">Return to Image Menu</a></p>
</center>

</body>
</html>

H="_index"
<!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>^%doc_title%</title>
<!-- Created with ImageWrap
    http://junior.apk.net/~jbarta/image-wrap/
    as modified by don from http://htmlfixit.com
    and fortiter at gmail dot com
    -->
<style type="text/css">
<!--
body {background-color:#^%bgcolor%;}
h2, li, li a {color:#^%txtcolor%;}
-->
</style>
</head>

<body>

;I would like to get this running in one wizard
^!SetWizardLabel "Pick a File To Link To and Enter Value for Attributes"
; long line next (it needs to be unwrapped if you copy this)
^!InsertWizardHtml <A ^?[(T=T;F="Link Files|*.*htm*;*.php;*.pl;*.cgi")&Select the File to Link To] NAME="^?{Link &name=^&}" TARGET='^?[&Target (transitional)=blank^=_blank|parent^=_parent|self^=_self|top^=_top]'><IMG ^?{(T=T;F="Image Files|*.gif;*.png;*.jpg;*.jpeg")&browse to find image} NAME="^?{Image &name=^&}" BORDER="^?[(T=C)border level==_0|1|2|3|4|5|6]" ALIGN="^?[(T=C)align imgage==_left|right]" ALT="^?{Image text &description=^&}"></A>
; end of long line
; replace any double quotes with single
; better form to only use double when necessary
^!Replace " >> ' ATHS

;start at top of document
^!Jump Doc_Start

;### initialize everything
;look forwards to find the starting < :Loop
^!Find "<" TIS
;exit if find fails
^!IfError Finish
^!SetScreenUpdate Off
^!ClearVariables

;### %TAG% will be empty if cursor is not inside a tag.
^!Set %TAG%="^$GetHtmlTag(TRUE)$"
^!IfTrue ^$IsEmpty(^%TAG%)$ NotTag

;### So we found a tag. What tag is it?
^!Set %TAGNAME%="^$GetHtmlTagName("^%TAG%";UPPERCASE)$"
;react if it is an A tag (opening or closing)
^!If "/A" = "^%TAGNAME%" HREF
^!If "A" = "^%TAGNAME%" HREF ELSE NotTag

:HREF
^!Select HTMLTAG
;delete following line if you want it to not ask before deleting
^!Skip Leave this tag in:^%nl%^$GetSelection$^%nl%^%nl%(Press Ctrl+Alt and click button to abort.)^%nl%
^!Keyboard DELETE
^!Goto Loop

:NotTag
^!Jump Select_End
^!Goto Loop

;### clean up and go home
:Finish
^!SetScreenUpdate On
^!ClearVariables
;line 46 if you have all lines unrapped (including blank lines)

;go to start of document
^!Jump Doc_Start

;loop to check each tag to see if it is a table tag
:Loop
;find next tag start
^!Find "< " TIS
;quit when no more tags
^!IfError Finish

^!ClearVariables
;### %TAG% will be empty if cursor is not inside a tag.
;determine if tag and get the name of the tag
;if not table tag cycle to next via NotTag subroutine
^!Set %TAG%="^$GetHtmlTag(TRUE)$"
^!IfTrue ^$IsEmpty(^%TAG%)$ NotTag
^!Set %TAGNAME%="^$GetHtmlTagName("^%TAG%";UPPERCASE)$"
;I think there are six tags in tables so
;these six options are tested and tag deleted if match
^!If "TABLE" = "^%TAGNAME%" Table
^!If "TD" = "^%TAGNAME%" Table
^!If "TR" = "^%TAGNAME%" Table
^!If "/TABLE" = "^%TAGNAME%" Table
^!If "/TD" = "^%TAGNAME%" Table
^!If "/TR" = "^%TAGNAME%" Table
^!Goto NotTag

:NotTag
^!Jump Select_End
^!Goto Loop

;if TABLE tag delete it
:Table
;delete the tag
;could just replace it with a
;or something like that if you wish
^!Keyboard DELETE

^!Goto NotTag

;start at the top (assuming whole file)
^!Jump Doc_Start

;set list delimiter to space and get array elements
^!SetListDelimiter " "

:Loop
;get the row we are in
^!Set %row%="^$GetRow$"
;select the current line where cursor resides
;this will select the entire line from prior
;line feed to this one
^!Select Paragraph
;delimited array set by splitting line on spaces
^!SetArray %delimited_data%=^$GetSelection$
^!Set %indx%=1
:Loop_Display
;display each array element
^!Info Row is: ^%row% ^PElement ^%indx% is ^%delimited_data^%indx%%
;check if we have used all elements in current row
;compare current index number to number of elements
;in the array using delimited_data0 - which stores
;the number of elements in an array
^!If ^%indx% = ^%delimited_data0% Next_Line

^!Inc %indx%
^!Goto Loop_Display
;move to next line and then continue
:Next_Line
;go to next line
^!Jump Select_End
;loop again if there are more rows
^!If ^%row% = ^$GetLinecount$ END ELSE Loop