# All files in the 'lib' directory will be loaded
# before nanoc starts compiling.

def allExceptCode( f, content )
    # Beware the behaviour will change if you add
    # parenthesis (groups) to the regexp!
    regexp=/<code[^>]*>.*?<\/code>|<pre[^>]*>.*?<\/pre>/m
    tmp=""
    mem=[]
    content.scan(regexp).each do |c|
        mem <<= c
    end
    i=0
    content.split(regexp).each do |x|
        tmp <<= send(f,x) 
        if not mem[i].nil? 
            tmp <<= mem[i]
            i+=1
        end
    end
    tmp
end

module Nanoc3::Filters
    class MathJaxKramdownRepair < Nanoc3::Filter
        identifiers :math_repair

        def description(content)
            content.gsub(/<div class="math">(.+?)<\/div>/m) do
                %{$$ #{$1} $$}
            end.gsub(/<script type="math\/tex">(.+?)<\/script>/m) do
                %{$$ #{$1} $$}
            end
        end

        def run(content, params={})
            allExceptCode( :description , content )
        end
    end

    class Description < Nanoc3::Filter
        identifiers :description

        def description(content)
            content.gsub(/^\s*<desc( [^>]*)?>(.+?)<\/desc>/m) do
                n=0
                if $1 then
                    summary=$1
                    summary.slice!(0)
                else
                    summary="no description"
                end
                '<div><table class="description" summary="'+summary+'">'+$2.gsub(/([^:]+):(.+?)::/m) do
                    n+=1
                    if n % 2 == 0
                        sombre=' class="assombris10"'
                    else
                        sombre=' class="assombris20"'
                    end
                    '<tr'+sombre+'><td class="definitionCell">'+$1+'</td><td class="valueCell">'+$2+'</td></tr>'
                end+'</table></div>'
            end
        end

        def run(content, params={})
            allExceptCode( :description , content )
        end
    end

    class FrenchSpace < Nanoc3::Filter
        identifiers :frenchspace
        def ameliorate(content)
            content.gsub(/ ([:;!?]|&eq;|&ne;)/) { "&nbsp;"+$1 }
        end
        def run(content, params={})
            allExceptCode( :ameliorate, content )
        end
    end

    class Footnotes < Nanoc3::Filter
        identifiers :footnotes
        def hr_before_footnote(content)
            content.gsub(/<div class="footnotes">/) { %{<hr/>#{$&}} }
        end
        def run(content, params={})
            allExceptCode( :hr_before_footnote, content )
        end
    end

    class FirstHierarchy < Nanoc3::Filter
        identifiers :firsthi
        def run(content, params={})
            content.gsub(/\A(\s|\n)*<h[1-4]/m)do
                $& + ' class="first"'
            end.gsub(/<div[^>]*class="corps"[^>]*>(\s)*<h[1-4]/m) do
                $& + ' class="first"'
            end.gsub(/class="first" class="first"/) do
                'class="first"'
            end
        end
    end

    class YTypography < Nanoc3::Filter
        identifiers :ytypo
        def ytypofunc(content)
            content.gsub(/<sc>(.*?)<\/sc>/m) do # small caps
               %{<span class="sc">}+$1+%{</span>}
            end.gsub(/''(.*?)''/m)do # use '' to code
               %{<code>}+$1+%{</code>}
            end.gsub(/\(c\)/) do # (c) to small ©
                %{<small>&copy;</small>}
            end.gsub(/\(r\)/) do # (r) to small ®
                %{<small>&reg;</small>}
            end.gsub(/-(&gt;|>)/) do # -> to →
                %{&rarr;}
            end.gsub(/(&lt;|<)-/) do # <- to ←
                %{&larr;}
            end.gsub(/1st/) do # numbering
                %{1<sup>st</sup>}
            end.gsub(/1(ere?)/) do
                %{1<sup>#{$1}</sup>}
            end.gsub(/2nd/) do
                %{2<sup>nd</sup>}
            end.gsub(/3rd/) do
                %{3<sup>rd</sup>}
            end.gsub(/(\d+)th/) do
                %{#{$1}<sup>th</sup>}
            end.gsub(/([2-9])ème/) do
                %{#{$1}<sup>ème</sup>}
            end.gsub(%{<em>&amp;</em>}) do # nicer &
                %{<em class="pala">&amp;</em>}
            end
        end
        def run(content, params={})
            allExceptCode( :ytypofunc, content )
        end
    end

    class YAbbreviations < Nanoc3::Filter
        identifiers :yabbreviations
        def makeabbreviations(text)
            { 
                    'WebDav' => 'Web-based Distributed Authoring and Versionning',
                    'cms' => 'Content Management System',
                    'xml' => 'eXtended Markup Language',
            }.each do |keyword,abbreviation|
                text=text.gsub(/\b#{keyword}\b/i) do
                   %{<abbr title="#{abbreviation}"><span class="sc">#{keyword}</span></abbr>}
                end
            end
            return text
        end

        def run(content, params={})
            allExceptCode(:makeabbreviations, content )
        end
    end

    class MultiCorps < Nanoc3::Filter
        identifiers :multicorps
        def run(content, params={})
            content.gsub(/^.*newcorps.*$/) do
                %{\n</div>\n\n<div class="corps">\n}
            end.gsub(/^.*begindiv\((.*)\).*$/) do
                %{\n<div class="#{$1}">\n}
            end.gsub(/^.*enddiv.*$/) do
                %{\n</div>\n}
            end
        end
    end

    class BlogImage < Nanoc3::Filter
        identifiers :blogimage
        def run(content, params={})
            content.gsub(/(left)?blogimage\s*\(\s*"([^"]*)"\s*,\s*"([^"]*)"\s*(,\s*"([^"]*)"\s*)?\)/) do
                position=$1
                filename=$2
                title=$3
                cssclass=$5
                # DEBUG # puts "MATCHED: #{$&}"
                # DEBUG # puts "postiion: #{position}"
                # DEBUG # puts "filename: #{filename}"
                # DEBUG # puts "title: #{title}"
                # DEBUG # puts "cssclass: #{cssclass}"
                # DEBUG # puts "====================="
                blogimage(filename,title,%{#{cssclass} #{position}})
            end.gsub(/blogfigure\s*\(\s*"([^"]*)"\s*,\s*"([^"]*)"\s*(,\s*"([^"]*)"\s*)?\)/) do
                filename=$1
                title=$2
                cssclass=$4
                blogfigure(filename,title,cssclass)
            end
        end
    end
end

def block(title, url, text, position="left")
    return %{<div class="block #{position}">
        <h3>
            <a href="#{url}"> #{title} 
                <span class="nicer">»</span> 
            </a>
        </h3>
        <p>
        #{text}
        </p>
    </div>}
end

def startTodo
%{<div style="background-color: #800; color: #FFF; font-weight: bold; border: 2px solid #300; box-shadow: 0 0 60px #300 inset;padding-left: 2em;">
<h2 style="margin: 0 auto; text-align: center">TODO</h2>}
end

def endTodo
%{</div>}
end