#!/usr/bin/env luajit
local page, entry_list = {}, {}

local eval = function (state, action_list)
    for _, action in ipairs (action_list) do
        action (state)
    end
end

title = function (title)
    page.title = title
end

description = function (desc)
    page.description = desc
end

game = function (details)
    table.insert (entry_list, function (page)
        local entry = {}
        eval (entry, details)
        table.insert (page, entry)
    end)
end

name = function (name)
    return function (entry)
        entry.name = name
    end
end

id = function (id)
    return function (entry)
        entry.id = id
    end
end

released_on = function (date)
    return function (entry)
        entry.date = date
    end
end

cover = function (file)
    return function (entry)
        entry.cover = file
    end
end

mature_themes = function (entry)
    entry.mature_themes = true
end

flavor_text = function (text)
    return function (entry)
        entry.flavor_text = text
    end
end

content_description = function (desc)
    return function (entry)
        entry.content_description = desc
    end
end

credits = function (credits)
    return function (entry)
        entry.credits = {}
        eval (entry.credits, credits)
    end
end

downloads = function (downloads)
    return function (entry)
        entry.downloads = {}
        eval (entry.downloads, downloads)
    end
end

link = {
    to = function (to)
        return {
            says = function (says)
                return function (list)
                    table.insert (list, {says = says, to = to})
                end
            end
        }
    end
}

require "entries"
eval (page, entry_list)


local html_shell = [[
<!DOCTYPE html>
<html lang="en-US">
  <head>
    <meta charset="utf-8">
    <title>%s</title>
    <link href="style.css" rel="stylesheet" />
  </head>
  <body>
    <main>
        <h1>%s</h1>
        <p>%s</p>
        <p class="small">%s</p>
        <hr/>
        %s
    </main>
  </body>
</html>
]]

local html_entry = [[
    <h2 id="%s"><a href="#%s">&amp;</a> %s <a href="#%s">&amp;</a></h2>
    <h3>%s</h3>
    <img src="%s"/>
    <p>%s</p>
    <p><em>%s</em></p>
    <p>%s</p>
    <h4>credits</h4>
    <div>%s</div>
]]

local html_credit = [[<p class="credit">🐑 <a href="%s">%s</a> 🐑</p>]]

local html_link = [[<a href="%s">%s</a>]]

local to_html_downloads = function (downloads)
    local html_downloads = {}
    for _, link in ipairs (downloads) do
        table.insert (html_downloads, html_link :format (link.to, link.says))
    end
    return table.concat (html_downloads, " / ")
end

local to_html_credits = function (credits)
    local html_credits = {}
    for _, link in ipairs (credits) do
        table.insert (html_credits, html_credit :format (link.to, link.says))
    end
    return table.concat (html_credits, "\n")
end

local to_html_entry_name_list = function (page)
    local html_entry_name_list = {}
    for _, entry in ipairs (page) do
        table.insert (html_entry_name_list, html_link :format ("#" .. entry.id, entry.name))
    end

    return table.concat (html_entry_name_list, " / ")
end

local to_html = function (page)
    local html_entry_list = {}
    for _, entry in ipairs (page) do
        local html = html_entry :format (
            entry.id, entry.id, entry.name, entry.id,
            entry.date,
            entry.cover,
            entry.flavor_text,
            entry.content_description,
            to_html_downloads (entry.downloads or {}),
            to_html_credits (entry.credits or {})
        )
        table.insert (html_entry_list, html)
    end
    return html_shell :format (
        page.title,
        page.title,
        page.description,
        to_html_entry_name_list (page),
        table.concat (html_entry_list, "<hr/>\n")
    )
end

local filter_mature_themes = function (page)
   local filtered_page = {
       title = page.title ;
       description = page.description ;
   }
   for _, entry in ipairs (page) do
       if not entry.mature_themes then
           table.insert (filtered_page, entry)
       end
   end
   return filtered_page
end

local write_page = function (info)
    local html = to_html (info.page)
    local file = io.open (info.file, "w+")
    file:write (html)
    file:close ()
end

local atom_shell = [[
<?xml version="1.0" encoding="utf-8"?>
<feed xmlns="http://www.w3.org/2005/Atom">
    <title>games by and</title>
    <subtitle>
        Games made by and
    </subtitle>
    <link href="https://www.sheeeeeeeep.art/games/%s" rel="self"/>
    <link href="https://www.sheeeeeeeep.art/games"/>
    <id>https://www.sheeeeeeeep.art/games/%s</id>
    <updated>%sT00:00:00Z</updated>

%s
</feed>
]]

local atom_entry = [[
    <entry>
        <title>%s</title>
        <link href="https://www.sheeeeeeeep.art/games/%s#%s"/>
        <id>https://www.sheeeeeeeep.art/games/%s#%s</id>
        <updated>%sT00:00:00Z</updated>
        <author>
            <name>and NULL</name>
        </author>
    </entry>
]]

local write_atom = function (info)
    local atom_entries = {}
    for _, entry in ipairs (info.page) do
        table.insert (atom_entries,
            atom_entry:format (
                entry.name,
                info.section, entry.id,
                info.section, entry.id,
                entry.date
            )
        )
    end
    local xml = atom_shell:format (
        info.file,
        info.section,
        os.date ("%Y-%m-%d"),
        table.concat (atom_entries, "\n")
    )

    local file = io.open (info.file, "w+")
    file:write (xml)
    file:close ()
end

table.sort (page, function (a, b)
    return a.date > b.date
end)

local filtered_page = filter_mature_themes (page)

write_page {
    page = page ;
    file = "games.html" ;
}

write_page {
    page = filtered_page ;
    file = "games-filtered.html" ;
}

write_atom {
    section = "games.html" ;
    page = page ;
    file = "games.atom.xml" ;
}

write_atom {
    section = "games-filtered.html" ;
    page = filtered_page ;
    file = "games-filtered.atom.xml" ;
}