deplate 0.7.3

data/lib/deplate/mod/colored-log.rb

@@ -0,0 +1,17 @@
+# colored-log.rb
+# @Author:      Thomas Link (samul AT web.de)
+# @Website:     http://deplate.sf.net/
+# @License:     GPL (see http://www.gnu.org/licenses/gpl.txt)
+# @Created:     05-Mai-2005.
+# @Last Change: 23-Okt-2005.
+# @Revision:    0.2
+#
+# = Description
+# Enable colored log output
+
+class Deplate::Core
+    def self.user_setup(options)
+        enable_color(options)
+    end
+end
+

data/lib/deplate/mod/de.rb

@@ -0,0 +1,19 @@
+# mod-en.rb -- Standard messages
+# @Author:      Thomas Link (samul AT web.de)
+# @Website:     http://deplate.sf.net/
+# @License:     GPL (see http://www.gnu.org/licenses/gpl.txt)
+# @Created:     07-Mai-2004.
+# @Last Change: 23-Okt-2005.
+# @Revision:    0.79
+
+require 'deplate/messages'
+
+# German message catalog.
+class Deplate::Messages::De < Deplate::Messages
+    setup 'de'
+    def_prop 'lang', 'de'
+    def_prop 'latex_lang', 'german'
+    def_prop 'latex_lang_cmd', %{\\usepackage{german}}
+    load_catalog 'de.latin1'
+end
+

data/lib/deplate/mod/en.rb

@@ -0,0 +1,17 @@
+# mod-en.rb -- Standard messages
+# @Author:      Thomas Link (samul AT web.de)
+# @Website:     http://deplate.sf.net/
+# @License:     GPL (see http://www.gnu.org/licenses/gpl.txt)
+# @Created:     07-Mai-2004.
+# @Last Change: 23-Okt-2005.
+# @Revision:    0.44
+
+require 'deplate/messages'
+
+# Proxy class for english messages
+class Deplate::Messages::En < Deplate::Messages
+    setup 'en'
+    def_prop 'lang', 'en'
+    def_prop 'latex_lang', 'english'
+end
+

data/lib/deplate/mod/endnotes.rb

@@ -0,0 +1,60 @@
+# endnotes.rb -- display endnotes instead of footnotes
+# @Author:      Thomas Link (samul AT web.de)
+# @Website:     http://deplate.sf.net/
+# @License:     GPL (see http://www.gnu.org/licenses/gpl.txt)
+# @Created:     20-Aug-2004.
+# @Last Change: 23-Okt-2005.
+# @Revision:    0.85
+
+
+class Deplate::Formatter
+    def setup_endnotes
+        @deplate.set_slot_name(:footnotes, false)
+    end
+end
+
+class Deplate::Formatter::LaTeX
+    def prepare_endnotes
+        output_at(:pre, :mod_packages, "\\usepackage{endnotes}")
+        notes = plain_text(@deplate.msg("Notes"))
+        if notes != "Notes"
+            output_at(:pre, :mod_head, "\\renewcommand{\\notesname}{#{notes}}")
+        end
+        output_at(:pre, :mod_head, "\\let\\footnote=\\endnote")
+    end
+    
+    def format_list_of_endnotes(invoker)
+        join_blocks(["\\newpage", "\\begingroup", 
+                    "\\parindent 0pt", "\\parskip 2ex", 
+                    "\\def\\enotesize{\\normalsize}", "\\theendnotes", 
+                    "\\endgroup"])
+    end
+    alias format_list_of_footnotes format_list_of_endnotes
+end
+
+class Deplate::Formatter::HTML
+    def format_list_of_endnotes(invoker)
+        title = plain_text(@deplate.msg("Notes"))
+        acc   = []
+        acc << %{<div class="endnotes"><h1 class="endnotes">%s</h1>} % title
+        for l, f in @deplate.footnotes.sort {|a, b| a[1].elt.n <=> b[1].elt.n}
+            fn     = f.elt
+            idx    = fn.n
+            hclass = "sdfootnoteanc"
+            id     = "sdfootnote%d"    % idx
+            name   = "sdfootnote%danc" % idx
+            href   = Deplate::Macro::Footnote::FootnoteTemplate % idx
+            t      = [%{<div id="#{id}">},
+                %{<p class="sdendnote">}, 
+                %{<a class="sdendnotesym" name="#{href}" href="##{name}">#{idx}</a>},
+                %{#{fn.body}},
+                %{</p></div>}
+            ]
+            acc << t.join("\n")
+        end
+        acc << "</div>"
+        join_blocks(acc)
+    end
+    alias format_list_of_footnotes format_list_of_endnotes
+end
+

data/lib/deplate/mod/fr.rb

@@ -0,0 +1,46 @@
+# mod-en.rb -- Standard messages
+# @Author:      Thomas Link (samul AT web.de)
+# @Website:     http://deplate.sf.net/
+# @License:     GPL (see http://www.gnu.org/licenses/gpl.txt)
+# @Created:     07-Mai-2004.
+# @Last Change: 23-Okt-2005.
+# @Revision:    0.24
+
+# Description:
+# 
+# Usage:
+# 
+# TODO:
+# 
+# CHANGES:
+# 
+
+module Deplate::Messages #{{{1
+    LANG    = "de"
+    CATALOG = {
+            "Bibliography"      => "Bibliographie",
+            "Figure"            => "Abbildung",
+            "Footnotes"         => "Notes",
+            "Index"             => "Register",
+            "List of Figures"   => "Abbildungsverzeichnis",
+            "List of Tables"    => "Tabellenverzeichnis",
+            "p.\\ "             => "p.\\ ",
+            "Table of Contents" => "Table de Mati�re",
+            "Contents"          => "Inhalt", 
+            "Table"             => "Tabelle",
+        }
+end
+
+if Deplate::Formatter.matches?("latex")
+    module Deplate::Formatter #{{{1
+        class << self
+            alias :prepare_re_fr :prepare
+            def prepare(deplate)
+                prepare_re_fr deplate
+                deplate.add_at(:pre, :mod_packages, "\\usepackage[francais]{babel}")
+            end
+        end
+    end
+end
+
+# vim: ff=unix

data/lib/deplate/mod/html-asciimath.rb

@@ -0,0 +1,40 @@
+# html-asciimath.rb -- Support for asciimath.js
+# @Author:      Thomas Link (samul AT web.de)
+# @Website:     http://deplate.sf.net/
+# @License:     GPL (see http://www.gnu.org/licenses/gpl.txt)
+# @Created:     30-Dez-2004.
+# @Last Change: 23-Okt-2005.
+# @Revision:    0.43
+
+class Deplate::Formatter::HTML
+    def formatter_initialize_html_asciimath
+        if @deplate.variables["bodyOptions"]
+            @deplate.variables["bodyOptions"] += %{ onload="translate()"}
+        else
+            @deplate.variables["bodyOptions"] = %{onload="translate()"}
+        end
+        if @deplate.variables["htmlDefEtc"]
+            @deplate.variables["htmlDefEtc"] += %{ xmlns:mml="http://www.w3.org/1998/Math/MathML"}
+        else
+            @deplate.variables["htmlDefEtc"] = %{xmlns:mml="http://www.w3.org/1998/Math/MathML"}
+        end
+
+        @special_symbols["$"] = Proc.new{|e| e == :pre ? "$" : "\\$"}
+        @special_symbols["`"] = Proc.new{|e| e == :pre ? "`" : "\\`"}
+        build_plain_text_rx
+    end
+
+    def prepare_html_asciimath
+        output_at(:pre, :mod_head, <<END_OF_HTML
+<object id="mathplayer" classid="clsid:32F66A20-7614-11D4-BD11-00104BD3F987">
+</object><?import namespace="mml" implementation="#mathplayer"?>
+<script type="text/javascript" src="ASCIIMathML.js"></script>
+END_OF_HTML
+                 )
+    end
+
+    def format_math(invoker)
+        return invoker.text
+    end
+end
+

data/lib/deplate/mod/html-deplate-button.rb

@@ -0,0 +1,15 @@
+# html-deplate-button.rb
+# @Author:      Thomas Link (samul AT web.de)
+# @Website:     http://deplate.sf.net/
+# @License:     GPL (see http://www.gnu.org/licenses/gpl.txt)
+# @Created:     05-Sep-2004.
+# @Last Change: 23-Okt-2005.
+# @Revision:    0.23
+
+class Deplate::Formatter::HTML
+    def prepare_html_deplate_button
+        buttons = %{<a href="http://deplate.sourceforge.net"><img src="http://deplate.sourceforge.net/deplate-mini.png" border="0" alt="deplate Logo" /></a>}
+        output_at(:post, :html_pageicons, buttons) unless buttons.empty?
+    end
+end
+

data/lib/deplate/mod/html-headings-navbar.rb

@@ -0,0 +1,39 @@
+# html-headings-navbar.rb
+# @Author:      Thomas Link (samul AT web.de)
+# @Website:     http://deplate.sf.net/
+# @License:     GPL (see http://www.gnu.org/licenses/gpl.txt)
+# @Created:     15-Nov-2004.
+# @Last Change: 23-Okt-2005.
+# @Revision:    0.43
+# 
+# Description:
+# 
+# Usage:
+# 
+# TODO:
+# 
+# CHANGES:
+# 
+
+
+class Deplate::Formatter::HTML
+    def formatter_initialize_headings_navbar
+        def_advice("html-headings-navbar", :format_heading,
+                  :wrap => Proc.new do |agent, rv, invoker, *rest|
+                    max_level = @deplate.variables["headingsNavbarMaxLevel"]
+                    if max_level
+                        max_level = max_level.to_i
+                    else
+                        max_level = 1
+                    end
+                    if invoker.level <= max_level
+                        nb = @deplate.invoke_service("navigation_bar", {:invoker => invoker, 'noNavButtons' => true})
+                        join_blocks([nb, rv])
+                    else
+                        rv
+                    end
+                  end
+                 )
+    end
+end
+

data/lib/deplate/mod/html-obfuscate-email.rb

@@ -0,0 +1,47 @@
+# html-obfuscate-email.rb
+# @Author:      Thomas Link (samul AT web.de)
+# @Website:     http://deplate.sf.net/
+# @License:     GPL (see http://www.gnu.org/licenses/gpl.txt)
+# @Created:     13-Jul-2005.
+# @Last Change: 27-Okt-2005.
+# @Revision:    0.33
+
+class Deplate::Formatter::HTML
+    alias :format_url_re_js_obfuscate_email :format_url
+    
+    def format_url(invoker, name, dest, anchor, literal=false)
+        rv = format_url_re_js_obfuscate_email(invoker, name, dest, anchor, literal)
+        if dest =~ /^mailto:/
+            encoded = rv.unpack('C' * rv.size).join(',')
+            dest0   = dest.sub(/^mailto:/, '')
+            significant_name = (name != dest and name != dest0)
+            if @deplate.variables['noObfuscatedNoscript']
+                noscript = significant_name ? name : ''
+            else
+                at  = @deplate.variables['obfuscatedNoscriptAt'] || ' AT '
+                dot = @deplate.variables['obfuscatedNoscriptDot'] || ' DOT '
+                if significant_name
+                    noscript = %{#{name} (#{dest})}
+                else
+                    noscript = name
+                end
+                noscript.gsub!(/(mailto:|[@.])/) do |t|
+                    case t
+                    when '@'
+                        at
+                    when '.'
+                        dot
+                    when 'mailto:'
+                        ''
+                    end
+                end
+            end
+            js = %{<script type="text/javascript" language="javascript"><!--
+document.write(String.fromCharCode(#{encoded}))
+--></script><noscript>#{noscript}</noscript>}
+        else
+            rv
+        end
+    end
+end
+

data/lib/deplate/mod/html-sidebar.rb

@@ -0,0 +1,232 @@
+# mod-html-sidebar.rb -- A popup-mini-toc for html output
+# @Author:      Thomas Link (samul AT web.de)
+# @Website:     http://deplate.sf.net/
+# @License:     GPL (see http://www.gnu.org/licenses/gpl.txt)
+# @Created:     19-Jul-2004.
+# @Last Change: 23-Okt-2005.
+# @Revision:    0.50
+# 
+# Description:
+# 
+# Usage:
+# 
+# TODO:
+# 
+# CHANGES:
+# 
+
+class Deplate::Formatter::HTML
+    def prepare_html_sidebar
+        opt0  = @deplate.variables["bodyOptions"]
+        @deplate.variables["navGif"] ||= "navigation_back.gif"
+        optSB = %{onload="Event_init()" background="#{@deplate.variables["navGif"]}"}
+        @deplate.variables["bodyOptions"] = opt0 ? "%s %s" % [opt0, optSB] : optSB
+        
+        mouseThresholdIn  = @deplate.variables["mouseThresholdIn"]  || 420
+        mouseThresholdOut = @deplate.variables["mouseThresholdOut"] || 270
+        
+        html = <<EndOfHTML
+<!-- Based on code from selfhtml: http://selfhtml.teamone.de/ -->
+<!-- dhtml.js: DHTML-Bibliothek (SelfHTML -> DHTML -> Allgemeine DHTML-Bibliothek) -->
+<script type="text/javascript">
+<!--
+var DHTML = 0, DOM = 0, MS = 0, NS = 0, OP = 0;
+
+function DHTML_init() {
+
+ if (window.opera) {
+     OP = 1;
+ }
+ if(document.getElementById) {
+   DHTML = 1;
+   DOM = 1;
+ }
+ if(document.all && !OP) {
+   DHTML = 1;
+   MS = 1;
+ }
+if(document.layers && !OP) {
+   DHTML = 1;
+   NS = 1;
+ }
+}
+
+function getElem(p1,p2,p3) {
+ var Elem;
+ if(DOM) {
+   if(p1.toLowerCase()=="id") {
+     if (typeof document.getElementById(p2) == "object")
+     Elem = document.getElementById(p2);
+     else Elem = void(0);
+     return(Elem);
+   }
+   else if(p1.toLowerCase()=="name") {
+     if (typeof document.getElementsByName(p2) == "object")
+     Elem = document.getElementsByName(p2)[p3];
+     else Elem = void(0);
+     return(Elem);
+   }
+   else if(p1.toLowerCase()=="tagname") {
+     if (typeof document.getElementsByTagName(p2) == "object" ||
+        (OP && typeof document.getElementsByTagName(p2) == "function"))
+     Elem = document.getElementsByTagName(p2)[p3];
+     else Elem = void(0);
+     return(Elem);
+   }
+   else return void(0);
+ }
+ else if(MS) {
+   if(p1.toLowerCase()=="id") {
+     if (typeof document.all[p2] == "object")
+     Elem = document.all[p2];
+     else Elem = void(0);
+     return(Elem);
+   }
+   else if(p1.toLowerCase()=="tagname") {
+     if (typeof document.all.tags(p2) == "object")
+     Elem = document.all.tags(p2)[p3];
+     else Elem = void(0);
+     return(Elem);
+   }
+   else if(p1.toLowerCase()=="name") {
+     if (typeof document[p2] == "object")
+     Elem = document[p2];
+     else Elem = void(0);
+     return(Elem);
+   }
+   else return void(0);
+ }
+ else if(NS) {
+   if(p1.toLowerCase()=="id" || p1.toLowerCase()=="name") {
+   if (typeof document[p2] == "object")
+     Elem = document[p2];
+     else Elem = void(0);
+     return(Elem);
+   }
+   else if(p1.toLowerCase()=="index") {
+    if (typeof document.layers[p2] == "object")
+     Elem = document.layers[p2];
+    else Elem = void(0);
+     return(Elem);
+   }
+   else return void(0);
+ }
+}
+
+function getCont(p1,p2,p3) {
+   var Cont;
+   if(DOM && getElem(p1,p2,p3) && getElem(p1,p2,p3).firstChild) {
+     if(getElem(p1,p2,p3).firstChild.nodeType == 3)
+       Cont = getElem(p1,p2,p3).firstChild.nodeValue;
+     else
+       Cont = "";
+     return(Cont);
+   }
+   else if(MS && getElem(p1,p2,p3)) {
+     Cont = getElem(p1,p2,p3).innerText;
+     return(Cont);
+   }
+   else return void(0);
+}
+
+function getAttr(p1,p2,p3,p4) {
+   var Attr;
+   if((DOM || MS) && getElem(p1,p2,p3)) {
+     Attr = getElem(p1,p2,p3).getAttribute(p4);
+     return(Attr);
+   }
+   else if (NS && getElem(p1,p2)) {
+       if (typeof getElem(p1,p2)[p3] == "object")
+        Attr=getElem(p1,p2)[p3][p4]
+       else
+        Attr=getElem(p1,p2)[p4]
+         return Attr;
+       }
+   else return void(0);
+}
+
+function setCont(p1,p2,p3,p4) {
+   if(DOM && getElem(p1,p2,p3) && getElem(p1,p2,p3).firstChild)
+     getElem(p1,p2,p3).firstChild.nodeValue = p4;
+   else if(MS && getElem(p1,p2,p3))
+     getElem(p1,p2,p3).innerText = p4;
+   else if(NS && getElem(p1,p2,p3)) {
+     getElem(p1,p2,p3).document.open();
+     getElem(p1,p2,p3).document.write(p4);
+     getElem(p1,p2,p3).document.close();
+   }
+}
+
+DHTML_init();
+
+function Menue() {
+    if(DOM) {
+        if(MS)
+            getElem("id","Contents",null).style.top = document.body.scrollTop + 50;
+        else
+            getElem("id","Contents",null).style.top = window.pageYOffset + 50;
+    }
+    if(DOM || MS) {
+        if (!DOM) getElem("id","Contents",null).style.top = document.body.scrollTop + 50;
+        if (OP) getElem("id","ContentsBlock",null).style.pixelTop = NavLinksPos;
+            getElem("id","Contents",null).style.visibility = "visible";
+        }
+    else if(NS) {
+        getElem("id","Contents",null).top = window.pageYOffset + 50;
+        getElem("id","Contents",null).visibility = "show";
+    }
+}
+
+function noMenue() {
+    if(DOM || MS)
+        getElem("id","Contents",null).style.visibility = "hidden";
+    if(NS)
+        getElem("id","Contents",null).visibility = "hide";
+}
+
+function handleMove(ev) {
+    if(!MS) {
+        Event = ev;
+        if(Event.screenX < #{mouseThresholdOut})
+            Menue();
+        else if(Event.screenX > #{mouseThresholdIn})
+            noMenue();
+    }
+}
+    
+function MShandleMove() {
+    if(MS) {
+        if(window.event.clientX < #{mouseThresholdOut})
+            Menue();
+        else if(window.event.clientX > #{mouseThresholdIn})
+            noMenue();
+    }
+}
+
+function Event_init() {
+    if(DOM && !MS && !OP) {
+        getElem("tagname","body",0).addEventListener("mousemove", handleMove, true);
+    }
+    if(NS) {
+        document.captureEvents(Event.MOUSEMOVE);
+        document.onmousemove=handleMove;
+    }
+    if (DOM && OP) {
+        document.onmousemove=handleMove;
+        NavLinksPos=42; //Position des Bereiches NavLinks
+        getElem("id","ContentsBlock",null).style.pixelTop=NavLinksPos;
+    }
+    if (MS) getElem("tagname","body",0).onmousemove=MShandleMove;
+}
+//-->
+</script>
+EndOfHTML
+        output_at(:pre, :javascript, html)
+        text = "minitoc"
+        args = {"type"=>"pre", "slot"=>"pre_bottom"}
+        minitoc = Deplate::Command::LIST.new(@deplate, nil, text, nil, args, "LIST")
+        minitoc = minitoc.finish.process
+        @deplate.accum_elements.unshift(minitoc)
+    end
+end
+