@thi.ng/hiccup-markdown 2.1.49 → 3.0.1

package/parse.js

@@ -1,223 +1,534 @@
+// Downloaded @ 2023-02-26T13:59:47.034Z
+// Source: https://demo.thi.ng/umbrella/parse-playground/#ldoNR0ROTDE6IDxETkw-KyA9PiBkaXNjYXJkIDsKRE5MMjogPE5MPnsyLH0gOwpsYnI6ICdcXCchIDxOTD4hIDsKZXNjOiAnXFwnISAoICc8JyB8ICdbJyB8ICdfJyB8ICcqJyB8ICdgJyB8ICd-JyB8ICc6JyApIDsKaW5saW5lZGVsaW06ICggIiFbIiB8ICdbJyB8ICIqKiIgfCAnXycgfCAnYCcgfCAnPCcgfCAnXFwnIHwgIn5-IiB8ICIgOiIgfCA8bGJyPiApIDsKZGVsaW06ICggPGlubGluZWRlbGltPiB8IDxETkwyPiApIDsKZGVsaW0xOiAoIDxpbmxpbmVkZWxpbT4gfCA8Tkw-ICkgOwpib2R5OiAuKD8tPGRlbGltPiEpID0-IGpvaW4gOwpib2R5MTogLig_LTxkZWxpbTE-ISkgPT4gam9pbiA7Cgp3aWtpcmVmOiAiW1siISAuKD8rIl1dIiEpID0-IGpvaW4gOwpmbnJlZjogIlteIiEgPGxhYmVsPiA7CmZub3RlOiA8TFNUQVJUPiAiW14iISA8Zm5sYWJlbD4gPFdTMT4gPHBhcmE-IDsKZm5sYWJlbDogLig_KyJdOiIhKSA9PiBqb2luIDsKbGFiZWw6IC4oPysnXSchKSA9PiBqb2luIDsKdGFyZ2V0OiAuKD8rJyknISkgPT4gam9pbiA7Cmxpbms6ICdbJyEgPGxpbmtsYWJlbD4gJygnISA8dGFyZ2V0PiA7CmxpbmtyZWY6ICdbJyEgPGxpbmtsYWJlbD4gJ1snISA8bGFiZWw-IDsKbGlua2RlZjogPExTVEFSVD4gJ1snISA8bGFiZWw-ICc6JyEgPFdTMT4gPGxkdGFyZ2V0PiA7CmxkdGFyZ2V0OiAuKD8rPEROTDE-KSA9PiBqb2luIDsKbGlua2xhYmVsOiAoPGltZz4gfCA8Ym9sZD4gfCA8aXRhbGljPiB8IDxzdHJpa2U-IHwgPGNvZGU-IHwgPGVtb2ppPiB8IDxsaW5rYm9keT4pKiAnXSchIDsKbGlua2RlbGltOiAoICIhWyIgfCAnWycgfCAiKioiIHwgJ18nIHwgIn5-IiB8ICdgJyB8ICddJykgOwpsaW5rYm9keTogLig_LTxsaW5rZGVsaW0-ISkgPT4gam9pbiA7CmltZzogIiFbIiEgPGxhYmVsPiAnKCchIDx0YXJnZXQ-IDsKYm9sZDogIioqIiEgKDx3aWtpcmVmPiB8IDxpbWc-IHwgPGZucmVmPiB8IDxsaW5rcmVmPiB8IDxsaW5rPiB8IDxpdGFsaWM-IHwgPHN0cmlrZT4gfCA8Y29kZT4gfCA8ZW1vamk-IHwgPGJvZHkxPikqICIqKiIhIDsKaXRhbGljOiAnXychICg8d2lraXJlZj4gfCA8aW1nPiB8IDxmbnJlZj4gfCA8bGlua3JlZj4gfCA8bGluaz4gfCA8Ym9sZD4gfCA8c3RyaWtlPiB8IDxjb2RlPiB8IDxlbW9qaT4gfCA8Ym9keTE-KSogJ18nISA7CnN0cmlrZTogIn5-IiEgKDx3aWtpcmVmPiB8IDxpbWc-IHwgPGZucmVmPiB8IDxsaW5rcmVmPiB8IDxsaW5rPiB8IDxib2xkPiB8IDxpdGFsaWM-IHwgPGNvZGU-IHwgPGVtb2ppPiB8IDxib2R5MT4pKiAifn4iISA7CmNvZGU6ICdgJyEgLig_KydgJyEpID0-IGpvaW4gOwprYmQ6ICI8a2JkPiIhIC4oPysiPC9rYmQ-IiEpID0-IGpvaW4gOwplbW9qaTogJyAnPyAnOichICg8QUxQSEFfTlVNPiB8ICcrJyB8ICctJykoPysnOichKSA9PiBqb2luIDsKcGFyYTogKDx3aWtpcmVmPiB8IDxpbWc-IHwgPGZucmVmPiB8IDxsaW5rcmVmPiB8IDxsaW5rPiB8IDxib2xkPiB8IDxpdGFsaWM-IHwgPHN0cmlrZT4gfCA8Y29kZT4gfCA8a2JkPiB8IDxlbW9qaT4gfCA8bGJyPiB8IDxlc2M-IHwgPGJvZHk-KSogPEROTDI-ISA7CgpoZGxldmVsOiAnIycrID0-IGNvdW50IDsKaGQ6IDxMU1RBUlQ-IDxoZGxldmVsPiA8V1MwPgogICAgKDx3aWtpcmVmPiB8IDxpbWc-IHwgPGZucmVmPiB8IDxsaW5rPiB8IDxib2xkPiB8IDxpdGFsaWM-IHwgPHN0cmlrZT4gfCA8Y29kZT4gfCA8ZW1vamk-IHwgPGJvZHkxPiApKiA8RE5MMT4gOwoKbGlsZXZlbDogJyAnKiA9PiBjb3VudCA7CnVpbnQ6IDxESUdJVD4rID0-IGludCA7CnVsaWQ6IDxETkw-IDxXUzA-ICctJyEgOwpvbGlkOiA8RE5MPiA8V1MwPiA8RElHSVQ-KyEgJy4nISA7CmxpZGVsaW06ICggPGRlbGltPiB8IDx1bGlkPiB8IDxvbGlkPiApIDsKbGlib2R5OiAuKD8tPGxpZGVsaW0-ISkgPT4gam9pbiA7CnRvZG86ICdbJyEgWyB4WF0gJ10nISA8V1MxPiA9PiBob2lzdFIgOwp1bGl0ZW06IDxMU1RBUlQ-IDxsaWxldmVsPiAiLSAiISA8dG9kbz4_CiAgICAgICAgKDx3aWtpcmVmPiB8IDxpbWc-IHwgPGZucmVmPiB8IDxsaW5rPiB8IDxib2xkPiB8IDxpdGFsaWM-IHwgPHN0cmlrZT4gfCA8Y29kZT4gfCA8ZW1vamk-IHwgPGxpYm9keT4gKSogPEROTD4gOwpvbGl0ZW06IDxMU1RBUlQ-IDxsaWxldmVsPiA8dWludD4gIi4gIiEgPHRvZG8-PwogICAgICAgICg8d2lraXJlZj4gfCA8aW1nPiB8IDxmbnJlZj4gfCA8bGluaz4gfCA8Ym9sZD4gfCA8aXRhbGljPiB8IDxzdHJpa2U-IHwgPGNvZGU-IHwgPGVtb2ppPiB8IDxsaWJvZHk-ICkqIDxETkw-IDsKbGlzdDogKDx1bGl0ZW0-IHwgPG9saXRlbT4pKyA8RE5MMT4gOwoKY2JkZWxpbTogPExTVEFSVD4gImBgYCIhIDsKY29kZWJsb2NrOiA8Y2JkZWxpbT4hIDxjb2RlbWV0YT4gPGNvZGVib2R5PiA8RE5MMT4gOwpjb2RlbWV0YTogLig_KzxOTD4hKSA9PiBqb2luIDsKY29kZWJvZHk6IC4oPys8Y2JkZWxpbT4pID0-IGpvaW4gOwoKY3VzdG9tZGVsaW06IDxMU1RBUlQ-ICI6OjoiISA7CmN1c3RvbWJsb2NrOiA8Y3VzdG9tZGVsaW0-ISA8Y3VzdG9tbWV0YT4gPGN1c3RvbWJvZHk-IDxETkwxPiA7CmN1c3RvbW1ldGE6IC4oPys8Tkw-ISkgPT4gam9pbiA7CmN1c3RvbWJvZHk6IC4oPys8Y3VzdG9tZGVsaW0-KSA9PiBqb2luIDsKCm1ldGFibG9jazogPExTVEFSVD4gInt7eyIhIDxtZXRhYm9keT4gPEROTDE-IDsKbWV0YWJvZHk6IC4oPys8bWV0YWVuZD4hKSA9PiBqb2luIDsKbWV0YWVuZDogIn19fSIgPExFTkQ-IDsKCmJxbGV2ZWw6ICc-JysgPT4gY291bnQgOwpicWxpbmU6IDxMU1RBUlQ-IDxicWxldmVsPiAnICc_IQogICAgICAgICg8d2lraXJlZj4gfCA8aW1nPiB8IDxmbnJlZj4gfCA8bGluaz4gfCA8Ym9sZD4gfCA8aXRhbGljPiB8IDxzdHJpa2U-IHwgPGNvZGU-IHwgPGVtb2ppPiB8IDxicWxicj4gfCA8Ym9keTE-KSogPEROTD4gOwpicWxicjogJ1xcJyEoPy08RE5MPikgOwpicXVvdGU6IDxicWxpbmU-KyA8RE5MMT4gOwoKdGRlbGltOiAoPGlubGluZWRlbGltPiB8ICd8JyApIDsKdGJvZHk6IC4oPy08dGRlbGltPiEpID0-IGpvaW4gOwp0Y2VsbDogPFdTMD4gKDx3aWtpcmVmPiB8IDxpbWc-IHwgPGZucmVmPiB8IDxsaW5rPiB8IDxib2xkPiB8IDxpdGFsaWM-IHwgPHN0cmlrZT4gfCA8Y29kZT4gfCA8ZW1vamk-IHwgPHRib2R5PiApKiAnfCchIDsKdHJvdzogPExTVEFSVD4gJ3wnISA8dGNlbGw-KD8rPEROTD4pIDsKdGFibGU6IDx0cm93PisgPEROTDE-IDsKCmhyOiAiLS0iICctJysgPEROTDE-ID0-IGpvaW4gOwoKbWFpbjogPFdTMD4gKDxoZD4gfCA8bGlzdD4gfCA8YnF1b3RlPiB8IDxjb2RlYmxvY2s-IHwgPGN1c3RvbWJsb2NrPiB8IDxtZXRhYmxvY2s-IHwgPHRhYmxlPiB8IDxocj4gfCA8Zm5vdGU-IHwgPGxpbmtkZWY-IHwgPHBhcmE-KSogO6RtYWlu2gKLIyBIZWxsbyA6d29ybGQ6OnNtaWxlOlteYWJjXQoKYSBcPCBiCgpMZXQgYGV4cDIoeCkgPSAyKip4YAoKUHJlc3MgPGtiZD5Db250cm9sPC9rYmQ-ICsgPGtiZD5SPC9rYmQ-IHRvIHJlbG9hZC4KCjo6OmFsZXJ0ClRlc3QgW2xhYmVsXVtyZWZyZWZdCjo6OgoKLS0tCgp7e3sgeyJpZCI6IDEyMywgInByb3RlY3RlZCI6IHRydWUgfSB9fX0KU28gW1tzbWlsZV9mb28xMl1dIPCfmI0gd2hhdCdzIFt0aGlzXSguL3RoaXMubWQpW14yXSB0aGVuOgoKQSBbbGluayBfd2l0aCAqKm5lc3RlZCB-fmZvcm1hdH5-KiogYW5kIGByZWZlcmVuY2VgX11bcmVmcmVmXS4uLgoKYGBgdHMgdGFuZ2xlOm5vIGxuOnllcwpjb25zdCBmb28gPSA0MjsKLy8gdGhlIGVuZApgYGAKCjEuIGZvbwogIDQuIGJhcgogICAgIGJheiBhbmQgc28gb24KICAgICBtdWx0aWxpbmUKMi4gWyBdIHRhc2sKMy4gW3hdICoqZG9uZSoqCgo-IGJsb2NrcXVvdGUKPiBtdWx0aWxpbmUgdG9vXAo-PiBuZXN0ZWQKPj4-IGxldmVsIDMKPiAtLSBzb3VyY2UKCnwgZm9vIHwgYmFyIHwKfDotfC06fAp8IFtbcmVmIzIyXV0gfCBgb25gICoqb2ZmKiogfAoKW15hYmNdOiBGb28gX2Jhcl8gYmF6CgpbXjJdOiBUT0RPCgpbcmVmcmVmXTogaHR0cDovL3RoaS5uZy8KW2Zvb106IC4vZm9vLm1kI2JhcgoK2TUxMS4gYWJjCiAgLSB4eXoKMjEuIHh4eAogIDEuIGZvbwogICAgMS4gYmFyCjMxLiB5eXkKCtlWPiAqKmxldmVsIDFhKioKPj4gbGV2ZWwgMmEKPj4gbGV2ZWwgMmIKPgo-IGxldmVsIDFiCgpbKipmb28qKl0oYmFyKQoKKiohW2Zvb10oYmFyKSoqCgo
 import { peek } from "@thi.ng/arrays/peek";
-import { alts } from "@thi.ng/fsm/alts";
-import { fsm } from "@thi.ng/fsm/fsm";
-import { not } from "@thi.ng/fsm/not";
-import { whitespace } from "@thi.ng/fsm/range";
-import { repeat } from "@thi.ng/fsm/repeat";
-import { seq } from "@thi.ng/fsm/seq";
-import { str } from "@thi.ng/fsm/str";
-import { untilStr } from "@thi.ng/fsm/until";
-import { comp } from "@thi.ng/transducers/comp";
-import { filter } from "@thi.ng/transducers/filter";
+import { isArray } from "@thi.ng/checks/is-array";
+import { isPlainObject } from "@thi.ng/checks/is-plain-object";
+import { isPrimitive } from "@thi.ng/checks/is-primitive";
+import { isString } from "@thi.ng/checks/is-string";
+import { DEFAULT, defmulti } from "@thi.ng/defmulti";
+import { EMOJI } from "@thi.ng/emoji/emoji";
+import { defContext } from "@thi.ng/parse/context";
+import { defGrammar } from "@thi.ng/parse/grammar";
+import { escapeEntities } from "@thi.ng/strings/entities";
+import { slugifyGH } from "@thi.ng/strings/slugify";
+export const GRAMMAR = defGrammar(`
+DNL1: <DNL>+ => discard ;
+DNL2: <NL>{2,} ;
+lbr: '\\\\'! <NL>! ;
+esc: '\\\\'! ( '<' | '[' | '_' | '*' | '\`' | '~' | ':' ) ;
+inlinedelim: ( "![" | '[' | "**" | '_' | '\`' | '<' | '\\\\' | "~~" | " :" | <lbr> ) ;
+delim: ( <inlinedelim> | <DNL2> ) ;
+delim1: ( <inlinedelim> | <NL> ) ;
+body: .(?-<delim>!) => join ;
+body1: .(?-<delim1>!) => join ;
+
+wikiref: "[["! .(?+"]]"!) => join ;
+fnref: "[^"! <label> ;
+fnote: <LSTART> "[^"! <fnlabel> <WS1> <para> ;
+fnlabel: .(?+"]:"!) => join ;
+label: .(?+']'!) => join ;
+target: .(?+')'!) => join ;
+link: '['! <linklabel> '('! <target> ;
+linkref: '['! <linklabel> '['! <label> ;
+linkdef: <LSTART> '['! <label> ':'! <WS1> <ldtarget> ;
+ldtarget: .(?+<DNL1>) => join ;
+linklabel: (<img> | <bold> | <italic> | <strike> | <code> | <emoji> | <linkbody>)* ']'! ;
+linkdelim: ( "![" | '[' | "**" | '_' | "~~" | '\`' | ']') ;
+linkbody: .(?-<linkdelim>!) => join ;
+img: "!["! <label> '('! <target> ;
+bold: "**"! (<wikiref> | <img> | <fnref> | <linkref> | <link> | <italic> | <strike> | <code> | <emoji> | <body1>)* "**"! ;
+italic: '_'! (<wikiref> | <img> | <fnref> | <linkref> | <link> | <bold> | <strike> | <code> | <emoji> | <body1>)* '_'! ;
+strike: "~~"! (<wikiref> | <img> | <fnref> | <linkref> | <link> | <bold> | <italic> | <code> | <emoji> | <body1>)* "~~"! ;
+code: '\`'! .(?+'\`'!) => join ;
+kbd: "<kbd>"! .(?+"</kbd>"!) => join ;
+emoji: ' '? ':'! (<ALPHA_NUM> | '+' | '-')(?+':'!) => join ;
+para: (<wikiref> | <img> | <fnref> | <linkref> | <link> | <bold> | <italic> | <strike> | <code> | <kbd> | <emoji> | <lbr> | <esc> | <body>)* <DNL2>! ;
+
+hdlevel: '#'+ => count ;
+hd: <LSTART> <hdlevel> <WS0>
+    (<wikiref> | <img> | <fnref> | <link> | <bold> | <italic> | <strike> | <code> | <emoji> | <body1> )* <DNL1> ;
+
+lilevel: ' '* => count ;
+uint: <DIGIT>+ => int ;
+ulid: <DNL> <WS0> '-'! ;
+olid: <DNL> <WS0> <DIGIT>+! '.'! ;
+lidelim: ( <delim> | <ulid> | <olid> ) ;
+libody: .(?-<lidelim>!) => join ;
+todo: '['! [ xX] ']'! <WS1> => hoistR ;
+ulitem: <LSTART> <lilevel> "- "! <todo>?
+        (<wikiref> | <img> | <fnref> | <link> | <bold> | <italic> | <strike> | <code> | <emoji> | <libody> )* <DNL> ;
+olitem: <LSTART> <lilevel> <uint> ". "! <todo>?
+        (<wikiref> | <img> | <fnref> | <link> | <bold> | <italic> | <strike> | <code> | <emoji> | <libody> )* <DNL> ;
+list: (<ulitem> | <olitem>)+ <DNL1> ;
+
+cbdelim: <LSTART> "\`\`\`"! ;
+codeblock: <cbdelim>! <codemeta> <codebody> <DNL1> ;
+codemeta: .(?+<NL>!) => join ;
+codebody: .(?+<cbdelim>) => join ;
+
+customdelim: <LSTART> ":::"! ;
+customblock: <customdelim>! <custommeta> <custombody> <DNL1> ;
+custommeta: .(?+<NL>!) => join ;
+custombody: .(?+<customdelim>) => join ;
+
+metablock: <LSTART> "{{{"! <metabody> <DNL1> ;
+metabody: .(?+<metaend>!) => join ;
+metaend: "}}}" <LEND> ;
+
+bqlevel: '>'+ => count ;
+bqline: <LSTART> <bqlevel> ' '?!
+        (<wikiref> | <img> | <fnref> | <link> | <bold> | <italic> | <strike> | <code> | <emoji> | <bqlbr> | <body1>)* <DNL> ;
+bqlbr: '\\\\'!(?-<DNL>) ;
+bquote: <bqline>+ <DNL1> ;
+
+tdelim: (<inlinedelim> | '|' ) ;
+tbody: .(?-<tdelim>!) => join ;
+tcell: <WS0> (<wikiref> | <img> | <fnref> | <link> | <bold> | <italic> | <strike> | <code> | <emoji> | <tbody> )* '|'! ;
+trow: <LSTART> '|'! <tcell>(?+<DNL>) ;
+table: <trow>+ <DNL1> ;
+
+hr: "--" '-'+ <DNL1> => join ;
+
+main: <WS0> (<hd> | <list> | <bquote> | <codeblock> | <customblock> | <metablock> | <table> | <hr> | <fnote> | <linkdef> | <para>)* ;
+`);
+export const DEFAULT_TAG_TRANSFORMS = {
+    bold: (_, body) => ["strong", {}, ...body],
+    blockquote: (_, body, meta) => ["blockquote", withMeta({}, meta), ...body],
+    br: () => ["br", {}],
+    code: (_, body) => ["code", {}, body],
+    codeblock: (_, lang, __head, body, meta) => [
+        "pre",
+        withMeta({ data: { lang }, __head }, meta),
+        ["code", {}, body],
+    ],
+    custom: (_, type, __head, body, meta) => [
+        "custom",
+        withMeta({ type, __head }, meta),
+        body,
+    ],
+    emoji: (_, id) => EMOJI[id] || id,
+    footnote: (_, id, body, meta) => [
+        "li",
+        withMeta({ id: `fn-${id}` }, meta),
+        ["sup", {}, `[${id}] `],
+        ...body,
+        " ",
+        ["a", { href: `#fnref-${id}` }, "↩︎"],
+    ],
+    footnoteRef: (_, id) => [
+        "sup",
+        {},
+        ["a", { id: `fnref-${id}`, href: `#fn-${id}` }, `[${id}]`],
+    ],
+    footnoteWrapper: (_, notes) => [
+        "ul",
+        { id: "footnotes" },
+        ...Object.keys(notes)
+            .sort()
+            .map((id) => notes[id]),
+    ],
+    heading: (_, level, id, body, meta) => [
+        level > 6 ? "p" : `h${level}`,
+        withMeta({ id }, meta),
+        ...body,
+    ],
+    hr: (_, __length, meta) => ["hr", withMeta({ __length }, meta)],
+    img: (_, alt, src, title) => ["img", { src, alt, title }],
+    italic: (_, body) => ["em", {}, ...body],
+    kbd: (_, key) => ["kbd", {}, key],
+    link: (_, href, title, body) => ["a", { href, title }, ...body],
+    linkRef: (ctx, refID, body) => [
+        "a",
+        {
+            href: () => ctx.linkRefs[refID]?.[0],
+            title: () => ctx.linkRefs[refID]?.[1],
+        },
+        ...body,
+    ],
+    meta: (_, body) => body,
+    olitem: (_, attribs, index, body) => [
+        "li",
+        { ...attribs, __index: index },
+        ...body,
+    ],
+    ol: (_, items, meta) => ["ol", withMeta({}, meta), ...items],
+    para: (_, body, meta) => ["p", withMeta({}, meta), ...body],
+    strike: (_, body) => ["s", {}, ...body],
+    table: (_, __align, head, rows, meta) => [
+        "table",
+        withMeta({ __align }, meta),
+        ["thead", {}, head],
+        ["tbody", {}, ...rows],
+    ],
+    tableCell: (_, body) => ["td", {}, ...body],
+    tableHead: (_, body) => ["th", {}, ...body],
+    tableRow: (_, __, cells) => ["tr", {}, ...cells],
+    ul: (_, items, meta) => ["ul", withMeta({}, meta), ...items],
+    ulitem: (_, attribs, body) => ["li", attribs, ...body],
+    wikiref: (_, id, label) => [
+        "a",
+        { class: "wikiref", href: encodeURI(id.replace(/\s+/g, "_")) },
+        label || id,
+    ],
+};
+export class ParseError extends Error {
+    constructor(state) {
+        super(state
+            ? `stopped line: ${state.l}, col: ${state.c} (pos: ${state.p})`
+            : undefined);
+        this.state = state;
+    }
+}
 /**
- * Parser state IDs
+ * Parses given Markdown source string into a tree structure defined by given
+ * {@link TagTransforms}.
+ *
+ * @remarks
+ * The tag transforms are optional and the default implementations can be
+ * overwritten on tag-by-tag basis. The default transforms yield a simple hiccup
+ * tree (aka each tag will be an array in the form: `["tagname", {...},
+ * ...body]`).
+ *
+ * See [thi.ng/hiccup](https://thi.ng/hiccup) and related packages for further
+ * details.
+ *
+ * @param src
+ * @param opts
  */
-var State;
-(function (State) {
-    State[State["BLOCKQUOTE"] = 0] = "BLOCKQUOTE";
-    State[State["CODE"] = 1] = "CODE";
-    State[State["CODEBLOCK"] = 2] = "CODEBLOCK";
-    State[State["EMPHASIS"] = 3] = "EMPHASIS";
-    State[State["END_BLOCKQUOTE"] = 4] = "END_BLOCKQUOTE";
-    State[State["END_LI"] = 5] = "END_LI";
-    State[State["END_PARA"] = 6] = "END_PARA";
-    State[State["END_HEADING"] = 7] = "END_HEADING";
-    State[State["END_TABLE"] = 8] = "END_TABLE";
-    State[State["HEADING"] = 9] = "HEADING";
-    State[State["IMG"] = 10] = "IMG";
-    State[State["LINK"] = 11] = "LINK";
-    State[State["LI"] = 12] = "LI";
-    State[State["PARA"] = 13] = "PARA";
-    State[State["START"] = 14] = "START";
-    State[State["START_CODEBLOCK"] = 15] = "START_CODEBLOCK";
-    State[State["STRIKE"] = 16] = "STRIKE";
-    State[State["STRONG"] = 17] = "STRONG";
-    State[State["TABLE"] = 18] = "TABLE";
-})(State || (State = {}));
+export const parse = (src, { tags, opts, linkRefs, logger, } = {}) => {
+    const parseCtx = parseRaw(src, opts?.retain);
+    const mdCtx = defTransformContext(tags, opts, linkRefs, logger);
+    const result = [];
+    transformScope(parseCtx.root, mdCtx, result);
+    return {
+        result,
+        ctx: mdCtx,
+        complete: !!parseCtx.done,
+        state: parseCtx.state,
+    };
+};
 /**
- * Default hiccup element factories
+ * 1st stage of the parsing (with out result transformations). This calls the
+ * `main` rule of the provided parse {@link GRAMMAR} and returns a parse
+ * context, incl. the raw abstract syntax tree of the parsed document. If
+ * parsing failed entirely (due to invalid input), throws a {@link ParseError}.
+ *
+ * @remarks
+ * Note: Even if the function returns a result, parsing might only have
+ * partially successful (can be checked via the [`.done`
+ * flag](https://docs.thi.ng/umbrella/parse/classes/ParseContext.html#done)).
+ *
+ * This function is only for advanced use. Mostly you'll probably want to use
+ * the main {@link parse} function instead.
+ *
+ * @param src
+ * @param retain
  */
-const DEFAULT_TAGS = {
-    blockquote: (xs) => ["blockquote", {}, ...xs],
-    code: (body) => ["code", {}, body],
-    codeblock: (lang, body) => ["pre", { lang }, body],
-    em: (body) => ["em", {}, body],
-    heading: (level, xs) => [level < 7 ? `h${level}` : "p", {}, ...xs],
-    hr: () => ["hr", {}],
-    img: (src, alt) => ["img", { src, alt }],
-    li: (xs) => ["li", {}, ...xs],
-    link: (href, body) => ["a", { href }, body],
-    list: (type, xs) => [type, {}, ...xs],
-    paragraph: (xs) => ["p", {}, ...xs],
-    strong: (body) => ["strong", {}, body],
-    strike: (body) => ["del", {}, body],
-    table: (rows) => ["table", {}, ["tbody", {}, ...rows]],
-    td: (_, xs) => ["td", {}, ...xs],
-    tr: (_, xs) => ["tr", {}, ...xs],
-};
-const BQUOTE = ">";
-const CODE = "`";
-const CODEBLOCK = "```";
-const CODEBLOCK_END = "\n```\n";
-const EM = "_";
-const HD = "#";
-const HR = "-";
-const IMG = "![";
-const LI = "- ";
-const LINK_LABEL = "[";
-const LINK_LABEL_END = "]";
-const LINK_HREF = "(";
-const LINK_HREF_END = ")";
-const NL = "\n";
-const STRIKE = "~~";
-const STRONG = "**";
-const TD = "|";
-// state / context handling helpers
-const transition = (ctx, id) => {
-    ctx.children = [];
-    ctx.body = "";
-    return [id];
-};
-const push = (id, next) => (ctx) => {
-    ctx.stack.push({ id, children: ctx.children.concat(ctx.body) });
-    return transition(ctx, next);
+export const parseRaw = (src, retain = false) => {
+    const ctx = defContext(src + "\n\n", { retain });
+    if (!GRAMMAR.rules.main(ctx))
+        throw new ParseError(ctx.state);
+    return ctx;
 };
-const pop = (result) => (ctx, body) => {
-    const { id, children } = ctx.stack.pop();
-    children.push(result(ctx, body));
-    ctx.children = children;
-    ctx.body = "";
-    return [id];
-};
-const collectChildren = (ctx) => (ctx.children.push(ctx.body), ctx.children);
-const collect = (id) => (ctx, buf) => {
-    ctx.body += buf.join("");
-    return [id];
-};
-const collectHeading = (tag) => (ctx) => [14 /* State.START */, [tag(ctx.hd, collectChildren(ctx))]];
-const collectAndRestart = (tag) => (ctx) => [14 /* State.START */, [tag(collectChildren(ctx))]];
-const collectBlockQuote = (ctx) => (ctx.children.push(ctx.body, ["br", {}]),
-    (ctx.body = ""),
-    [0 /* State.BLOCKQUOTE */]);
-const collectCodeBlock = (tag) => (ctx, body) => [14 /* State.START */, [tag(ctx.lang, body)]];
-const collectLi = (ctx, tag) => ctx.container.push(tag(collectChildren(ctx)));
-const collectList = (type, list, item) => (ctx) => {
-    collectLi(ctx, item);
-    return [14 /* State.START */, [list(type, ctx.container)]];
+export const defTransformContext = (tags, opts, linkRefs, logger) => ({
+    footnotes: {},
+    headings: [],
+    linkRefs: linkRefs || {},
+    hasFootnotes: false,
+    logger,
+    meta: null,
+    row: 0,
+    opts: {
+        escape: false,
+        retain: false,
+        ...opts,
+    },
+    tags: { ...DEFAULT_TAG_TRANSFORMS, ...tags },
+});
+/**
+ * Polymorphic & recursive parse scope/node transformation function. Takes a
+ * single scope, context and accumulator array, then calls itself recursively
+ * for any child scopes and passes relevant data to its user defined
+ * {@link TagTransforms} handler and adds result to the accumulator array.
+ *
+ */
+export const transformScope = defmulti((x, ctx) => {
+    ctx.logger && ctx.logger.debug(x);
+    return x.id;
+}, {
+    body1: "body",
+    bqlbr: "lbr",
+    bqline: "repeat0",
+    label: "body",
+    libody: "body",
+    linkbody: "body",
+    main: "root",
+    repeat1: "repeat0",
+    tbody: "body",
+}, {
+    [DEFAULT]: (scope, ctx) => {
+        throw new Error(`unknown ID: ${scope.id}, ctx: ${JSON.stringify(ctx)}`);
+    },
+    root: ({ children }, ctx, acc) => {
+        if (!children)
+            return;
+        transformScope(children[0], ctx, acc);
+        if (ctx.hasFootnotes) {
+            __collect(acc, ctx.tags.footnoteWrapper(ctx, ctx.footnotes));
+        }
+    },
+    main: (scope, ctx, acc) => transformScope(scope.children[0], ctx, acc),
+    repeat0: (scope, ctx, acc) => scope.children && __children(ctx, scope.children, acc),
+    body: (scope, ctx, acc) => __collect(acc, __escape(ctx, scope.result)),
+    bold: (scope, ctx, acc) => __collect(acc, ctx.tags.bold(ctx, __children(ctx, scope.children))),
+    bquote: (scope, ctx, acc) => {
+        const stack = [[]];
+        const children = scope.children[0].children;
+        const $unwind = (level) => {
+            while (level < stack.length) {
+                const nested = stack.pop();
+                __collect(peek(stack), ctx.tags.blockquote(ctx, __trimBody(nested)));
+            }
+            return peek(stack);
+        };
+        for (let i = 0, n = children.length - 1; i <= n; i++) {
+            const [{ result: level }, bqline] = children[i].children;
+            let body = peek(stack);
+            if (level > stack.length) {
+                while (level > stack.length)
+                    stack.push((body = []));
+            }
+            else if (level < stack.length) {
+                body = $unwind(level);
+            }
+            else if (body.length) {
+                const prev = children[i - 1].children[1];
+                if (!bqline.children) {
+                    __collect(body, ctx.tags.br(ctx));
+                    __collect(body, ctx.tags.br(ctx));
+                }
+                else if (prev.children &&
+                    peek(prev.children).id !== "bqlbr") {
+                    body.push(" ");
+                }
+            }
+            transformScope(bqline, ctx, body);
+        }
+        __collect(acc, ctx.tags.blockquote(ctx, __trimBody($unwind(1)), ctx.meta));
+        ctx.meta = null;
+    },
+    code: (scope, ctx, acc) => __collect(acc, ctx.tags.code(ctx, __escape(ctx, scope.result))),
+    codeblock: ({ children }, ctx, acc) => {
+        const [lang, ...head] = children[0].result.split(" ");
+        const body = children[1].result.trim();
+        __collect(acc, ctx.tags.codeblock(ctx, lang, head, __escape(ctx, body), ctx.meta));
+        ctx.meta = null;
+    },
+    customblock: ({ children }, ctx, acc) => {
+        const [type, ...head] = children[0].result.split(" ");
+        __collect(acc, ctx.tags.custom(ctx, type, head, children[1].result.trim(), ctx.meta));
+        ctx.meta = null;
+    },
+    emoji: ({ result }, ctx, acc) => {
+        if (result[0] === " ") {
+            __collect(acc, " ");
+            result = result.substring(1);
+        }
+        __collect(acc, ctx.tags.emoji(ctx, result));
+    },
+    esc: (scope, ctx, acc) => acc.push(__escape(ctx, scope.children[0].result)),
+    fnote: ({ children }, ctx) => {
+        const body = [];
+        const id = children[0].result;
+        transformScope(children[1].children[0], ctx, body);
+        const res = ctx.tags.footnote(ctx, id, body, ctx.meta);
+        if (res != null) {
+            ctx.hasFootnotes = true;
+            ctx.footnotes[id] = res;
+        }
+        ctx.meta = null;
+    },
+    fnref: (scope, ctx, acc) => __collect(acc, ctx.tags.footnoteRef(ctx, scope.children[0].result)),
+    hd: ({ children }, ctx, acc) => {
+        const body = [];
+        const level = children[0].result;
+        transformScope(children[1], ctx, body);
+        ctx.headings.push({ level, body });
+        __trimBody(body);
+        __collect(acc, ctx.tags.heading(ctx, level, slugifyGH(extractBody(body).join("")), body, ctx.meta));
+        ctx.meta = null;
+    },
+    hr: (scope, ctx, acc) => {
+        __collect(acc, ctx.tags.hr(ctx, scope.result.length, ctx.meta));
+        ctx.meta = null;
+    },
+    img: ({ children }, ctx, acc) => __collect(acc, ctx.tags.img(ctx, __escape(ctx, children[0].result.trim()), ...__linkTitle(children[1].result))),
+    italic: (scope, ctx, acc) => __collect(acc, ctx.tags.italic(ctx, __children(ctx, scope.children))),
+    kbd: (scope, ctx, acc) => __collect(acc, ctx.tags.kbd(ctx, scope.result)),
+    lbr: (_, ctx, acc) => __collect(acc, ctx.tags.br(ctx)),
+    link: ({ children }, ctx, acc) => __collect(acc, ctx.tags.link(ctx, ...__linkTitle(children[1].result), __children(ctx, children[0].children))),
+    linkdef: ({ children }, ctx) => {
+        ctx.linkRefs[children[0].result] = __linkTitle(children[1].result);
+    },
+    linkref: ({ children }, ctx, acc) => __collect(acc, ctx.tags.linkRef(ctx, children[1].result, __children(ctx, children[0].children))),
+    list: (scope, ctx, acc) => {
+        const children = scope.children[0].children;
+        const stack = [
+            [children[0].id === "ulitem" ? "ul" : "ol"],
+        ];
+        const levels = [0];
+        for (let item of children) {
+            const currLevel = item.children[0].result;
+            if (currLevel > peek(levels)) {
+                const sublist = [item.id === "ulitem" ? "ul" : "ol"];
+                const parent = peek(stack);
+                parent.length > 1
+                    ? peek(parent).push(sublist)
+                    : parent.push([
+                        parent[0] === "ul" ? "ulitem" : "olitem",
+                        {},
+                        sublist,
+                    ]);
+                stack.push(sublist);
+                levels.push(currLevel);
+            }
+            else if (currLevel < peek(levels)) {
+                while (currLevel < peek(levels)) {
+                    stack.pop();
+                    levels.pop();
+                }
+            }
+            transformScope(item, ctx, peek(stack));
+        }
+        const $list = (root, isRoot = false) => ctx.tags[root[0]](ctx, root.slice(1).map($item), isRoot ? ctx.meta : null);
+        const $item = (item) => {
+            let last = item[item.length - 1];
+            if (last[0] === "ul" || last[0] === "ol")
+                item[item.length - 1] = $list(last);
+            return item[0] === "ulitem"
+                ? ctx.tags.ulitem(ctx, item[1], item.slice(2))
+                : ctx.tags.olitem(ctx, item[1], item[2], item.slice(3));
+        };
+        __collect(acc, $list(stack[0], true));
+        ctx.meta = null;
+    },
+    metablock: ({ children }, ctx) => {
+        ctx.meta = ctx.tags.meta(ctx, children[0].result.trim());
+    },
+    olitem: ({ children }, ctx, acc) => {
+        const body = [];
+        transformScope(children[3], ctx, body);
+        __collect(acc, [
+            "olitem",
+            __listItemAttribs(children[2]),
+            children[1].result,
+            ...__trimBody(body),
+        ]);
+    },
+    para: (scope, ctx, acc) => {
+        __collect(acc, ctx.tags.para(ctx, __trimBody(__children(ctx, scope.children)), ctx.meta));
+        ctx.meta = null;
+    },
+    strike: (scope, ctx, acc) => __collect(acc, ctx.tags.strike(ctx, __children(ctx, scope.children))),
+    table: (scope, ctx, acc) => {
+        const children = scope.children[0].children;
+        const head = [];
+        const rows = [];
+        ctx.row = 0;
+        transformScope(children[0], ctx, head);
+        let align;
+        if (children.length > 1) {
+            align = __columnAlignments(children[1].children[0].children);
+            for (let i = 2, n = children.length; i < n; i++) {
+                ctx.row = i - 1;
+                transformScope(children[i], ctx, rows);
+            }
+        }
+        else {
+            align = new Array(children[0].children[0].children.length).fill("left");
+        }
+        __collect(acc, ctx.tags.table(ctx, align, head[0], rows, ctx.meta));
+        ctx.meta = null;
+    },
+    tcell: ({ children }, ctx, acc) => __collect(acc, (ctx.row > 0 ? ctx.tags.tableCell : ctx.tags.tableHead)(ctx, __trimBody(__children(ctx, children)))),
+    trow: ({ children }, ctx, acc) => __collect(acc, ctx.tags.tableRow(ctx, ctx.row, __children(ctx, children[0].children))),
+    ulitem: ({ children }, ctx, acc) => {
+        const body = [];
+        transformScope(children[2], ctx, body);
+        __collect(acc, [
+            "ulitem",
+            __listItemAttribs(children[1]),
+            ...__trimBody(body),
+        ]);
+    },
+    wikiref: (scope, ctx, acc) => {
+        const [id, label] = scope.result.split("|");
+        __collect(acc, ctx.tags.wikiref(ctx, id, label));
+    },
+});
+/**
+ * Takes an attributes object and optional metadata. If `meta` is not nullish,
+ * assigns it as `__meta` key in given object. Returns object.
+ *
+ * @param target
+ * @param meta
+ */
+export const withMeta = (target, meta) => {
+    if (meta != null)
+        target.__meta = meta;
+    return target;
 };
-const collectTD = (tag) => (ctx) => {
-    ctx.children.push(ctx.body);
-    ctx.container.push(tag(peek(ctx.stack).container.length, ctx.children));
-    return transition(ctx, 18 /* State.TABLE */);
+/**
+ * Takes a hiccup tree and extracts only the primitive body values (strings,
+ * numbers, booleans) and returns them as array.
+ *
+ * @param body
+ * @param acc
+ */
+export const extractBody = (body, acc = []) => {
+    for (let x of isPlainObject(body[1]) ? body.slice(2) : body) {
+        if (isPrimitive(x))
+            acc.push(x);
+        else if (isArray(x))
+            extractBody(x, acc);
+    }
+    return acc;
 };
-const collectTR = (tag) => (ctx) => {
-    const rows = peek(ctx.stack).container;
-    rows.push(tag(rows.length, ctx.container));
-    ctx.container = [];
-    return transition(ctx, 8 /* State.END_TABLE */);
+/** @internal */
+const __collect = (acc, x) => x != null && acc.push(x);
+/** @internal */
+const __children = (ctx, children, acc = []) => {
+    for (let c of children)
+        transformScope(c, ctx, acc);
+    return acc;
 };
-const collectTable = (tag) => (ctx) => {
-    const rows = ctx.stack.pop().container;
-    rows.splice(1, 1);
-    return [14 /* State.START */, [tag(rows)]];
+/** @internal */
+const __escape = (ctx, x) => ctx.opts.escape ? escapeEntities(x) : x;
+/** @internal */
+const __listItemAttribs = (scope) => scope?.id === "todo"
+    ? {
+        __todo: true,
+        __done: scope.result === "x",
+    }
+    : {};
+/** @internal */
+const __trimBody = (body) => {
+    if (body.length === 1 && isString(body[0]))
+        body[0] = body[0].trim();
+    return body;
 };
-const collectInline = (fn) => pop((ctx, body) => fn(ctx.body + body.trim()));
-const heading = (ctx, body) => ((ctx.hd = body.length), transition(ctx, 9 /* State.HEADING */));
-const matchInline = (id) => [
-    str("![", push(id, 10 /* State.IMG */)),
-    str(LINK_LABEL, push(id, 11 /* State.LINK */)),
-    str(STRIKE, push(id, 16 /* State.STRIKE */)),
-    str(STRONG, push(id, 17 /* State.STRONG */)),
-    str(EM, push(id, 3 /* State.EMPHASIS */)),
-    str(CODE, push(id, 1 /* State.CODE */)),
-];
-const matchLink = (result) => seq([
-    untilStr(LINK_LABEL_END, (ctx, body) => ((ctx.title = body), undefined)),
-    str(LINK_HREF),
-    untilStr(LINK_HREF_END, (ctx, body) => ((ctx.href = body), undefined)),
-], pop((ctx) => result(ctx.href, ctx.title)));
-const matchPara = (id, next) => alts([
-    ...matchInline(id),
-    str(NL, (ctx) => ((ctx.body += " "), [next])),
-], collect(id));
-const newPara = (ctx, buf) => ((ctx.body = buf.join("")), (ctx.children = []), [13 /* State.PARA */]);
-const newParaInline = (next) => (ctx) => {
-    ctx.stack.push({ id: 13 /* State.PARA */, children: [] });
-    return transition(ctx, next);
+/** @internal */
+const __columnAlignments = (children) => {
+    const align = [];
+    for (let c of children) {
+        const raw = c.children[0].children[0].result.trim();
+        const isLeft = raw.startsWith(":-") ? 1 : 0;
+        const isRight = raw.endsWith("-:") ? 2 : 0;
+        align.push((["default", "left", "right", "center"][isLeft | isRight]));
+    }
+    return align;
 };
-const newParaCode = (ctx, x) => ((ctx.body = x[1]),
-    ctx.stack.push({ id: 13 /* State.PARA */, children: [] }),
-    [1 /* State.CODE */]);
-const newList = (ctx) => ((ctx.container = []), transition(ctx, 12 /* State.LI */));
-const newTable = (ctx) => (ctx.stack.push({ id: 18 /* State.TABLE */, container: [] }),
-    (ctx.container = []),
-    transition(ctx, 18 /* State.TABLE */));
-/**
- * Main parser / transducer. Defines state map with the various Markdown
- * syntax matchers and state transition handlers. The returned parser
- * itself is only used in `index.ts`.
- */
-export const parse = (_tags) => {
-    const tags = { ...DEFAULT_TAGS, ..._tags };
-    return comp(filter((x) => x !== "\r"), fsm({
-        [14 /* State.START */]: alts([
-            whitespace(() => [14 /* State.START */]),
-            repeat(str(HD), 1, Infinity, heading),
-            str(BQUOTE, (ctx) => transition(ctx, 0 /* State.BLOCKQUOTE */)),
-            str(LI, newList),
-            alts([
-                seq([str(CODE), not(str(CODE))], newParaCode),
-                str(CODEBLOCK, () => [15 /* State.START_CODEBLOCK */]),
-            ], undefined, (_, next) => next),
-            seq([repeat(str(HR), 3, Infinity), str(NL)], () => [
-                14 /* State.START */,
-                [tags.hr()],
-            ]),
-            str(IMG, newParaInline(10 /* State.IMG */)),
-            str(LINK_LABEL, newParaInline(11 /* State.LINK */)),
-            str(STRONG, newParaInline(17 /* State.STRONG */)),
-            str(STRIKE, newParaInline(16 /* State.STRIKE */)),
-            str(EM, newParaInline(3 /* State.EMPHASIS */)),
-            str(TD, newTable),
-        ], newPara),
-        [13 /* State.PARA */]: matchPara(13 /* State.PARA */, 6 /* State.END_PARA */),
-        [6 /* State.END_PARA */]: alts([
-            ...matchInline(13 /* State.PARA */),
-            str(NL, collectAndRestart(tags.paragraph)),
-        ], collect(13 /* State.PARA */)),
-        [0 /* State.BLOCKQUOTE */]: matchPara(0 /* State.BLOCKQUOTE */, 4 /* State.END_BLOCKQUOTE */),
-        [4 /* State.END_BLOCKQUOTE */]: alts([
-            ...matchInline(0 /* State.BLOCKQUOTE */),
-            str(BQUOTE, collectBlockQuote),
-            str(NL, collectAndRestart(tags.blockquote)),
-        ], collect(0 /* State.BLOCKQUOTE */)),
-        [9 /* State.HEADING */]: matchPara(9 /* State.HEADING */, 7 /* State.END_HEADING */),
-        [7 /* State.END_HEADING */]: alts([
-            ...matchInline(9 /* State.HEADING */),
-            str(NL, collectHeading(tags.heading)),
-        ], collect(9 /* State.HEADING */)),
-        [15 /* State.START_CODEBLOCK */]: untilStr(NL, (ctx, lang) => ((ctx.lang = lang), [2 /* State.CODEBLOCK */])),
-        [2 /* State.CODEBLOCK */]: untilStr(CODEBLOCK_END, collectCodeBlock(tags.codeblock)),
-        [12 /* State.LI */]: matchPara(12 /* State.LI */, 5 /* State.END_LI */),
-        [5 /* State.END_LI */]: alts([
-            str(NL, collectList("ul", tags.list, tags.li)),
-            str(LI, (ctx) => (collectLi(ctx, tags.li),
-                transition(ctx, 12 /* State.LI */))),
-        ], collect(12 /* State.LI */)),
-        [11 /* State.LINK */]: matchLink(tags.link),
-        [10 /* State.IMG */]: matchLink(tags.img),
-        [17 /* State.STRONG */]: untilStr(STRONG, collectInline(tags.strong)),
-        [16 /* State.STRIKE */]: untilStr(STRIKE, collectInline(tags.strike)),
-        [3 /* State.EMPHASIS */]: untilStr(EM, collectInline(tags.em)),
-        [1 /* State.CODE */]: untilStr(CODE, collectInline(tags.code)),
-        [18 /* State.TABLE */]: alts([
-            ...matchInline(18 /* State.TABLE */),
-            str(TD, collectTD(tags.td)),
-            str(NL, collectTR(tags.tr)),
-        ], collect(18 /* State.TABLE */)),
-        [8 /* State.END_TABLE */]: alts([
-            str(NL, collectTable(tags.table)),
-            str(TD, () => [18 /* State.TABLE */]),
-        ]),
-    }, { stack: [] }, 14 /* State.START */));
+const __linkTitle = (src) => {
+    const match = /\s"(.+)"$/.exec(src);
+    return match ? [src.substring(0, match.index), match[1]] : [src, undefined];
 };