green_shoes 0.189.0 → 0.198.0

data/lib/ext/hpricot/xchar.rb

@@ -0,0 +1,94 @@
+#!/usr/bin/env ruby
+
+# The XChar library is provided courtesy of Sam Ruby (See
+# http://intertwingly.net/stories/2005/09/28/xchar.rb)
+
+# --------------------------------------------------------------------
+
+######################################################################
+module Hpricot
+
+  ####################################################################
+  # XML Character converter, from Sam Ruby:
+  # (see http://intertwingly.net/stories/2005/09/28/xchar.rb). 
+  #
+  module XChar # :nodoc:
+
+    # See
+    # http://intertwingly.net/stories/2004/04/14/i18n.html#CleaningWindows
+    # for details.
+    CP1252 = {			# :nodoc:
+      128 => 8364,		# euro sign
+      130 => 8218,		# single low-9 quotation mark
+      131 =>  402,		# latin small letter f with hook
+      132 => 8222,		# double low-9 quotation mark
+      133 => 8230,		# horizontal ellipsis
+      134 => 8224,		# dagger
+      135 => 8225,		# double dagger
+      136 =>  710,		# modifier letter circumflex accent
+      137 => 8240,		# per mille sign
+      138 =>  352,		# latin capital letter s with caron
+      139 => 8249,		# single left-pointing angle quotation mark
+      140 =>  338,		# latin capital ligature oe
+      142 =>  381,		# latin capital letter z with caron
+      145 => 8216,		# left single quotation mark
+      146 => 8217,		# right single quotation mark
+      147 => 8220,		# left double quotation mark
+      148 => 8221,		# right double quotation mark
+      149 => 8226,		# bullet
+      150 => 8211,		# en dash
+      151 => 8212,		# em dash
+      152 =>  732,		# small tilde
+      153 => 8482,		# trade mark sign
+      154 =>  353,		# latin small letter s with caron
+      155 => 8250,		# single right-pointing angle quotation mark
+      156 =>  339,		# latin small ligature oe
+      158 =>  382,		# latin small letter z with caron
+      159 =>  376,		# latin capital letter y with diaeresis
+    }
+
+    # See http://www.w3.org/TR/REC-xml/#dt-chardata for details.
+    PREDEFINED = {
+      34 => '"', # quotation mark
+      38 => '&',  # ampersand
+      60 => '<',   # left angle bracket
+      62 => '>'    # right angle bracket
+    }
+    PREDEFINED_U = PREDEFINED.inject({}) { |hsh, (k, v)| hsh[v] = k; hsh }
+
+    # See http://www.w3.org/TR/REC-xml/#charsets for details.
+    VALID = [
+      0x9, 0xA, 0xD,
+      (0x20..0xD7FF), 
+      (0xE000..0xFFFD),
+      (0x10000..0x10FFFF)
+    ]
+  end
+
+  class << self
+    # XML escaped version of chr
+    def xchr(str)
+      n = XChar::CP1252[str] || str
+      case n when *XChar::VALID
+        XChar::PREDEFINED[n] or (n<128 ? n.chr : "&##{n};")
+      else
+        '*'
+      end
+    end
+
+    # XML escaped version of to_s
+    def xs(str)
+      str.to_s.unpack('U*').map {|n| xchr(n)}.join # ASCII, UTF-8
+    rescue
+      str.to_s.unpack('C*').map {|n| xchr(n)}.join # ISO-8859-1, WIN-1252
+    end
+
+    # XML unescape
+    def uxs(str)
+      str.to_s.
+          gsub(/\&\w+;/) { |x| (XChar::PREDEFINED_U[x] || ??).chr }.
+          gsub(/\&\#(\d+);/) { [$1.to_i].pack("U*") }
+    end
+  end
+end
+

data/lib/green_shoes.rb

@@ -45,3 +45,4 @@ require_relative 'shoes/manual'
 autoload :ChipMunk, File.join(Shoes::DIR, 'ext/chipmunk')
 autoload :Bloops, File.join(Shoes::DIR, 'ext/bloops')
 autoload :Projector, File.join(Shoes::DIR, 'ext/projector')
+autoload :Hpricot, File.join(Shoes::DIR, 'ext/hpricot')

data/lib/shoes/app.rb

@@ -237,7 +237,7 @@ class Shoes
       end if block_given?
 
       @canvas.put eb, args[:left], args[:top]
-      eb.show_now
+      eb.show_all
       args[:real], args[:app], args[:textview] = eb, self, tv
       @_eb = EditBox.new args
     end
@@ -520,6 +520,22 @@ class Shoes
       shapebase Star, args
     end
 
+    def arrow *attrs
+      args = attrs.last.class == Hash ? attrs.pop : {}
+      w = attrs[2]
+      args.merge!({left: attrs[0], top: attrs[1], width: w, height: w})
+      shape args do
+        move_to 0, w*0.5*0.6
+        line_to w*0.58, w*0.5*0.6
+        line_to w*0.58, w*0.5*0.2
+        line_to w, w*0.5
+        line_to w*0.58, w*(1-0.5*0.2)
+	line_to w*0.58, w*(1-0.5*0.6)
+        line_to 0, w*(1-0.5*0.6)
+        line_to 0, w*0.5*0.6
+      end
+    end
+
     def rotate angle
       @pixbuf_rotate, angle = angle.divmod(90)
       @pixbuf_rotate %= 4

data/lib/shoes/help.rb

@@ -2,6 +2,8 @@ class Manual < Shoes
   url '/', :index
   url '/manual/(\d+)', :index
 
+  include Hpricot
+
   def index pnum = 0
     font LANG == 'ja' ? 'MS UI Gothic' : 'Arial'
     style Link, underline: false, weight: 'bold'
@@ -13,6 +15,7 @@ class Manual < Shoes
   
   def get_title_and_desc pnum
     chapter, section = PNUMS[pnum]
+    return nil unless chapter
     if section
       [pnum, DOCS[chapter][1][:sections][section][1][:title], 
       DOCS[chapter][1][:sections][section][1][:description], 
@@ -45,6 +48,7 @@ class Manual < Shoes
       stack{para NL * 4}
       flow width: 0.2, margin_left: 10 do
         para *TOC
+        para link(fg 'to_html', darkmagenta){html_manual}
       end
         
       flow width: 0.8, margin: [10, 0, 20, 0] do
@@ -76,11 +80,11 @@ class Manual < Shoes
         text.gsub CODE_RE do |lines|
           lines = lines.split NL
           n = lines[1] =~ /\#\!ruby/ ? 2 : 1
-          code = lines[n...-1].join(NL+'  ')
+          _code = lines[n...-1].join(NL+'  ')
           flow do
             background rgb(190, 190, 190), curve: 5
-            inscription link(fg('Run this', green)){eval mk_executable(code), TOPLEVEL_BINDING}, margin_left: 480
-            para '  ', fg(code, maroon), NL
+            inscription link(fg('Run this', green)){eval mk_executable(_code), TOPLEVEL_BINDING}, margin_left: 480
+            para fg(code('  ' + _code), maroon), NL, margin_left: -10
           end
           para
         end
@@ -138,7 +142,7 @@ class Manual < Shoes
   end
 
   def color_page
-    Shoes::App::COLORS.each do |color, v|
+    COLORS.each do |color, v|
       r, g, b = v
       c = v.dark? ? white : black
       flow width: 0.33 do
@@ -151,15 +155,7 @@ class Manual < Shoes
   end
   
   def sample_page
-    names = Dir[File.join(DIR, '../samples/sample*.rb')].map do |file|
-      orig_name = File.basename file
-      dummy_name = orig_name.sub(/sample(.*)\.rb/){
-        first, second = $1.split('-')
-        "%02d%s%s" % [first.to_i, ('-' if second), second]
-      }
-      [dummy_name, orig_name]
-    end
-    names.sort.map(&:last).each do |file|
+    mk_sample_names.each do |file|
       stack width: 80 do
         inscription file[0...-3]
         img = image File.join(DIR, "../snapshots/#{file[0..-3]}png"), width: 50, height: 50
@@ -168,6 +164,17 @@ class Manual < Shoes
       end
     end
   end
+
+  def mk_sample_names
+    Dir[File.join(DIR, '../samples/sample*.rb')].map do |file|
+      orig_name = File.basename file
+      dummy_name = orig_name.sub(/sample(.*)\.rb/){
+        first, second = $1.split('-')
+        "%02d%s%s" % [first.to_i, ('-' if second), second]
+      }
+      [dummy_name, orig_name]
+    end.sort.map &:last
+  end
   
   def find_pnum page
     TOC_LIST.each_with_index do |e, i|
@@ -203,6 +210,154 @@ class Manual < Shoes
     pnum
   end
 
+  def html_manual
+    dir = ask_save_folder
+    return unless dir
+    FileUtils.mkdir_p File.join(dir, 'static')
+    FileUtils.mkdir_p File.join(dir, 'snapshots')
+    %w[gshoes-icon.png shoes-manual-apps.png manual.css code_highlighter.js code_highlighter_ruby.js].
+      each{|x| FileUtils.cp "#{DIR}/../static/#{x}", "#{dir}/static"}
+    Dir[File.join DIR, '../static/man-*.png'].each{|x| FileUtils.cp x, "#{dir}/static"}
+    Dir[File.join DIR, '../snapshots/sample*.png'].each{|x| FileUtils.cp x, "#{dir}/snapshots"}
+
+    TOC_LIST.length.times do |n|
+      num, title, desc, methods = get_title_and_desc n
+      open File.join(dir, "#{TOC_LIST[n][0]}.html"), 'w' do |f|
+        f.puts mk_html(title, desc, methods, TOC_LIST[n+1], get_title_and_desc(n+1), mk_sidebar_list(num))
+      end
+    end
+  end
+
+  def mk_html title, desc, methods, next_file, next_title, menu
+    man = self
+    Hpricot do
+      xhtml_transitional do
+        head do
+          meta :"http-equiv" => "Content-Type", "content" => "text/html; charset=utf-8"
+          title "The Green Shoes Manual // #{title}"
+          script type: "text/javascript", src: "static/code_highlighter.js"
+          script type: "text/javascript", src: "static/code_highlighter_ruby.js"
+          style type: "text/css" do
+            text "@import 'static/manual.css';"
+          end
+        end
+        body do
+          div.main! do
+            div.manual! do
+              h2 "The Green Shoes Manual #{VERSION}"
+              h1 title
+
+              paras = man.mk_paras desc
+              div.intro{p man.manual_p(paras.shift)}
+
+              html_paragraph = proc do 
+                paras.each do |str|
+                  if str =~ CODE_RE
+                    pre{code.rb $1.gsub(/^\s*?\n/, '')}
+                  else
+                    cmd, str = case str
+                    when /\A==== (.+) ====/; [:h4, $1]
+                    when /\A=== (.+) ===/; [:h3, $1]
+                    when /\A== (.+) ==/; [:h2, $1]
+                    when /\A= (.+) =/; [:h1, $1]
+                    when /\A\{COLORS\}/
+                      COLORS.each do |color, v|
+                        f = v.dark? ? "white" : "black"
+                        div.color(style: "background: #{color}; color: #{f}"){h3 color; p("rgb(%d, %d, %d)" % v)}
+                      end
+                    when /\A\{SAMPLES\}/
+                      man.mk_sample_names.each do |name|
+                        name = name[0...-3]
+                        div.sample do
+                          h3 name
+                          p '<a href="snapshots/%s.png"><img src="snapshots/%s.png" alt="%s" border=0 width=50 height=50></a>' % [name, name, name]
+                        end
+                      end
+                    when /\A \* (.+)/m
+                      ul{$1.split(/^ \* /).each{|x| li{self << man.manual_p(x)}}}
+                    else
+                      [:p, str]
+                    end
+                    send(cmd){self << man.manual_p(str)} if cmd.is_a?(Symbol)
+                  end
+                end
+              end
+
+              html_paragraph.call
+
+              methods.each do |m, d|
+                n = m.index("\u00BB")
+                n ? (sig, val = m[0...n-1], m[n-1..-1]) : (sig, val = m, nil)
+                aname = sig[/^[^(=]+=?/].gsub(/\s/, '').downcase
+                a name: aname
+                div.method do
+                  a sig, href: "##{aname}"
+                  text val if val
+                end
+                div.desc do
+                  paras = man.mk_paras d
+                  html_paragraph.call
+                end
+              end
+
+              p.next{text "Next: "; a next_title[1], href: "#{next_file[0]}.html"} if next_title
+            end
+            div.sidebar do
+              img src: "static/gshoes-icon.png"
+              ul do
+                li{a.prime "HELP", href: "./"}
+                menu.each do |m|
+                  li do
+                    unless m.is_a?(Array)
+                      a m, href: "#{m}.html"
+                    else
+                      ul.sub do
+                        m.each do |sm|
+                          li{a sm, href: "#{sm}.html"}
+                        end
+                      end
+                    end
+                  end
+                end
+              end
+            end
+          end
+        end
+      end
+    end.to_html
+  end
+
+  def mk_sidebar_list num
+    toc = []
+    [0..3, 4..9, 10..16, 17..32, 33..35].each do |r|
+      toc.push TOC_LIST[r.first][0]
+      toc.push(TOC_LIST[r.first+1..r.last].to_a.map &:first) if r.include?(num)
+    end
+    toc
+  end
+
+  def manual_p str
+    str.gsub(/\n+\s*/, " ").
+      gsub(/&/, '&amp;').gsub(/>/, '&gt;').gsub(/>/, '&lt;').gsub(/"/, '&quot;').
+      gsub(/`(.+?)`/m, '<code>\1</code>').gsub(/\[\[BR\]\]/i, "<br />\n").
+      gsub(/\^(.+?)\^/m, '\1').
+      gsub(/'''(.+?)'''/m, '<strong>\1</strong>').gsub(/''(.+?)''/m, '<em>\1</em>').
+      gsub(/\[\[((http|https):\/\/\S+?)\]\]/m, '<a href="\1" target="_new">\1</a>').
+      gsub(/\[\[((http|https):\/\/\S+?) (.+?)\]\]/m, '<a href="\1" target="_new">\3</a>').
+      gsub(/\[\[(\S+?)\]\]/m) do
+        ms, mn = $1.split(".", 2)
+        if mn
+          '<a href="' + ms + '.html#' + mn + '">' + mn + '</a>'
+        else
+          '<a href="' + ms + '.html">' + ms + '</a>'
+        end
+      end.
+      gsub(/\[\[(\S+?) (.+?)\]\]/m, '<a href="\1.html">\2</a>').
+      gsub(/\!(\{[^}\n]+\})?([^!\n]+\.\w+)\!/) do
+        '<img src="' + "static/#$2" + '" />'
+      end
+  end
+
   IMAGE_RE = /\!(\{([^}\n]+)\})?([^!\n]+\.\w+)\!/
   CODE_RE = /\{{3}(?:\s*\#![^\n]+)?(.+?)\}{3}/m
   NL = "\n"

data/static/code_highlighter.js

@@ -0,0 +1,188 @@
+/* Unobtrustive Code Highlighter By Dan Webb 11/2005
+   Version: 0.4
+	
+	Usage:
+		Add a script tag for this script and any stylesets you need to use
+		to the page in question, add correct class names to CODE elements, 
+		define CSS styles for elements. That's it! 
+	
+	Known to work on:
+		IE 5.5+ PC
+		Firefox/Mozilla PC/Mac
+		Opera 7.23 + PC
+		Safari 2
+		
+	Known to degrade gracefully on:
+		IE5.0 PC
+	
+	Note: IE5.0 fails due to the use of lookahead in some stylesets.  To avoid script errors
+	in older browsers use expressions that use lookahead in string format when defining stylesets.
+	
+	This script is inspired by star-light by entirely cunning Dean Edwards
+	http://dean.edwards.name/star-light/.  
+*/
+
+// replace callback support for safari.
+if ("a".replace(/a/, function() {return "b"}) != "b") (function(){
+  var default_replace = String.prototype.replace;
+  String.prototype.replace = function(search,replace){
+	// replace is not function
+	if(typeof replace != "function"){
+		return default_replace.apply(this,arguments)
+	}
+	var str = "" + this;
+	var callback = replace;
+	// search string is not RegExp
+	if(!(search instanceof RegExp)){
+		var idx = str.indexOf(search);
+		return (
+			idx == -1 ? str :
+			default_replace.apply(str,[search,callback(search, idx, str)])
+		)
+	}
+	var reg = search;
+	var result = [];
+	var lastidx = reg.lastIndex;
+	var re;
+	while((re = reg.exec(str)) != null){
+		var idx  = re.index;
+		var args = re.concat(idx, str);
+		result.push(
+			str.slice(lastidx,idx),
+			callback.apply(null,args).toString()
+		);
+		if(!reg.global){
+			lastidx += RegExp.lastMatch.length;
+			break
+		}else{
+			lastidx = reg.lastIndex;
+		}
+	}
+	result.push(str.slice(lastidx));
+	return result.join("")
+  }
+})();
+
+var CodeHighlighter = { styleSets : new Array };
+
+CodeHighlighter.addStyle = function(name, rules) {
+	// using push test to disallow older browsers from adding styleSets
+	if ([].push) this.styleSets.push({
+		name : name, 
+		rules : rules,
+		ignoreCase : arguments[2] || false
+	})
+	
+	function setEvent() {
+		// set highlighter to run on load (use LowPro if present)
+		if (typeof Event != 'undefined' && typeof Event.onReady == 'function') 
+		  return Event.onReady(CodeHighlighter.init.bind(CodeHighlighter));
+		
+		var old = window.onload;
+		
+		if (typeof window.onload != 'function') {
+			window.onload = function() { CodeHighlighter.init() };
+		} else {
+			window.onload = function() {
+				old();
+				CodeHighlighter.init();
+			}
+		}
+	}
+	
+	// only set the event when the first style is added
+	if (this.styleSets.length==1) setEvent();
+}
+
+CodeHighlighter.init = function() {
+	if (!document.getElementsByTagName) return; 
+	if ("a".replace(/a/, function() {return "b"}) != "b") return; // throw out Safari versions that don't support replace function
+	// throw out older browsers
+	
+	var codeEls = document.getElementsByTagName("CODE");
+	// collect array of all pre elements
+	codeEls.filter = function(f) {
+		var a =  new Array;
+		for (var i = 0; i < this.length; i++) if (f(this[i])) a[a.length] = this[i];
+		return a;
+	} 
+	
+	var rules = new Array;
+	rules.toString = function() {
+		// joins regexes into one big parallel regex
+		var exps = new Array;
+		for (var i = 0; i < this.length; i++) exps.push(this[i].exp);
+		return exps.join("|");
+	}
+	
+	function addRule(className, rule) {
+		// add a replace rule
+		var exp = (typeof rule.exp != "string")?String(rule.exp).substr(1, String(rule.exp).length-2):rule.exp;
+		// converts regex rules to strings and chops of the slashes
+		rules.push({
+			className : className,
+			exp : "(" + exp + ")",
+			length : (exp.match(/(^|[^\\])\([^?]/g) || "").length + 1, // number of subexps in rule
+			replacement : rule.replacement || null 
+		});
+	}
+	
+	function parse(text, ignoreCase) {
+		// main text parsing and replacement
+		return text.replace(new RegExp(rules, (ignoreCase)?"gi":"g"), function() {
+			var i = 0, j = 1, rule;
+			while (rule = rules[i++]) {
+				if (arguments[j]) {
+					// if no custom replacement defined do the simple replacement
+					if (!rule.replacement) return "<span class=\"" + rule.className + "\">" + arguments[0] + "</span>";
+					else {
+						// replace $0 with the className then do normal replaces
+						var str = rule.replacement.replace("$0", rule.className);
+						for (var k = 1; k <= rule.length - 1; k++) str = str.replace("$" + k, arguments[j + k]);
+						return str;
+					}
+				} else j+= rule.length;
+			}
+		});
+	}
+	
+	function highlightCode(styleSet) {
+		// clear rules array
+		var parsed, clsRx = new RegExp("(\\s|^)" + styleSet.name + "(\\s|$)");
+		rules.length = 0;
+		
+		// get stylable elements by filtering out all code elements without the correct className	
+		var stylableEls = codeEls.filter(function(item) { return clsRx.test(item.className) });
+		
+		// add style rules to parser
+		for (var className in styleSet.rules) addRule(className, styleSet.rules[className]);
+		
+			
+		// replace for all elements
+		for (var i = 0; i < stylableEls.length; i++) {
+			// EVIL hack to fix IE whitespace badness if it's inside a <pre>
+			if (/MSIE/.test(navigator.appVersion) && stylableEls[i].parentNode.nodeName == 'PRE') {
+				stylableEls[i] = stylableEls[i].parentNode;
+				
+				parsed = stylableEls[i].innerHTML.replace(/(<code[^>]*>)([^<]*)<\/code>/i, function() {
+					return arguments[1] + parse(arguments[2], styleSet.ignoreCase) + "</code>"
+				});
+				parsed = parsed.replace(/\n( *)/g, function() { 
+					var spaces = "";
+					for (var i = 0; i < arguments[1].length; i++) spaces+= "&nbsp;";
+					return "\n" + spaces;  
+				});
+				parsed = parsed.replace(/\t/g, "&nbsp;&nbsp;&nbsp;&nbsp;");
+				parsed = parsed.replace(/\n(<\/\w+>)?/g, "<br />$1").replace(/<br \/>[\n\r\s]*<br \/>/g, "<p><br></p>");
+				
+			} else parsed = parse(stylableEls[i].innerHTML, styleSet.ignoreCase);
+			
+			stylableEls[i].innerHTML = parsed;
+		}
+	}
+	
+	// run highlighter on all stylesets
+	for (var i=0; i < this.styleSets.length; i++) {
+		highlightCode(this.styleSets[i]);  
+	}
+}