AutoHotkey Community

/*
 *              A custom context menu for your TiddlyWiki page
 * --------------------------------------------------------------------------------
 *
 * This script provides a helper menu in order to:
 * - format selected content in a tiddler to change it to bold, italic etc.
 * - insert wiki syntax, like tables or lists etc. at the cursor position
 * - insert special HTML entities like sybols, arrows, greek letters etc.
 *
 * Everything is based on Firefox, particularly the SVG-Edit function.
 * To use this function, the Firefox SVG-Editor 2.3 addon must be installed
 * from: http://code.google.com/p/svg-edit/
 * Simple graphics can be created in the SVG-Editor and then be stored as
 * Javascript code within a tiddler.
 * Therefore the "InlineJavascriptPlugin" must be installed in your Wiki.
 *
 * This is the sample content of a SVG tiddler, that shows a rectangle:
 *  <script>
 *  var svgCode =
 *  '<svg xmlns="http://www.w3.org/2000/svg" id="svgroot" height="480" width="640">'+
 *  ' <rect ry="0" rx="0" stroke-opacity="1" fill-opacity="1" stroke-width="1" stroke="#000000" fill="#ffffff" id="svg_1" height="280" width="141" y="73" x="238"/>'+
 *  '</svg>';
 *  var svgObject = document.createElement('object');
 *  svgObject.setAttribute('type', 'image/svg+xml');
 *  svgObject.setAttribute('data', 'data:image/svg+xml,'+ svgCode);
 *  place.appendChild(svgObject);
 *  </script>
 * Anything between <svg> and </svg> defines the picture.
 * Now external image file is needed. Everthing is in one HTML file.
 *
 * Open a svg tiddler for edit, press F12 and the picture is shown in
 * the SVG-Editor for easy drawing. Press F12 again and the changes are
 * stored back to the tiddler content.
 *
 * To make use of the Link Inserts "Launch Application", "Launch Application Button"
 * or "Launch Application Link", the "LaunchApplicationPlugin" must also be
 * installed. This plugin let you invoke local applications on your PC.
 *
 * created by Buddy, December 2009
 */

;---------------------------------------------------------------------------
; The title of my TiddlyWiki page
;---------------------------------------------------------------------------
TW_TITLE := "My Wiki"   ;needs to be customized

;---------------------------------------------------------------------------
; The dictionary to translate to TW syntax
;---------------------------------------------------------------------------
wiki =
(Join Comment
Bold,'','',
Italic,//,//,
Underline,__,__,
Strikethrough,--,--,
Superscript,^^,^^,
Subscript,~~,~~,
Highlight,@@,@@,
Text Color Red,@@color\(red\):,@@,
Background Color Red,@@bgcolor\(red\):,@@,
NoWiki,<nowiki>,</nowiki>,
Unformatted,{{{`n,`n}}},
Monospaced,{{{,}}},
Indent,{{indent{,,
Ordered List Item,#new,
Ordered Multiline List Item,#{{multiline{one`ntwo}}},
Unordered List Item,*new,
Unordered Multiline List Item,*{{multiline{one`ntwo}}},
Heading,!title,
Definition List,;term`n:description,
Blockquote Single Line,>line,
Blockquote Multiple Lines,<<<`ntext`n<<<,
Dashed Line,----,
Gradient,<<gradient horizo #ffffff #ff0000>>gradient fill>>,
Table Header,|!header1|!header2|h,
Table Entry,|entry|entry|,
Table Colspan,|>|colspan|,
Table Rowspan,|rowspan|entry|`n|~|entry|,
Table Caption,|caption|c,
Table Cell Background Color,|bgcolor(blue):entry|bgcolor(red):entry|,
Wiki Link,[[Ordinary Wiki Link]],
Web Link,[[Link to Google|http://www.google.de]],
File Link,[[Link to file|file:///C:\sample.ahk]],
Image Link,[img[This is shown as a tooltip|http://example.com/image.jpg]],
Launch Application,{{{<<LaunchApplication "buttonLabel" "tooltip" "application" ["arguments" ...]>>}}},
Launch Application Button,{{{<<LaunchApplicationButton "buttonLabel" "tooltip" "application" ["arguments" ...]>>}}},
Launch Application Link,{{{<<LaunchApplicationLink "buttonLabel" "tooltip" "application" ["arguments" ...]>>}}},
Non-Breaking Space,&nbsp;,
En Space,&ensp;,
Em Space,&emsp;,
Thin Space,&thinsp;,
Euro,&euro;,
Cent,&cent;,
Pound,&pound;,
Yen,&yen;,
Currency,&curren;,
Copyright,&copy;,
Registered Trade Mark,&reg;,
Normal Trade Mark,&trade;,
Dagger,&dagger;,
Double Dagger,&Dagger;,
Bullet,&bull;,
Spade,&spades;,
Club,&clubs;,
Heart,&hearts;,
Diamond,&diams;,
Female,♀,
Male,♂,
Skull,☠,
Caution,☡ ,
Radioactive,☢,
Biohazard,☣,
Overline,&macr;,
Broken Vertical Bar,&brvbar;,
Left Ceiling,&lceil;,
Right Ceiling,&rceil;,
Left Floor,&lfloor;,
Right Floor,&rfloor;,
Left Arrow,&larr;,
Up Arrow,&uarr;,
Right Arrow,&rarr;,
Down Arrow,&darr;,
Left Right Arrow,&harr;,
Carriage Return,&crarr;,
Left Double Arrow,&lArr;,
Up Double Arrow,&uArr;,
Right Double Arrow,&rArr;,
Down Double Arrow,&dArr;,
Left Right Double Arrow,&hArr;,
Fraction 1/4,¼,
Fraction 1/2,½,
Fraction 3/4,¾,
Fraction 1/8,⅛,
Fraction 3/8,⅜,
Fraction 5/8,⅝,
Fraction 7/8,⅞,
Plus Or Minus,&plusmn;,
Multiplication,&times;,
Division,&divide;,
Logical AND,&and;,
Logical OR,&or;,
Circled Plus,&oplus;,
Circled Times,&otimes;,
Less-Than Or Equal-To,&le;,
Greater-Than Or Equal-To,&ge;,
Not Equal To,&ne;,
Approximately Equal To,&cong;,
Almost Equal To,&asymp;,
Identical To,&equiv;,
Proportional To,&prop;,
Union,&cup;,
Intersection,&cap;,
Empty Set/Null Set/Diameter,&empty;,
There Exists,&exist;,
For All,&forall;,
Element Of,&isin;,
Not An Element Of,&notin;,
Contains As A Member,&ni;,
Subset Of,&sub;,
Not A Subset Of,&nsub;,
SubsetOf Or Equal To,&sube;,
Superset Of,&sup;,
SupersetOf Or Equal To,&supe;,
Angle,&ang;,
Function,&fnof;,
Infinity,&infin;,
Integral,&int;,
Left Angle Bracket,&lang;,
Right Angle Bracket,&rang;,
Partial Differential,&part;,
Per Mille ,&permil;,
Orthogonal To,&perp;,
N-Ary Product,&prod;,
N-Ary Summation,&sum;,
Square Root,&radic;,
Therefore,&there4;,
Scissors,✄,
Telephone,✆,
Tape Drive,✇,
Airplane,✈,
Envelope,✉,
Victory Or Peace,✌,
Writing Hand,✍,
Pencil,✎,
Check Mark,✔,
Ballot X,✘,
Latin Cross,✝,
Latin Cross Shadowed,✞,
Maltese Cross,✠,
Star Of David,✡,
Snowflake,❄,
Pointing Hand Left,☜,
Pointing Hand Up,☝,
Pointing Hand Right,☞,
Pointing Hand Down,☟,
Black Sun With Rays,☀,
Cloud,☁,
Umbrella,☂,
Snowman,☃,
Comet,☄,
Black Star,★,
White Star,☆,
Lightning,☇,
Thunderstorm,☈,
Sun,☉,
Aries,♈,
Taurus,♉,
Gemini,♊,
Cancer,♋,
Leo,♌,
Virgo,♍,
Libra,♎,
Scorpio,♏,
Sagittarius,♐,
Capricorn,♑,
Aquarius,♒,
Pisces,♓,
Circled One,➀,
Circled Two,➁,
Circled Three,➂,
Circled Four,➃,
Circled Five,➄,
Circled Six,➅,
Circled Seven,➆,
Circled Eight,➇,
Circled Nine,➈,
Circled Ten,➉,
Circled Negative One,➊,
Circled Negative Two,➋,
Circled Negative Three,➌,
Circled Negative Four,➍,
Circled Negative Five,➎,
Circled Negative Six,➏,
Circled Negative Seven,➐,
Circled Negative Eight,➑,
Circled Negative Nine,➒,
Circled Negative Ten,➓,
)


;---------------------------------------------------------------------------
; Hotkeys against your Wiki page
;---------------------------------------------------------------------------
#IfWinActive, ahk_class MozillaUIWindowClass
~F12::
    toSvgEditor()
Return
+~RButton::
WinGetActiveTitle, title
    If !RegExMatch(title, TW_TITLE)
        Return
    Menu, MyWikiMenu, Add, 0 - SVG-Editor`tF12, OnMyWiki
    Menu, MyWikiMenuText, Add, 1 - Bold, OnMyWiki
    Menu, MyWikiMenuText, Add, 2 - Italic, OnMyWiki
    Menu, MyWikiMenuText, Add, 3 - Underline, OnMyWiki
    Menu, MyWikiMenuText, Add, 4 - Strikethrough, OnMyWiki
    Menu, MyWikiMenuText, Add, 5 - Superscript, OnMyWiki
    Menu, MyWikiMenuText, Add, 6 - Subscript, OnMyWiki
    Menu, MyWikiMenuText, Add, 7 - Highlight, OnMyWiki
    Menu, MyWikiMenuText, Add, 8 - Text Color Red, OnMyWiki
    Menu, MyWikiMenuText, Add, 9 - Background Color Red, OnMyWiki
    Menu, MyWikiMenuText, Add, A - NoWiki, OnMyWiki
    Menu, MyWikiMenuText, Add, B - Unformatted, OnMyWiki
    Menu, MyWikiMenuText, Add, C - Monospaced, OnMyWiki
    Menu, MyWikiMenuText, Add, D - Indent, OnMyWiki
    Menu, MyWikiMenu, Add, 1 - Text, :MyWikiMenuText
    Menu, MyWikiMenuList, Add, 1 - Ordered List Item, OnMyWiki
    Menu, MyWikiMenuList, Add, 2 - Ordered Multiline List Item, OnMyWiki
    Menu, MyWikiMenuList, Add, 3 - Unordered List Item, OnMyWiki
    Menu, MyWikiMenuList, Add, 4 - Unordered Multiline List Item, OnMyWiki
    Menu, MyWikiMenuList, Add, 5 - Heading, OnMyWiki
    Menu, MyWikiMenuList, Add, 6 - Definition List, OnMyWiki
    Menu, MyWikiMenuList, Add, 7 - Blockquote Single Line, OnMyWiki
    Menu, MyWikiMenuList, Add, 8 - Blockquote Multiple Lines, OnMyWiki
    Menu, MyWikiMenuList, Add, 9 - Dashed Line, OnMyWiki
    Menu, MyWikiMenuList, Add, A - Gradient, OnMyWiki
    Menu, MyWikiMenu, Add, 2 - List/Header Inserts, :MyWikiMenuList
    Menu, MyWikiMenuTable, Add, 1 - Table Header, OnMyWiki
    Menu, MyWikiMenuTable, Add, 2 - Table Entry, OnMyWiki
    Menu, MyWikiMenuTable, Add, 3 - Table Colspan, OnMyWiki
    Menu, MyWikiMenuTable, Add, 4 - Table Rowspan, OnMyWiki
    Menu, MyWikiMenuTable, Add, 5 - Table Caption, OnMyWiki
    Menu, MyWikiMenuTable, Add, 6 - Table Cell Background Color, OnMyWiki
    Menu, MyWikiMenu, Add, 3 - Table Inserts, :MyWikiMenuTable
    Menu, MyWikiMenuLink, Add, 1 - Wiki Link, OnMyWiki
    Menu, MyWikiMenuLink, Add, 2 - Web Link, OnMyWiki
    Menu, MyWikiMenuLink, Add, 3 - File Link, OnMyWiki
    Menu, MyWikiMenuLink, Add, 4 - Image Link, OnMyWiki
    Menu, MyWikiMenuLink, Add, 5 - Launch Application, OnMyWiki
    Menu, MyWikiMenuLink, Add, 6 - Launch Application Button, OnMyWiki
    Menu, MyWikiMenuLink, Add, 7 - Launch Application Link, OnMyWiki
    Menu, MyWikiMenu, Add, 4 - Link Inserts, :MyWikiMenuLink
    Menu, MyWikiMenuEntityWhite, Add, 1 - Non-Breaking Space, OnMyWiki
    Menu, MyWikiMenuEntityWhite, Add, 2 - En Space, OnMyWiki
    Menu, MyWikiMenuEntityWhite, Add, 3 - Em Space, OnMyWiki
    Menu, MyWikiMenuEntityWhite, Add, 4 - Thin Space, OnMyWiki
    Menu, MyWikiMenuEntity, Add, 1 - White Space Inserts, :MyWikiMenuEntityWhite
    Menu, MyWikiMenuEntityMoney, Add, 1 - Euro, OnMyWiki
    Menu, MyWikiMenuEntityMoney, Add, 2 - Cent, OnMyWiki
    Menu, MyWikiMenuEntityMoney, Add, 3 - Pound, OnMyWiki
    Menu, MyWikiMenuEntityMoney, Add, 4 - Yen, OnMyWiki
    Menu, MyWikiMenuEntityMoney, Add, 5 - Currency, OnMyWiki
    Menu, MyWikiMenuEntity, Add, 2 - Money, :MyWikiMenuEntityMoney
    Menu, MyWikiMenuEntitySymbol, Add, 1 - Copyright, OnMyWiki
    Menu, MyWikiMenuEntitySymbol, Add, 2 - Registered Trade Mark, OnMyWiki
    Menu, MyWikiMenuEntitySymbol, Add, 3 - Normal Trade Mark, OnMyWiki
    Menu, MyWikiMenuEntitySymbol, Add, 4 - Dagger, OnMyWiki
    Menu, MyWikiMenuEntitySymbol, Add, 5 - Double Dagger, OnMyWiki
    Menu, MyWikiMenuEntitySymbol, Add, 6 - Bullet, OnMyWiki
    Menu, MyWikiMenuEntitySymbol, Add, 7 - Spade, OnMyWiki
    Menu, MyWikiMenuEntitySymbol, Add, 8 - Club, OnMyWiki
    Menu, MyWikiMenuEntitySymbol, Add, 9 - Heart, OnMyWiki
    Menu, MyWikiMenuEntitySymbol, Add, A - Diamond, OnMyWiki
    Menu, MyWikiMenuEntitySymbol, Add, B - Female, OnMyWiki
    Menu, MyWikiMenuEntitySymbol, Add, C - Male, OnMyWiki
    Menu, MyWikiMenuEntitySymbol, Add, D - Skull, OnMyWiki
    Menu, MyWikiMenuEntitySymbol, Add, E - Caution, OnMyWiki
    Menu, MyWikiMenuEntitySymbol, Add, F - Radioactive, OnMyWiki
    Menu, MyWikiMenuEntitySymbol, Add, G - Biohazard, OnMyWiki
    Menu, MyWikiMenuEntity, Add, 3 - Symbols, :MyWikiMenuEntitySymbol
    Menu, MyWikiMenuEntityLine, Add, 1 - Overline, OnMyWiki
    Menu, MyWikiMenuEntityLine, Add, 2 - Broken Vertical Bar, OnMyWiki
    Menu, MyWikiMenuEntityLine, Add, 3 - Left Ceiling, OnMyWiki
    Menu, MyWikiMenuEntityLine, Add, 4 - Right Ceiling, OnMyWiki
    Menu, MyWikiMenuEntityLine, Add, 5 - Left Floor, OnMyWiki
    Menu, MyWikiMenuEntityLine, Add, 6 - Right Floor, OnMyWiki
    Menu, MyWikiMenuEntity, Add, 4 - Lines, :MyWikiMenuEntityLine
    Menu, MyWikiMenuEntityArrow, Add, 1 - Left Arrow, OnMyWiki
    Menu, MyWikiMenuEntityArrow, Add, 2 - Up Arrow, OnMyWiki
    Menu, MyWikiMenuEntityArrow, Add, 3 - Right Arrow, OnMyWiki
    Menu, MyWikiMenuEntityArrow, Add, 4 - Down Arrow, OnMyWiki
    Menu, MyWikiMenuEntityArrow, Add, 5 - Left Right Arrow, OnMyWiki
    Menu, MyWikiMenuEntityArrow, Add, 6 - Carriage Return, OnMyWiki
    Menu, MyWikiMenuEntityArrow, Add, 7 - Left Double Arrow, OnMyWiki
    Menu, MyWikiMenuEntityArrow, Add, 8 - Up Double Arrow, OnMyWiki
    Menu, MyWikiMenuEntityArrow, Add, 9 - Right Double Arrow, OnMyWiki
    Menu, MyWikiMenuEntityArrow, Add, A - Down Double Arrow, OnMyWiki
    Menu, MyWikiMenuEntityArrow, Add, B - Left Right Double Arrow, OnMyWiki
    Menu, MyWikiMenuEntity, Add, 5 - Arrows, :MyWikiMenuEntityArrow
;    Menu, MyWikiMenuEntity, Add, 6 - Punctuations, OnMyWiki
;    Menu, MyWikiMenuEntity, Add, 7 - Quotations, OnMyWiki
    Menu, MyWikiMenuEntityGreekL, Add, 1 - Alpha, OnMyWiki
    Menu, MyWikiMenuEntityGreekL, Add, 2 - Beta, OnMyWiki
    Menu, MyWikiMenuEntityGreekL, Add, 3 - Gamma, OnMyWiki
    Menu, MyWikiMenuEntityGreekL, Add, 4 - Delta, OnMyWiki
    Menu, MyWikiMenuEntityGreekL, Add, 5 - Epsilon, OnMyWiki
    Menu, MyWikiMenuEntityGreekL, Add, 6 - Zeta, OnMyWiki
    Menu, MyWikiMenuEntityGreekL, Add, 7 - Eta, OnMyWiki
    Menu, MyWikiMenuEntityGreekL, Add, 8 - Theta, OnMyWiki
    Menu, MyWikiMenuEntityGreekL, Add, 9 - Iota, OnMyWiki
    Menu, MyWikiMenuEntityGreekL, Add, A - Kappa, OnMyWiki
    Menu, MyWikiMenuEntityGreekL, Add, B - Lambda, OnMyWiki
    Menu, MyWikiMenuEntityGreekL, Add, C - Mu, OnMyWiki
    Menu, MyWikiMenuEntityGreekL, Add, D - Nu, OnMyWiki
    Menu, MyWikiMenuEntityGreekL, Add, E - Xi, OnMyWiki
    Menu, MyWikiMenuEntityGreekL, Add, F - Omicron, OnMyWiki
    Menu, MyWikiMenuEntityGreekL, Add, G - Pi, OnMyWiki
    Menu, MyWikiMenuEntityGreekL, Add, H - Rho, OnMyWiki
    Menu, MyWikiMenuEntityGreekL, Add, I - Sigma, OnMyWiki
    Menu, MyWikiMenuEntityGreekL, Add, J - Tau, OnMyWiki
    Menu, MyWikiMenuEntityGreekL, Add, K - Upsilon, OnMyWiki
    Menu, MyWikiMenuEntityGreekL, Add, L - Phi, OnMyWiki
    Menu, MyWikiMenuEntityGreekL, Add, M - Chi, OnMyWiki
    Menu, MyWikiMenuEntityGreekL, Add, N - Psi, OnMyWiki
    Menu, MyWikiMenuEntityGreekL, Add, O - Omega, OnMyWiki
    Menu, MyWikiMenuEntityGreekU, Add, 1 - Alpha, OnMyWiki
    Menu, MyWikiMenuEntityGreekU, Add, 2 - Beta, OnMyWiki
    Menu, MyWikiMenuEntityGreekU, Add, 3 - Gamma, OnMyWiki
    Menu, MyWikiMenuEntityGreekU, Add, 4 - Delta, OnMyWiki
    Menu, MyWikiMenuEntityGreekU, Add, 5 - Epsilon, OnMyWiki
    Menu, MyWikiMenuEntityGreekU, Add, 6 - Zeta, OnMyWiki
    Menu, MyWikiMenuEntityGreekU, Add, 7 - Eta, OnMyWiki
    Menu, MyWikiMenuEntityGreekU, Add, 8 - Theta, OnMyWiki
    Menu, MyWikiMenuEntityGreekU, Add, 9 - Iota, OnMyWiki
    Menu, MyWikiMenuEntityGreekU, Add, A - Kappa, OnMyWiki
    Menu, MyWikiMenuEntityGreekU, Add, B - Lambda, OnMyWiki
    Menu, MyWikiMenuEntityGreekU, Add, C - Mu, OnMyWiki
    Menu, MyWikiMenuEntityGreekU, Add, D - Nu, OnMyWiki
    Menu, MyWikiMenuEntityGreekU, Add, E - Xi, OnMyWiki
    Menu, MyWikiMenuEntityGreekU, Add, F - Omicron, OnMyWiki
    Menu, MyWikiMenuEntityGreekU, Add, G - Pi, OnMyWiki
    Menu, MyWikiMenuEntityGreekU, Add, H - Rho, OnMyWiki
    Menu, MyWikiMenuEntityGreekU, Add, I - Sigma, OnMyWiki
    Menu, MyWikiMenuEntityGreekU, Add, J - Tau, OnMyWiki
    Menu, MyWikiMenuEntityGreekU, Add, K - Upsilon, OnMyWiki
    Menu, MyWikiMenuEntityGreekU, Add, L - Phi, OnMyWiki
    Menu, MyWikiMenuEntityGreekU, Add, M - Chi, OnMyWiki
    Menu, MyWikiMenuEntityGreekU, Add, N - Psi, OnMyWiki
    Menu, MyWikiMenuEntityGreekU, Add, O - Omega, OnMyWiki
    Menu, MyWikiMenuEntityGreekC, Add, 1 - Lower Case, :MyWikiMenuEntityGreekL
    Menu, MyWikiMenuEntityGreekC, Add, 2 - Upper Case, :MyWikiMenuEntityGreekU
    Menu, MyWikiMenuEntity, Add, 6 - Greek Letters, :MyWikiMenuEntityGreekC
    Menu, MyWikiMenuEntityMathFraction, Add, 1 - Fraction 1/4, OnMyWiki
    Menu, MyWikiMenuEntityMathFraction, Add, 2 - Fraction 1/2, OnMyWiki
    Menu, MyWikiMenuEntityMathFraction, Add, 3 - Fraction 3/4, OnMyWiki
    Menu, MyWikiMenuEntityMathFraction, Add, 4 - Fraction 1/8, OnMyWiki
    Menu, MyWikiMenuEntityMathFraction, Add, 5 - Fraction 3/8, OnMyWiki
    Menu, MyWikiMenuEntityMathFraction, Add, 6 - Fraction 5/8, OnMyWiki
    Menu, MyWikiMenuEntityMathFraction, Add, 7 - Fraction 7/8, OnMyWiki
    Menu, MyWikiMenuEntityMath, Add, 1 - Fractions, :MyWikiMenuEntityMathFraction
    Menu, MyWikiMenuEntityMathOperator, Add, 1 - Plus Or Minus, OnMyWiki
    Menu, MyWikiMenuEntityMathOperator, Add, 2 - Multiplication, OnMyWiki
    Menu, MyWikiMenuEntityMathOperator, Add, 3 - Division, OnMyWiki
    Menu, MyWikiMenuEntityMathOperator, Add, 4 - Logical AND, OnMyWiki
    Menu, MyWikiMenuEntityMathOperator, Add, 5 - Logical OR, OnMyWiki
    Menu, MyWikiMenuEntityMathOperator, Add, 6 - Circled Plus, OnMyWiki
    Menu, MyWikiMenuEntityMathOperator, Add, 7 - Circled Times, OnMyWiki
    Menu, MyWikiMenuEntityMath, Add, 2 - Operators, :MyWikiMenuEntityMathOperator
    Menu, MyWikiMenuEntityMathComparator, Add, 1 - Less-Than Or Equal-To, OnMyWiki
    Menu, MyWikiMenuEntityMathComparator, Add, 2 - Greater-Than Or Equal-To, OnMyWiki
    Menu, MyWikiMenuEntityMathComparator, Add, 3 - Not Equal To, OnMyWiki
    Menu, MyWikiMenuEntityMathComparator, Add, 4 - Approximately Equal To, OnMyWiki
    Menu, MyWikiMenuEntityMathComparator, Add, 5 - Almost Equal To, OnMyWiki
    Menu, MyWikiMenuEntityMathComparator, Add, 6 - Identical To, OnMyWiki
    Menu, MyWikiMenuEntityMathComparator, Add, 7 - Proportional To, OnMyWiki
    Menu, MyWikiMenuEntityMath, Add, 3 - Comparators, :MyWikiMenuEntityMathComparator
    Menu, MyWikiMenuEntityMathSet, Add, 1 - Union, OnMyWiki
    Menu, MyWikiMenuEntityMathSet, Add, 2 - Intersection, OnMyWiki
    Menu, MyWikiMenuEntityMathSet, Add, 3 - Empty Set/Null Set/Diameter, OnMyWiki
    Menu, MyWikiMenuEntityMathSet, Add, 4 - There Exists, OnMyWiki
    Menu, MyWikiMenuEntityMathSet, Add, 5 - For All, OnMyWiki
    Menu, MyWikiMenuEntityMathSet, Add, 6 - Element Of, OnMyWiki
    Menu, MyWikiMenuEntityMathSet, Add, 7 - Not An Element Of, OnMyWiki
    Menu, MyWikiMenuEntityMathSet, Add, 8 - Contains As A Member, OnMyWiki
    Menu, MyWikiMenuEntityMathSet, Add, 9 - Subset Of, OnMyWiki
    Menu, MyWikiMenuEntityMathSet, Add, A - Not A Subset Of, OnMyWiki
    Menu, MyWikiMenuEntityMathSet, Add, B - SubsetOf Or Equal To, OnMyWiki
    Menu, MyWikiMenuEntityMathSet, Add, C - Superset Of, OnMyWiki
    Menu, MyWikiMenuEntityMathSet, Add, D - SupersetOf Or Equal To, OnMyWiki
    Menu, MyWikiMenuEntityMath, Add, 4 - Set Theory, :MyWikiMenuEntityMathSet
    Menu, MyWikiMenuEntityMathMisc, Add, 1 - Angle, OnMyWiki
    Menu, MyWikiMenuEntityMathMisc, Add, 2 - Function, OnMyWiki
    Menu, MyWikiMenuEntityMathMisc, Add, 3 - Infinity, OnMyWiki
    Menu, MyWikiMenuEntityMathMisc, Add, 4 - Integral, OnMyWiki
    Menu, MyWikiMenuEntityMathMisc, Add, 5 - Left Angle Bracket, OnMyWiki
    Menu, MyWikiMenuEntityMathMisc, Add, 6 - Right Angle Bracket, OnMyWiki
    Menu, MyWikiMenuEntityMathMisc, Add, 7 - Partial Differential, OnMyWiki
    Menu, MyWikiMenuEntityMathMisc, Add, 8 - Per Mille, OnMyWiki
    Menu, MyWikiMenuEntityMathMisc, Add, 9 - Orthogonal To, OnMyWiki
    Menu, MyWikiMenuEntityMathMisc, Add, A - N-Ary Product, OnMyWiki
    Menu, MyWikiMenuEntityMathMisc, Add, B - N-Ary Summation, OnMyWiki
    Menu, MyWikiMenuEntityMathMisc, Add, C - Square Root, OnMyWiki
    Menu, MyWikiMenuEntityMathMisc, Add, D - Therefore, OnMyWiki
    Menu, MyWikiMenuEntityMath, Add, 5 - Misc, :MyWikiMenuEntityMathMisc
    Menu, MyWikiMenuEntity, Add, 7 - Math Signs, :MyWikiMenuEntityMath
    Menu, MyWikiMenuEntityDingbats, Add, 1 - Scissors, OnMyWiki
    Menu, MyWikiMenuEntityDingbats, Add, 2 - Telephone, OnMyWiki
    Menu, MyWikiMenuEntityDingbats, Add, 3 - Tape Drive, OnMyWiki
    Menu, MyWikiMenuEntityDingbats, Add, 4 - Airplane, OnMyWiki
    Menu, MyWikiMenuEntityDingbats, Add, 5 - Envelope, OnMyWiki
    Menu, MyWikiMenuEntityDingbats, Add, 6 - Victory Or Peace, OnMyWiki
    Menu, MyWikiMenuEntityDingbats, Add, 7 - Writing Hand, OnMyWiki
    Menu, MyWikiMenuEntityDingbats, Add, 8 - Pencil, OnMyWiki
    Menu, MyWikiMenuEntityDingbats, Add, 9 - Check Mark, OnMyWiki
    Menu, MyWikiMenuEntityDingbats, Add, A - Ballot X, OnMyWiki
    Menu, MyWikiMenuEntityDingbats, Add, B - Latin Cross, OnMyWiki
    Menu, MyWikiMenuEntityDingbats, Add, C - Latin Cross Shadowed, OnMyWiki
    Menu, MyWikiMenuEntityDingbats, Add, D - Maltese Cross, OnMyWiki
    Menu, MyWikiMenuEntityDingbats, Add, E - Star Of David, OnMyWiki
    Menu, MyWikiMenuEntityDingbats, Add, F - Snowflake, OnMyWiki
    Menu, MyWikiMenuEntityDingbats, Add, G - Pointing Hand Left, OnMyWiki
    Menu, MyWikiMenuEntityDingbats, Add, H - Pointing Hand Up, OnMyWiki
    Menu, MyWikiMenuEntityDingbats, Add, I - Pointing Hand Right, OnMyWiki
    Menu, MyWikiMenuEntityDingbats, Add, J - Pointing Hand Down, OnMyWiki
    Menu, MyWikiMenuEntityDingbatsNumbers, Add, 1 - Circled One, OnMyWiki
    Menu, MyWikiMenuEntityDingbatsNumbers, Add, 2 - Circled Two, OnMyWiki
    Menu, MyWikiMenuEntityDingbatsNumbers, Add, 3 - Circled Three, OnMyWiki
    Menu, MyWikiMenuEntityDingbatsNumbers, Add, 4 - Circled Four, OnMyWiki
    Menu, MyWikiMenuEntityDingbatsNumbers, Add, 5 - Circled Five, OnMyWiki
    Menu, MyWikiMenuEntityDingbatsNumbers, Add, 6 - Circled Six, OnMyWiki
    Menu, MyWikiMenuEntityDingbatsNumbers, Add, 7 - Circled Seven, OnMyWiki
    Menu, MyWikiMenuEntityDingbatsNumbers, Add, 8 - Circled Eight, OnMyWiki
    Menu, MyWikiMenuEntityDingbatsNumbers, Add, 9 - Circled Nine, OnMyWiki
    Menu, MyWikiMenuEntityDingbatsNumbers, Add, A - Circled Ten, OnMyWiki
    Menu, MyWikiMenuEntityDingbatsNumbers, Add, B - Circled Negative One, OnMyWiki
    Menu, MyWikiMenuEntityDingbatsNumbers, Add, C - Circled Negative Two, OnMyWiki
    Menu, MyWikiMenuEntityDingbatsNumbers, Add, D - Circled Negative Three, OnMyWiki
    Menu, MyWikiMenuEntityDingbatsNumbers, Add, E - Circled Negative Four, OnMyWiki
    Menu, MyWikiMenuEntityDingbatsNumbers, Add, F - Circled Negative Five, OnMyWiki
    Menu, MyWikiMenuEntityDingbatsNumbers, Add, G - Circled Negative Six, OnMyWiki
    Menu, MyWikiMenuEntityDingbatsNumbers, Add, H - Circled Negative Seven, OnMyWiki
    Menu, MyWikiMenuEntityDingbatsNumbers, Add, I - Circled Negative Eight, OnMyWiki
    Menu, MyWikiMenuEntityDingbatsNumbers, Add, J - Circled Negative Nine, OnMyWiki
    Menu, MyWikiMenuEntityDingbatsNumbers, Add, K - Circled Negative Ten, OnMyWiki
    Menu, MyWikiMenuEntityDingbats, Add, K - Circled Number, :MyWikiMenuEntityDingbatsNumbers
    Menu, MyWikiMenuEntity, Add, 8 - Dingbats, :MyWikiMenuEntityDingbats
    Menu, MyWikiMenuEntityWeather, Add, 1 - Black Sun With Rays, OnMyWiki
    Menu, MyWikiMenuEntityWeather, Add, 2 - Cloud, OnMyWiki
    Menu, MyWikiMenuEntityWeather, Add, 3 - Umbrella, OnMyWiki
    Menu, MyWikiMenuEntityWeather, Add, 4 - Snowman, OnMyWiki
    Menu, MyWikiMenuEntityWeather, Add, 5 - Comet, OnMyWiki
    Menu, MyWikiMenuEntityWeather, Add, 6 - Black Star, OnMyWiki
    Menu, MyWikiMenuEntityWeather, Add, 7 - White Star, OnMyWiki
    Menu, MyWikiMenuEntityWeather, Add, 8 - Lightning, OnMyWiki
    Menu, MyWikiMenuEntityWeather, Add, 9 - Thunderstorm, OnMyWiki
    Menu, MyWikiMenuEntityWeather, Add, A - Sun, OnMyWiki
    Menu, MyWikiMenuEntity, Add, 9 - Weather, :MyWikiMenuEntityWeather
    Menu, MyWikiMenuEntityZodiac, Add, 1 - Aries, OnMyWiki
    Menu, MyWikiMenuEntityZodiac, Add, 2 - Taurus, OnMyWiki
    Menu, MyWikiMenuEntityZodiac, Add, 3 - Gemini, OnMyWiki
    Menu, MyWikiMenuEntityZodiac, Add, 4 - Cancer, OnMyWiki
    Menu, MyWikiMenuEntityZodiac, Add, 5 - Leo, OnMyWiki
    Menu, MyWikiMenuEntityZodiac, Add, 6 - Virgo, OnMyWiki
    Menu, MyWikiMenuEntityZodiac, Add, 7 - Libra, OnMyWiki
    Menu, MyWikiMenuEntityZodiac, Add, 8 - Scorpio, OnMyWiki
    Menu, MyWikiMenuEntityZodiac, Add, 9 - Sagittarius, OnMyWiki
    Menu, MyWikiMenuEntityZodiac, Add, A - Capricorn, OnMyWiki
    Menu, MyWikiMenuEntityZodiac, Add, B - Aquarius, OnMyWiki
    Menu, MyWikiMenuEntityZodiac, Add, C - Pisces, OnMyWiki
    Menu, MyWikiMenuEntity, Add, A - Zodiac Signs, :MyWikiMenuEntityZodiac
    Menu, MyWikiMenu, Add, 5 - Entity Inserts, :MyWikiMenuEntity

    MouseGetPos, cX, cY
    Menu, MyWikiMenu, Show, %A_GuiX%, %A_GuiY%
    Menu, MyWikiMenu, Delete
Return
#IfWinActive


;---------------------------------------------------------------------------
; Hotkeys against the SVG-Editor
;---------------------------------------------------------------------------
#IfWinActive, SVG-edit
~F12::
    fromSvgEditor()
Return
+~RButton::
    Menu, SvgEditMenu, Add, 0 - Save to Wiki`tF12, OnSvgEdit

    MouseGetPos, cX, cY
    Menu, SvgEditMenu, Show, %A_GuiX%, %A_GuiY%
    Menu, SvgEditMenu, Delete
Return
#IfWinActive


;---------------------------------------------------------------------------
; TiddlyWiki menu handler
;---------------------------------------------------------------------------
OnMyWiki:

    ;---------------------------------------------------------------------------
    ; Open SVG graphic in editor
    ;---------------------------------------------------------------------------
    If RegExMatch(A_ThisMenuItem, "SVG-Editor")
        toSvgEditor()

    ;---------------------------------------------------------------------------
    ; Formatting action aginst a selected text string
    ;---------------------------------------------------------------------------
    Else If RegExMatch(A_ThisMenuItem
    , "(Bold)|"
    . "(Italic)|"
    . "(Underline)|"
    . "(Strikethrough)|"
    . "(Superscript)|"
    . "(Subscript)|"
    . "(Highlight)|"
    . "(Text Color Red)|"
    . "(Background Color Red)|"
    . "(Nowiki)|"
    . "(Unformatted)|"
    . "(Monospaced)|"
    . "(Indent)")
    {
        If RegExMatch(wiki, "U)" . RegExReplace(A_ThisMenuItem, "\w - ", "") . ",(.+),(.*),", m)
        {
            OldClipboard := Clipboard
            Clipboard =
            SendEvent ^c
            Clipwait, 2

            If RegExMatch(Clipboard, "s)^\Q" . m1 . "\E.*\Q" . m2 . "\E$")
                Clipboard := RegExReplace(Clipboard, "s)^\Q" . m1 . "\E(.*)\Q" . m2 . "\E$", "$1")
            Else
                Clipboard = %m1%%Clipboard%%m2%

            SendEvent ^v
            Sleep 200
            Clipboard := OldClipboard
        }
    }

;    If RegExMatch(A_ThisMenuItem, "(Euro)|")
;    {
;        If RegExMatch(wiki, "U)" . RegExReplace(A_ThisMenuItem, "\w - ", "") . ",(.+),", m)
;        {
;            OldClipboard := Clipboard
;            Clipboard := m1
;            Clipwait, 2
;            SendEvent ^v
;            Sleep 200
;            Clipboard := OldClipboard
;        }
;    }
    ;---------------------------------------------------------------------------
    ; Wiki syntax or HTML entity to be inserted at the cursor position
    ;---------------------------------------------------------------------------
    Else If RegExMatch(A_ThisMenuItem
    , "(Ordered List Item)|"
    . "(Ordered Multiline List Item)|"
    . "(Unordered List Item)|"
    . "(Unordered Multiline List Item)|"
    . "(Heading)|(Definition List)|"
    . "(Blockquote Single Line)|"
    . "(Blockquote Multiple Lines)|"
    . "(Dashed Line)|"
    . "(Gradient)|"
    . "(Table Header)|"
    . "(Table Entry)|"
    . "(Table Colspan)|"
    . "(Table Rowspan)|"
    . "(Table Caption)|"
    . "(Table Cell Background Color)|"
    . "(Wiki Link)|"
    . "(Web Link)|"
    . "(File Link)|"
    . "(Image Link)|"
    . "(Launch Application)|"
    . "(Launch Application Button)|"
    . "(Launch Application Link)|"
    . "(Non-Breaking Space)|"
    . "(En Space)|"
    . "(Em Space)|"
    . "(Thin Space)|"
    . "(Euro)|"
    . "(Cent)|"
    . "(Pound)|"
    . "(Yen)|"
    . "(Currency)|"
    . "(Copyright)|"
    . "(Registered Trade Mark)|"
    . "(Normal Trade Mark)|"
    . "(Dagger)|"
    . "(Double Dagger)|"
    . "(Bullet)|"
    . "(Spade)|"
    . "(Club)|"
    . "(Heart)|"
    . "(Diamond)|"
    . "(Female)|"
    . "(Male)|"
    . "(Skull)|"
    . "(Caution)|"
    . "(Radioactive)|"
    . "(Biohazard)|"
    . "(Overline)|"
    . "(Broken Vertical Bar)|"
    . "(Left Ceiling)|"
    . "(Right Ceiling)|"
    . "(Left Floor)|"
    . "(Right Floor)|"
    . "(Left Arrow)|"
    . "(Up Arrow)|"
    . "(Right Arrow)|"
    . "(Down Arrow)|"
    . "(Left Right Arrow)|"
    . "(Carriage Return)|"
    . "(Left Double Arrow)|"
    . "(Up Double Arrow)|"
    . "(Right Double Arrow)|"
    . "(Down Double Arrow)|"
    . "(Left Right Double Arrow)|"
    . "(Fraction 1/4)|"
    . "(Fraction 1/2)|"
    . "(Fraction 3/4)|"
    . "(Fraction 1/8)|"
    . "(Fraction 3/8)|"
    . "(Fraction 5/8)|"
    . "(Fraction 7/8)|"
    . "(Plus Or Minus)|"
    . "(Multiplication)|"
    . "(Division)|"
    . "(Logical AND)|"
    . "(Logical OR)|"
    . "(Circled Plus)|"
    . "(Circled Times)|"
    . "(Less-Than Or Equal-To)|"
    . "(Greater-Than Or Equal-To)|"
    . "(Not Equal To)|"
    . "(Approximately Equal To)|"
    . "(Almost Equal To)|"
    . "(Identical To)|"
    . "(Proportional To)|"
    . "(Union)|"
    . "(Intersection)|"
    . "(Empty Set/Null Set/Diameter)|"
    . "(There Exists)|"
    . "(For All)|"
    . "(Element Of)|"
    . "(Not An Element Of)|"
    . "(Contains As A Member)|"
    . "(Subset Of)|"
    . "(Not A Subset Of)|"
    . "(SubsetOf Or Equal To)|"
    . "(Superset Of)|"
    . "(SupersetOf Or Equal To)|"
    . "(Angle)|"
    . "(Function)|"
    . "(Infinity)|"
    . "(Integral)|"
    . "(Left Angle Bracket)|"
    . "(Right Angle Bracket)|"
    . "(Partial Differential)|"
    . "(Per Mille)|"
    . "(Orthogonal To)|"
    . "(N-Ary Product)|"
    . "(N-Ary Summation)|"
    . "(Square Root)|"
    . "(Therefore)|"
    . "(Scissors)|"
    . "(Telephone)|"
    . "(Tape Drive)|"
    . "(Airplane)|"
    . "(Envelope)|"
    . "(Victory Or Peace)|"
    . "(Writing Hand)|"
    . "(Pencil)|"
    . "(Check Mark)|"
    . "(Ballot X)|"
    . "(Latin Cross)|"
    . "(Latin Cross Shadowed)|"
    . "(Maltese Cross)|"
    . "(Star Of David)|"
    . "(Snowflake)|"
    . "(Pointing Hand Left)|"
    . "(Pointing Hand Up)|"
    . "(Pointing Hand Right)|"
    . "(Pointing Hand Down)|"
    . "(Black Sun With Rays)|"
    . "(Cloud)|"
    . "(Umbrella)|"
    . "(Snowman)|"
    . "(Comet)|"
    . "(Black Star)|"
    . "(White Star)|"
    . "(Lightning)|"
    . "(Thunderstorm)|"
    . "(Sun)|"
    . "(Aries)|"
    . "(Taurus)|"
    . "(Gemini)|"
    . "(Cancer)|"
    . "(Leo)|"
    . "(Virgo)|"
    . "(Libra)|"
    . "(Scorpio)|"
    . "(Sagittarius)|"
    . "(Capricorn)|"
    . "(Aquarius)|"
    . "(Pisces)|"
    . "(Circled One)|"
    . "(Circled Two)|"
    . "(Circled Three)|"
    . "(Circled Four)|"
    . "(Circled Five)|"
    . "(Circled Six)|"
    . "(Circled Seven)|"
    . "(Circled Eight)|"
    . "(Circled Nine)|"
    . "(Circled Ten)|"
    . "(Circled Negative One)|"
    . "(Circled Negative Two)|"
    . "(Circled Negative Three)|"
    . "(Circled Negative Four)|"
    . "(Circled Negative Five)|"
    . "(Circled Negative Six)|"
    . "(Circled Negative Seven)|"
    . "(Circled Negative Eight)|"
    . "(Circled Negative Nine)|"
    . "(Circled Negative Ten)|")
    {
        If RegExMatch(wiki, "U)" . RegExReplace(A_ThisMenuItem, "\w - ", "") . ",(.+),", m)
        {
            OldClipboard := Clipboard
            Clipboard := m1
            Clipwait, 2
            SendEvent ^v
            Sleep 200
            Clipboard := OldClipboard
        }
    }

    ;---------------------------------------------------------------------------
    ; Insert Greek letter
    ;---------------------------------------------------------------------------
    If (A_ThisMenu = "MyWikiMenuEntityGreekL") OR (A_ThisMenu = "MyWikiMenuEntityGreekU")
    {
        OldClipboard := Clipboard
        letter := RegExReplace(A_ThisMenuItem, "\w - ", "")
        If (A_ThisMenu = "MyWikiMenuEntityGreekL")
            StringLower, letter, letter
        Clipboard := "&" . letter . ";"
        Clipwait, 2
        SendEvent ^v
        Sleep 200
        Clipboard := OldClipboard
    }
Return


;---------------------------------------------------------------------------
; F12 copies from SVG-Editor to Wiki
;---------------------------------------------------------------------------
OnSvgEdit:
    If RegExMatch(A_ThisMenuItem, "Save to Wiki")
        fromSvgEditor()
Return


;---------------------------------------------------------------------------
; F12 copies from Wiki to SVG-Editor
;---------------------------------------------------------------------------
toSvgEditor() {

    global svg, presvg, postsvg

    ;---------------------------------------------------------------------------
    ; Make sure the right wiki content is selected
    ;---------------------------------------------------------------------------
    Clipboard =
    Send ^a^c
    ClipWait, 1
    If RegExMatch(Clipboard, "sm)(.+)('<svg.+</svg>')(.+)", m)
    {
        ;---------------------------------------------------------------------------
        ; Wiki must be edited, otherwise m1 is much more
        ;---------------------------------------------------------------------------
        If !RegExMatch(m1, "s)^<script>\s*\R+var svgCode =\s*\R*$")
            Return
        ;---------------------------------------------------------------------------
        ; Get content before and after svgCode
        ;---------------------------------------------------------------------------
        presvg := m1
        postsvg := m3

        ;---------------------------------------------------------------------------
        ; Strip all quotes and trailing plus sign
        ;---------------------------------------------------------------------------
        svg := RegExReplace(m2, "'\+", "")
        svg := RegExReplace(svg, "'", "")

        ;---------------------------------------------------------------------------
        ; Open SVG-Editor
        ;---------------------------------------------------------------------------
        Send !t
        Sleep 200
        Send {Down 3}{Enter}
        WinActivate, SVG-edit
        WinWaitActive, SVG-edit

        ;---------------------------------------------------------------------------
        ; Make sure the text window is open
        ;---------------------------------------------------------------------------
        Clipboard =
        Send ^a^c
        Clipwait, 1
        If !RegExMatch(Clipboard, "sm)(<svg.+</svg>)", m)
        {
            Send u
            Sleep 500
        }

        ;---------------------------------------------------------------------------
        ; Paste svg code into the text window and switch to drawing mode
        ;---------------------------------------------------------------------------
        Clipboard := svg
        Clipwait, 1
        Send ^a^v
        MouseMove, 100, 80
        MouseClick
        Sleep 500
        Send {Tab 4}1{Enter} ;set stroke=1
    }
}


;---------------------------------------------------------------------------
; F12 copies from SVG-Editor to Wiki
;---------------------------------------------------------------------------
fromSvgEditor() {

    global svg, presvg, postsvg

    ;---------------------------------------------------------------------------
    ; Open SVG-Editor text window
    ;---------------------------------------------------------------------------
    Send u
    Sleep 1000

    ;---------------------------------------------------------------------------
    ; Copy svg code from text window
    ;---------------------------------------------------------------------------
    Send ^a^c
    Clipwait, 1
    Send {Esc}

    ;---------------------------------------------------------------------------
    ; Activate Wiki window again
    ;---------------------------------------------------------------------------
    WinActivate, %TW_TITLE%
    WinWaitActive, %TW_TITLE%

    ;---------------------------------------------------------------------------
    ; Convert svg code to tiddler content
    ;---------------------------------------------------------------------------
    If !presvg
        presvg := "<script>`nvar svgCode = `n"
    If !postsvg
        postsvg := ";`n`nvar svgObject = document.createElement('object');`nsvgObject.setAttribute('type', 'image/svg+xml');`nsvgObject.setAttribute('data', 'data:image/svg+xml,'+ svgCode);`nplace.appendChild(svgObject);`n</script>"

    out := presvg
    Loop, Parse, Clipboard, `n
    {
        line := RegExReplace(A_LoopField, "'", """")
        out := out . "'" . RegExReplace(line, "\R", "") . "'+" . "`n"
    }
    StringTrimRight, out, out, 2
    out := out . postsvg

    ;---------------------------------------------------------------------------
    ; Make sure to paste into an opened tiddler with proper content
    ;---------------------------------------------------------------------------
    Clipboard =
    Send ^a^c
    Clipwait, 1
    If RegExMatch(Clipboard, "sm)<script>.+</script>")
    {
        Clipboard := out
        Clipwait, 1
        Send ^a^v
    }
}