module(..., package.seeall)

require("markdown")
require("xssfilter")
require("diff")

local split = require("sputnik.util").split
local WIKI_LINK = [[<a href='$url'>$title</a>]]

function wikify_link(wikilink, sputnik)
   -- [[Page_Name.edit#A1|Edit the Page]]
   local title, page_name
   sputnik.logger:debug(wikilink)
   wikilink, title   = split(wikilink, "|")
   wikilink, anchor  = split(wikilink, "#")
   page_name, action = split(wikilink, "%.")

   local url, new_title = sputnik:make_url(page_name, action, {}, anchor)
   return cosmo.f(WIKI_LINK){  
             title = string.gsub(title or new_title or page_name, "_", "\_"),
             url = url             
          }
end

local util = require("sputnik.util")

function new(sputnik) 
   return {
       quote = function(text)
           return "> " .. text:gsub("\n", "\n> ")
       end,
       transform = function(text, node)
                     local function dolink(wikilink)
                        return wikify_link(wikilink, sputnik)
                     end
                     local buffer = ""
                     for line in string.gmatch("\n"..text, "(\n[^\n]*)") do
                        if line:len() < 5 or line:sub(1,5)~="\n    " then
                           buffer = buffer..string.gsub(line, "%[%[([^%]]*)%]%]", dolink)
                        else
                           buffer = buffer..line
                        end
                     end
                     local filter = sputnik.xssfilter or xssfilter.new()
                     filter.generic_attributes.style = "."
                     filter.allowed_tags.a.css_class = "."
                     -- override values with those in node.xssfilter_allowed_tags
                     if node then
                        for key, value in pairs(node.xssfilter_allowed_tags) do
                           filter.allowed_tags[key] = value
                        end
                     end

                     --[[local raw_html = ""
                     for _, chunk in ipairs(diff.split(buffer, "\n\n%<[^%>\n]*%>\n\n")) do
                        print("{{"..chunk.."}}")
                        local tag, rest = chunk:match("^(%<[^%>\n]*%>)\n%s*\n(.*)")
                        print(tag, rest)
                        if not tag then
                           rest = chunk
                        end
                        raw_html = raw_html.."\n\n"..(tag or "").."\n\n"..markdown(rest or "")                        
                     end]]

                     local raw_html = markdown(buffer)

                     local html, message = filter:filter(raw_html)
                     if html then
                        return html
                     elseif message then
                        return "<pre>"..message.."</pre>"
                     end
                  end
   }
end