computable-pandoc/src/literate.lua

----------------------------------- LITERATE ----------------------------------

-- Variable for all literate stuff
local lit = {}

-- Ordered collection of fn call, fn declarations or literal elements
lit.collection = {}

-- Grammars
lit.g = {}

-- Lexical elements
lit.newline = lpeg.P"\r"^-1 * lpeg.P"\n"
lit.space = lpeg.S" \t"
lit.anyspace = lpeg.S" \t\r\n"
lit.spot = (1 - lit.anyspace)
lit.any = (lit.spot + lit.space)
lit.id = lpeg.R("az", "AZ") * lpeg.R("az", "AZ", "09")^0
lit.ref = lpeg.P"#" * lit.id  
lit.yaml_header = lit.space^0 * lpeg.P"---" * lit.space^0 * lit.newline
lit.yaml_body = -lpeg.P"." * lit.any^0 * lit.newline
lit.yaml_footer = lit.space^0 * lpeg.P"..." * lit.space^0 * lit.newline


-- Blocks grammar
lit.g.block = lpeg.P {
  "Block";
  Block = lpeg.C(lpeg.V"YAML" * lpeg.V"Code");
  YAML = lit.yaml_header * lit.yaml_body^0 * lit.yaml_footer;
  Code = (lit.any + lit.newline)^0;
}

-- Evals Lisp code
--[[
function lit.eval(code)
  local is_passed, out = pcall (
    function () return fennel.eval(code) end,
    function (e) return e end
  )
  local lua = ""
  local out = tostring(out)
  local preview = out:gsub("\n.*", "")
  if is_passed then
    lua = fennel.compileString(code)
  end
  return {is_passed = is_passed, preview = preview, out = out, lua = lua}
end
]]--

function lit.parse_blocks(codeblock)
  parsed = lpeg.match(lit.g.block, codeblock.text)
  if codeblock.text ~= parsed then
    print(codeblock.text)
    print(parsed)
  end
  return codeblock
end

function lit.parse_inserts(code)
  -- print(code)
  return code
end

return lit