diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/md2html | 176 |
1 files changed, 176 insertions, 0 deletions
diff --git a/bin/md2html b/bin/md2html new file mode 100755 index 0000000..61683ae --- /dev/null +++ b/bin/md2html @@ -0,0 +1,176 @@ +#!/usr/local/bin/awk -f + +# md2html.awk +# by: Jesus Galan (yiyus) <yiyu.jgl@gmail>, May 2009 +# Usage: +# md2html file.md > file.html +# Options: -v esc=false to not escape html + +function newblock(nblock){ + if(text) + print "<" block ">" text "</" block ">"; + text = ""; + block = nblock ? nblock : "p"; +} + +function subinline(tgl, inl){ + while(match($0, tgl)){ + if (inline[ni] == inl) + ni -= sub(tgl, "</" inl ">"); + else if (sub(tgl, "<" inl ">")) + inline[++ni] = inl; + } +} + +function dolink(href, lnk){ + # Undo escaped html in uris + gsub(/&/, "\\&", href); + gsub(/</, "<", href); + gsub(/>/, ">", href); + # & can be tricky, and not standard: + gsub(/&/, "\\\\\\&", href); + gsub(/&/, "\\\\\\&", lnk); + return "<a href=\"" href "\">" lnk "</a>"; +} + +BEGIN { + ni = 0; # inlines + nl = 0; # nested lists + text = ""; + block = "p"; +} + +# Escape html +esc != "false" { + gsub("&", "\\&") + gsub("<", "\\<") + gsub(">", "\\>") +} + +# Horizontal rules (_ is not in markdown) +/^[ ]*([-*_] ?)+[ ]*$/ && text == "" { + print "<hr>"; + next; +} + +# Tables (not in markdown) +# Syntax: +# Right Align| Center Align |Left Align +/([ ]\|)|(\|[ ])/ { + if(block != "table") + newblock("table"); + nc = split($0, cells, "|"); + $0 = "<tr>\n"; + for(i = 1; i <= nc; i++){ + align = "left"; + if(sub(/^[ ]+/, "", cells[i])){ + if(sub(/[ ]+$/, "", cells[i])) + align = "center"; + else + align = "right"; + } + sub(/[ ]+$/,"", cells[i]); + $0 = $0 "<td align=\"" align "\">" cells[i] "</td>\n"; + } + $0 = $0 "</tr>"; +} + +# Ordered and unordered (possibly nested) lists +/^[ ]*([*+-]|(([0-9]+[\.-]?)+))[ ]/ { + newblock("li"); + nnl = 1; + while(match($0, /^[ ]/)){ + sub(/^[ ]/,""); + nnl++; + } + while(nl > nnl) + print "</" list[nl--] ">"; + while(nl < nnl){ + list[++nl] = "ol"; + if(match($0, /^[*+-]/)) + list[nl] = "ul"; + print "<" list[nl] ">"; + } + sub(/^([*+-]|(([0-9]+[\.-]?)+))[ ]/,""); +} + +# Multi line list items +block == "li" { + sub(/^( *)|( *)/,""); +} + +# Code blocks +/^( | )/ { + if(block != "code") + newblock("code"); + sub(/^( | )/, ""); + text = text $0 "\n"; + next; +} + +# Paragraph +/^$/ { + newblock(); + while(nl > 0) + print "</" list[nl--] ">"; +} + +# Setex-style Headers +# (Plus h3 with underscores.) +/^=+$/ { + block = "h" 1; + next; +} + +/^-+$/ { + block = "h" 2; + next; +} + +/^_+$/ { + block = "h" 3; + next; +} + +# Atx-style headers +/^#/ { + newblock(); + match($0, /#+/); + n = RLENGTH; + if(n > 6) + n = 6; + text = substr($0, RLENGTH + 1); + block = "h" n; + next; +} + +// { + # Images + while(match($0, /!\[[^\]]+\]\([^\)]+\)/)){ + split(substr($0, RSTART, RLENGTH), a, /(!\[)|\)|(\]\()/); + sub(/!\[[^\]]+\]\([^\)]+\)/, "<img src=\"" a[3] "\" alt=\"" a[2] "\">"); + } + # Links + while(match($0, /\[[^\]]+\]\([^\)]+\)/)){ + split(substr($0, RSTART, RLENGTH), a, /[\[\)]|(\]\()/); + sub(/\[[^\]]+\]\([^\)]+\)/, dolink(a[3], a[2])); + } + # Auto links (uri matching is poor) + na = split($0, a, /(^\()|[ ]|([,\.\)]([ ]|$))/); + for(i = 1; i <= na; i++) + if(match(a[i], /^(((https?|ftp|file|news|irc):\/\/)|(mailto:)).+$/)) + sub(a[i], dolink(a[i], a[i])); + # Inline + subinline("(\\*\\*)|(__)", "strong"); + subinline("\\*", "em"); + subinline("`", "code"); + text = text (text ? " " : "") $0; +} + +END { + while(ni > 0) + text = text "</" inline[ni--] ">"; + newblock(); + while(nl > 0) + print "</" list[nl--] ">"; +} |