fennel: add single-quote prefix

[lisp-parkour.git] / parser / scheme / init.lua

require'lpeg'
local lpeg = lpeg
local P, S, R = lpeg.P, lpeg.S, lpeg.R

-- TODO: add more prefixes
local macro_prefix =
        P'#' * (
                S'us' * ('8' + '16' + '32' + '64') --[[+ P'f' * ('32' + '64')]] +
                R'09'^0 * 'vu8' +
                R'09'^1 +
                ';') +
        P'#'^-1 * (P',@' + S",`'") +
        '#'

local opposite = {
        ["("] = ")",
        [")"] = "(",
        ["{"] = "}",
        ["}"] = "{",
        ["["] = "]",
        ["]"] = "[",
        ['"'] = '"',
        ["|"] = "|",
        [";"]  = "\n",
        ["\n"]  = ";",
        ["#|"] = "|#",
}

return {
        prefix = macro_prefix,
        opposite = opposite,
}