Last active
March 10, 2020 09:16
-
-
Save jasondavis/157d0fa2ce47086c30fd1c8ca83f4785 to your computer and use it in GitHub Desktop.
AutoHotScript (AHK) Markdown 2 HTML GUI App
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| /* | |
| AutoHotScript (AHK) Markdown 2 HTML GUI App | |
| - AutoHotScript GUI Window to Convert Markdown 2 HTML | |
| 1) Markdown text Edit GUI | |
| 2) HTML Text Edit GUI parsed from above Markdown text | |
| 3) HTML Activex GUI Webpage with above parsed Markdown as HTML for preview | |
| - Based on: | |
| - Markdown2HTML code in GenDocs library - https://github.com/fincs/GenDocs/blob/master/Lib/Markdown2HTML.ahk | |
| - jsonFormatter - JSON Beautifier/Pretty Print Script using JavaScript here https://autohotkey.com/board/topic/94687-jsonformatter-json-pretty-print-using-javascript/ | |
| - Github Gist - https://gist.github.com/jasondavis/157d0fa2ce47086c30fd1c8ca83f4785 | |
| - Screenshot Image - https://www.apollowebstudio.com/screenshots/2018/02/AutoHotkey_2018-02-22_19-16-27.png | |
| */ | |
| #NoEnv | |
| #SingleInstance force | |
| SetBatchLines, -1 | |
| Gui, Add, Text, X10 Y10, Markdown: | |
| Gui, Add, Edit, x10 y36 w400 h600 vmarkdown | |
| Gui, Add, Text, X420 y10, HTML Text Result: | |
| Gui, Add, Edit, X420 y36 w400 h600 vresult ReadOnly | |
| ;Gui, Font, s12 | |
| Gui, Add, Button, Section w350 h40 gbtn_go, Convert Markdown 2 HTML | |
| Gui, Add, Button, ys w50 h40 gbtn_copy, Copy | |
| Gui, Add, Text, y655 x840 w100 vcopyPrompt cRed | |
| Gui, Add, Text, X830 y10, HTML Browser Result: | |
| Gui, Add, ActiveX, X830 y36 w400 h600 vWB1, Shell.Explorer | |
| Gui, Show, W1250 | |
| Return | |
| btn_go: | |
| GuiControlGet, markdown | |
| if markdown | |
| text := markdown | |
| html := Markdown2HTML(ByRef text, 0) | |
| GuiControl,, result, % html | |
| HTML_Page := | |
| (RTRIM | |
| "<!DOCTYPE html> | |
| <html> | |
| <head> | |
| <style> | |
| body { | |
| background-color: #FFFFFF; | |
| } | |
| img { | |
| top: 0px; | |
| left: 0px; | |
| } | |
| </style> | |
| </head> | |
| <body> | |
| " html " | |
| </body> | |
| </html>" | |
| ) | |
| WB1.Navigate("about:" HTML_Page) | |
| Return | |
| btn_copy: | |
| GuiControlGet, result | |
| if result | |
| { | |
| Clipboard := result | |
| GuiControl,, copyPrompt, HTML Copied 2 Clipboard! | |
| Sleep, 3500 | |
| GuiControl,, copyPrompt | |
| } | |
| return | |
| GuiClose: | |
| ExitApp | |
| /* | |
| Markdown2HTML() + StrStartsWith() functions | |
| from GenDocs v3.0-alpha004 - Author: fincs | |
| Source: https://github.com/fincs/GenDocs | |
| + Table function source: | |
| http://www.autohotkey.com/board/topic/71751-gendocs-v30-alpha002-create-stdlib-documentation-easily/page-2#entry530364 | |
| + KeepHTML (Lintalist addition): | |
| using a ~~~ block HTML-code is included as is | |
| See documentation "Formatted Text Snippets", "Markdown" for more information on tables | |
| and how to use the simplyfied version of the Markdown syntax that is supported by | |
| this function. | |
| */ | |
| ; | |
| ; File encoding: UTF-8 | |
| ; | |
| MD_IsMultiP(ByRef htmQ) | |
| { | |
| StringReplace, html, htmQ, <p>, <p>, UseErrorLevel | |
| if ErrorLevel > 1 | |
| return true | |
| StringReplace, html, html, <pre, <pre, UseErrorLevel | |
| return !!ErrorLevel | |
| } | |
| Markdown2HTML(ByRef text, simplify=0) | |
| { | |
| if !simplify | |
| return Markdown2HTML_(text) | |
| t := Markdown2HTML_(text) | |
| if !MD_IsMultiP(t) | |
| { | |
| StringReplace, t, t, <p>,, All | |
| StringReplace, t, t, </p>,, All | |
| } | |
| return t | |
| } | |
| Markdown2HTML_(ByRef text) | |
| { | |
| blankLine := 1, inCode := 0, inUList := 0, inOList := 0 | |
| Loop, Parse, text, `n, `r | |
| { | |
| isList := false | |
| t := LTrim(A_LoopField) | |
| beg := SubStr(t, 1, 2) | |
| if t = | |
| { | |
| blankLine ++ | |
| if blankLine = 1 | |
| out .= !inCode ? !inUList ? !inOList ? "</p>`n" : "</ol>`n" : "</ul>`n" : "</pre>`n" | |
| inCode := 0 | |
| inUList := 0 | |
| inOList := 0 | |
| continue | |
| }else | |
| { | |
| if blankLine | |
| { | |
| if RegExMatch(t, "^(#{1,3})\s+(.+)$", o) | |
| { | |
| h := StrLen(o1) | |
| out .= "<h" h " id=""" _ElemID(o2) """>" _HTML(o2) "</h" h ">`n" | |
| continue | |
| } | |
| inCode := (beg = "> ") | |
| inUList := (beg = "* ") | |
| inOList := (t ~= "^([1-9]+|[a-z]+)\.\s+") | |
| if inOList | |
| listTag := t ~= "\d" ? "<ol>`n" : "<ol style=""list-style-type: lower-alpha"">`n", isList := true | |
| out .= !inCode ? !inUList ? !inOList ? "<p>`n" : listTag : "<ul>`n" : "<pre>`n" | |
| } | |
| blankLine := 0 | |
| } | |
| _reprocess: | |
| if inCode | |
| { | |
| if (beg = "> ") | |
| { | |
| t := SubStr(t, 3) | |
| t := _HTML(t) | |
| }else | |
| { | |
| out .= "</pre>`n" | |
| SetStatus(out, t, inCode, inUList, inOList) | |
| goto _reprocess | |
| } | |
| }else if inUList | |
| { | |
| if (beg = "* ") | |
| { | |
| t := SubStr(t, 3) | |
| t := "<li>" _MD(t) "</li>" | |
| }else | |
| { | |
| out .= "</ul>`n" | |
| SetStatus(out, t, inCode, inUList, inOList) | |
| goto _reprocess | |
| } | |
| }else if inOList | |
| { | |
| if RegExMatch(t, "O)^([1-9]+|[a-z]+)\.\s+", mObj) | |
| { | |
| StringTrimLeft, t, t, % mObj.Len | |
| t := "<li>" _MD(t) "</li>" | |
| }else | |
| { | |
| out .= "</ol>`n" | |
| SetStatus(out, t, inCode, inUList, inOList) | |
| goto _reprocess | |
| } | |
| }else | |
| { | |
| if (beg != "> ") && (beg != "* ") && !isList | |
| { | |
| t := _MD(t) | |
| if SubStr(t, -1) = " " | |
| { | |
| StringTrimRight, t, t, 2 | |
| t .= "<br/>" | |
| } | |
| }else | |
| { | |
| out .= "</p>`n" | |
| SetStatus(out, t, inCode, inUList, inOList) | |
| goto _reprocess | |
| } | |
| } | |
| out .= t "`n" | |
| } | |
| if !blankLine | |
| out .= !inCode ? !inUList ? !inOList ? "</p>`n" : "</ol>`n" : "</ul>`n" : "</pre>`n" | |
| StringTrimRight, out, out, 1 | |
| StringReplace, out, out, <p>`n, <p>, All | |
| StringReplace, out, out, `n</p>, </p>, All | |
| ; Fix comments | |
| _s := 1 | |
| while p := InStr(out, "<pre>", false, _s) | |
| { | |
| p2 := InStr(out, "</pre>", false, p += 5) | |
| code := HighlightCode(SubStr(out, p, p2-p)) | |
| out := SubStr(out, 1, p-1) code SubStr(out, p2) | |
| _s := p + StrLen(code) | |
| } | |
| StringReplace, out, out, <pre>`n, <pre class="NoIndent">, All | |
| StringReplace, out, out, `n</pre>, </pre>, All | |
| While RegExMatch(out,"m)\n<p>\|") ; we have a table | |
| _Tables(out) | |
| While RegExMatch(out,"m)\~\~\~") ; we have a html code block (lintalist) | |
| _keepHTML(out) | |
| return out | |
| } | |
| SetStatus(ByRef out, t, ByRef inCode, ByRef inUList, ByRef inOList) | |
| { | |
| beg := SubStr(t, 1, 2) | |
| inCode := beg = "> " | |
| inUList := beg = "* " | |
| inOList := t ~= "^([1-9]+|[a-z]+)\.\s+" | |
| out .= !inCode ? !inUList ? !inOList ? "<p>`n" : "<ol>`n" : "<ul>`n" : "<pre>`n" | |
| } | |
| _MD(ByRef v) | |
| { | |
| static pcre_callout := "_MD_Callout" | |
| t := _HTML(v) | |
| t := RegExReplace(t, "P)\*\*(.+?)\*\*(?C1)", "<strong>$1</strong>") | |
| t := RegExReplace(t, "P)\*(.+?)\*(?C2)", "<em>$1</em>") | |
| t := RegExReplace(t, "P)``(.+?)``(?C3)", "<code>$1</code>") | |
| t := RegExReplace(t, "P)!\[(.*?)\](?C4)\((.+?)\)", "<img src=""$2"" alt=""$1""/>") | |
| t := RegExReplace(t, "P)\[(.+?)\](?C5)\((.+?)\)", "<a href=""$2"">$1</a>") | |
| StringReplace, t, t, \*, *, All | |
| StringReplace, t, t, \``, ``, All | |
| StringReplace, t, t, \[, [, All | |
| StringReplace, t, t, \], ], All | |
| StringReplace, t, t, \!, !, All | |
| StringReplace, t, t, \\, \, All | |
| return t | |
| } | |
| _HTML(ByRef v) | |
| { | |
| StringReplace, t, v, &, &, All | |
| StringReplace, t, t, ", ", All | |
| StringReplace, t, t, <, <, All | |
| StringReplace, t, t, >, >, All | |
| return t | |
| } | |
| _ElemID(ByRef v) | |
| { | |
| t := Trim(_HTML(v)) | |
| StringReplace, t, t, ',, All | |
| StringReplace, t, t, ",, All | |
| StringReplace, t, t, (,, All | |
| StringReplace, t, t, ),, All | |
| StringReplace, t, t, [,, All | |
| StringReplace, t, t, ],, All | |
| StringReplace, t, t, ?,, All | |
| StringReplace, t, t, %A_Space%, -, All | |
| StringLower, t, t | |
| return t | |
| } | |
| HighlightCode(ByRef code) | |
| { | |
| Loop, Parse, code, `n, `r | |
| { | |
| line := A_LoopField | |
| tline := Trim(line) | |
| if StrStartsWith(tline, ";") | |
| line := "<em>" line "</em>" | |
| else line := RegExReplace(line, "(\s+)(;.*)$", "$1<em>$2</em>") | |
| StringReplace, line, line, %A_Tab%, %A_Space%%A_Space%%A_Space%%A_Space%, All | |
| out .= line "`n" | |
| } | |
| StringTrimRight, out, out, 1 | |
| return out | |
| } | |
| _MD_Callout(m, cId, foundPos, haystack) | |
| { | |
| ; cId = 1 -> **text** | |
| ; cId = 2 -> *text* | |
| ; cId = 3 -> `text` | |
| ; cId = 4 ->  | |
| ; cId = 5 -> [link text](link url) | |
| p := foundPos, e := 0 | |
| while SubStr(haystack, --p, 1) = "\" | |
| e ++ | |
| if e & 1 | |
| return 1 | |
| p := foundPos + m - 1, e := 0 | |
| if cId = 1 | |
| p -- | |
| while SubStr(haystack, --p, 1) = "\" | |
| e ++ | |
| if e & 1 | |
| return 1 | |
| if cId = 4 | |
| { | |
| global imglist | |
| imglist._Insert(SubStr(haystack, mPos2, mLen2)) | |
| } | |
| return 0 | |
| } | |
| _Tables(byref t) | |
| { | |
| RegExMatch(t,"msU)\n<p>\|(.*)</p>",table) | |
| Loop, parse, table1, `n, `r | |
| { | |
| If A_Index = 1 | |
| { | |
| htmltable .= "<thead><th>" A_LoopField "</th></thead>`n" | |
| StringReplace, htmltable, htmltable,|,</th><th>,All | |
| Continue | |
| } | |
| htmltable .= "<tr><td>" A_LoopField "</td></tr>`n" | |
| } | |
| StringReplace, htmltable, htmltable,|,</td><td>,All | |
| StringReplace, t, t, <p>|%table1%</p>, <table>`n%htmltable%</table> ; remove unformatted table from t | |
| Return t | |
| } | |
| _KeepHTML(byref t) ; Lintalist addition | |
| { | |
| RegExMatch(t,"iUsm)\~\~\~(.*)\~\~\~",match) | |
| stringreplace, replace, match1, <, <, All | |
| stringreplace, replace, replace, >, >, All | |
| stringreplace, t, t, ~~~%match1%~~~, %replace%, All | |
| Return t | |
| } | |
| ; StrStartsWith() | |
| ; also from from GenDocs v3.0-alpha004 | |
| StrStartsWith(ByRef v, ByRef w) | |
| { | |
| return SubStr(v, 1, StrLen(w)) = w | |
| } | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment