-- Makes bundle and min distribution

-- Adds local luarocks modules
local optpath = "./opt/share/lua/5.4/"
package.path = optpath .. "?.lua;" .. package.path

-- Adds Lua custom extensions
require "dog"

-- Makes distribution
local function make_dist(name, bundle)

  -- Chomps file
  local function chomp(str)
    local without = without or false
    str = string.readtext(str):strip()
    return "\n" .. str .. "\n"
  end

  -- Variables
  local bundle = (bundle == nil or bundle == true)
  local dist = pandoc.path.join({"dist", name})
  local ext = chomp(optpath .. "dog.lua")
  local fnl = chomp(optpath .. "fennel.lua")
  local fnl = fnl:gsub("\nreturn mod\n", "\nlocal fnl = mod\n")
  local pan = chomp("src/pandoc.lua")
  local nat = chomp("src/natural.lua"):gsub("\nreturn nat\n", "")
  local msg = ("src/locale.yaml"):readtext()
  local lit = chomp("src/literate.lua"):gsub("\nreturn lit\n", "")
  local lit = lit:gsub("#locale%(%)", msg)
  local license = string.strip([[
Computable Pandoc:
  (C) 2023 perro hi@perrotuerto.blog
  License: GPLv3 https://git.cuates.net/perro/computable-pandoc/src/branch/no-masters/LICENSE.txt
  Source: https://git.cuates.net/perro/computable-pandoc
  ]])
  local extralicense = string.strip([[
Computable Pandoc & Fennel Bundle:
  A Pandoc filter for literate and natural programming
]] .. license .. "\n" .. [[
Fennel:
  (C) 2016-2023 Calvin Rose and contributors
  License: MIT License https://git.sr.ht/~technomancy/fennel/tree/main/item/LICENSE
  Source: https://sr.ht/~technomancy/fennel or https://github.com/bakpakin/Fennel/issues
  Website: https://fennel-lang.org
  ]])

  -- Bundles Fennel and Computable Pandoc
  -- TODO: lit and nat should be rocks and, therefore, should be:
  --  added only in bundle
  --  use 'require' in minimal
  file = io.open(dist, "w")
  if bundle then
    file:write("--[[\n", extralicense, "\n]]--\n")
    file:write(fnl, ext)
  else
    file:write("--[[\n", license, "\n]]--\n")
    file:write('\nrequire "fennel"\nrequire "dog"\n')
  end
  file:write(nat, lit, pan)
  file:close()
end

make_dist("lin.bundle.lua")
make_dist("lin.min.lua", false)