purple_shoes 0.0.101

data/lib/shoes/basic.rb

@@ -0,0 +1,254 @@
+class Shoes
+  class Basic
+    include Mod
+    def initialize args
+      @initials = args
+      args.each do |k, v|
+        instance_variable_set "@#{k}", v
+      end
+
+      (@app.order << self) unless @noorder
+      (@app.cslot.contents << self) unless @nocontrol
+
+      @parent = @app.cslot
+      
+      Basic.class_eval do
+        attr_accessor *args.keys
+      end
+
+      if @real
+        if @real.is_a? Swt::Image
+          @width = @full_width if @width.zero?
+          @height = @full_height if @height.zero?
+        elsif @real.is_a? Symbol
+          # do nothing
+        else
+          @width, @height = @real.getSize.x, @real.getSize.y
+        end
+      end
+
+      set_margin
+      @width += (@margin_left + @margin_right)
+      @height += (@margin_top + @margin_bottom)
+
+      [:app, :real].each{|k| args.delete k}
+      @args = args
+      @dps = []
+    end
+
+    attr_reader :args, :initials
+    attr_accessor :parent, :pl, :ln, :dps
+
+    def hided
+      @app.hided or @hided
+    end
+
+    def move x, y
+      @app.cslot.contents -= [self]
+      move3 x, y
+      self
+    end
+
+    def move2 x, y
+      move3 x, y
+    end
+
+    def move3 x, y
+      unless @app.cs.isDisposed
+        @app.cs.redraw @left, @top, @width, @height, false
+        @app.cs.redraw x, y, @width, @height, false
+      end
+      @left, @top = x, y
+    end
+
+    def positioning x, y, max
+      if parent.is_a?(Flow) and x + @width <= parent.left + parent.width
+        move3 x + parent.margin_left, max.top + parent.margin_top
+        max = self if max.height < @height
+      else
+        move3 parent.left + parent.margin_left, max.top + max.height + parent.margin_top
+        max = self
+      end
+      max
+    end
+
+    def clear
+      @app.cs.removePaintListener pl if pl
+      @app.cs.removeListener Swt::SWT::MouseDown, ln if ln
+      @app.cs.removeListener Swt::SWT::MouseUp, ln if ln
+      @real.dispose unless @real.is_a? Symbol
+      @dps.each{|dp| dp.dispose if dp}
+      @dps.clear
+      @parent.contents -= [self]
+      @app.mscs -= [self]
+      hide
+    end
+    
+    def show
+      @hided = true
+      toggle
+    end
+    
+    def hide
+      @hided = false
+      toggle
+    end
+    
+    def toggle
+      @hided = !@hided
+      @app.cs.redraw @left, @top, @width, @height, false unless @app.cs.isDisposed
+      self
+    end
+    
+    def fix_size
+      flag = false
+      set_margin
+      case self
+      when EditBox, Button
+        if 0 < @initials[:width] and @initials[:width] <= 1.0
+          @width = @parent.width * @initials[:width] - @margin_left - @margin_right
+          flag = true
+        end
+        if 0 < @initials[:height] and @initials[:height] <= 1.0
+          @height = @parent.height * @initials[:height] - @margin_top - @margin_bottom
+          flag = true
+        end
+      when EditLine, ListBox
+        if 0 < @initials[:width] and @initials[:width] <= 1.0
+          @width = @parent.width * @initials[:width] - @margin_left - @margin_right
+          @height = 20
+          flag = true
+        end
+      else
+      end
+      if flag
+        @real.setSize @width, @height
+        move @left, @top
+      end
+    end
+  end
+
+  class Image < Basic; end
+
+  class Pattern < Basic
+    def positioning x, y, max
+      self.width = self.height = 0
+      super
+    end
+    def move2 x, y
+      @left, @top, @width, @height = parent.left, parent.top, parent.width, parent.height
+      @width = @args[:width] unless @args[:width].zero?
+      @height = @args[:height] unless @args[:height].zero?
+      unless @real
+        m = self.class.to_s.downcase[7..-1]
+        args = eval "{#{@args.keys.map{|k| "#{k}: @#{k}"}.join(', ')}}"
+        args = [@pattern, args.merge({create_real: true, nocontrol: true})]
+        pt = @app.send(m, *args)
+        @real = pt.real
+      end
+    end
+  end
+  class Background < Pattern; end
+  class Border < Pattern; end
+
+  class ShapeBase < Basic; end
+  class Rect < ShapeBase; end
+  class Oval < ShapeBase; end
+  class Line < ShapeBase; end
+  class Star < ShapeBase; end
+  class Shape < ShapeBase
+    def move_to x, y
+      real.moveTo x + left, y + top
+    end
+    def line_to x, y
+      real.lineTo x + left, y + top
+    end
+    def quad_to cx, cy, x, y
+      real.quadTo cx + left, cy + top, x + left, y + top
+    end
+  end
+  
+  class TextBlock < Basic
+    def initialize args
+      @links = []
+      super
+    end
+    attr_reader :links
+    def text
+      @args[:markup]
+    end
+    def text= s
+      style markup: s
+    end
+    def positioning x, y, max
+      self.text = @args[:markup]
+      super.tap{|s| s.height += (@margin_top + @margin_bottom) if s == self}
+    end
+    def move x, y
+      self.text = @args[:markup]
+      super
+    end
+    def clear
+      @links.each &:clear
+      @links.clear
+      super
+    end
+  end
+  class Banner < TextBlock; end
+  class Title < TextBlock; end
+  class Subtitle < TextBlock; end
+  class Tagline < TextBlock; end
+  class Caption < TextBlock; end
+  class Para < TextBlock; end
+  class Inscription < TextBlock; end
+  
+  class Native < Basic
+    def text
+      @real.getText
+    end
+    def text=(s)
+      @real.setText s.to_s
+    end
+    def move x, y
+      @real.setLocation x, y
+      super
+    end
+    def move2 x, y
+      @real.setLocation x, y
+      super
+    end
+    def clear
+      @real.dispose
+      @parent.contents -= [self]
+    end
+    def toggle
+      @hided = !@hided
+      @real.setVisible !@hided unless @real.isDisposed
+      self
+    end
+  end
+
+  class Button < Native; end
+  class ToggleButton < Button
+    def checked?
+      real.getSelection
+    end
+    def checked=(tof)
+      real.setSelection tof
+      block.call if tof
+    end
+  end
+  class Radio < ToggleButton; end
+
+  class EditLine < Native; end
+  class EditBox < Native; end
+  class ListBox < Native; end
+  class Progress < Native
+    def fraction
+      @real.isDisposed ? 0 : real.getSelection / 100.0
+    end
+    def fraction= n
+      real.setSelection n * 100 unless @real.isDisposed
+    end
+  end
+end

data/lib/shoes/colors.rb

@@ -0,0 +1,149 @@
+class Shoes
+  colors = [
+    [:aliceblue, 240, 248, 255],
+    [:antiquewhite, 250, 235, 215],
+    [:aqua, 0, 255, 255],
+    [:aquamarine, 127, 255, 212],
+    [:azure, 240, 255, 255],
+    [:beige, 245, 245, 220],
+    [:bisque, 255, 228, 196],
+    [:black, 0, 0, 0],
+    [:blanchedalmond, 255, 235, 205],
+    [:blue, 0, 0, 255],
+    [:blueviolet, 138, 43, 226],
+    [:brown, 165, 42, 42],
+    [:burlywood, 222, 184, 135],
+    [:cadetblue, 95, 158, 160],
+    [:chartreuse, 127, 255, 0],
+    [:chocolate, 210, 105, 30],
+    [:coral, 255, 127, 80],
+    [:cornflowerblue, 100, 149, 237],
+    [:cornsilk, 255, 248, 220],
+    [:crimson, 220, 20, 60],
+    [:cyan, 0, 255, 255],
+    [:darkblue, 0, 0, 139],
+    [:darkcyan, 0, 139, 139],
+    [:darkgoldenrod, 184, 134, 11],
+    [:darkgray, 169, 169, 169],
+    [:darkgreen, 0, 100, 0],
+    [:darkkhaki, 189, 183, 107],
+    [:darkmagenta, 139, 0, 139],
+    [:darkolivegreen, 85, 107, 47],
+    [:darkorange, 255, 140, 0],
+    [:darkorchid, 153, 50, 204],
+    [:darkred, 139, 0, 0],
+    [:darksalmon, 233, 150, 122],
+    [:darkseagreen, 143, 188, 143],
+    [:darkslateblue, 72, 61, 139],
+    [:darkslategray, 47, 79, 79],
+    [:darkturquoise, 0, 206, 209],
+    [:darkviolet, 148, 0, 211],
+    [:deeppink, 255, 20, 147],
+    [:deepskyblue, 0, 191, 255],
+    [:dimgray, 105, 105, 105],
+    [:dodgerblue, 30, 144, 255],
+    [:firebrick, 178, 34, 34],
+    [:floralwhite, 255, 250, 240],
+    [:forestgreen, 34, 139, 34],
+    [:fuchsia, 255, 0, 255],
+    [:gainsboro, 220, 220, 220],
+    [:ghostwhite, 248, 248, 255],
+    [:gold, 255, 215, 0],
+    [:goldenrod, 218, 165, 32],
+    [:gray, 128, 128, 128],
+    [:green, 0, 128, 0],
+    [:greenyellow, 173, 255, 47],
+    [:honeydew, 240, 255, 240],
+    [:hotpink, 255, 105, 180],
+    [:indianred, 205, 92, 92],
+    [:indigo, 75, 0, 130],
+    [:ivory, 255, 255, 240],
+    [:khaki, 240, 230, 140],
+    [:lavender, 230, 230, 250],
+    [:lavenderblush, 255, 240, 245],
+    [:lawngreen, 124, 252, 0],
+    [:lemonchiffon, 255, 250, 205],
+    [:lightblue, 173, 216, 230],
+    [:lightcoral, 240, 128, 128],
+    [:lightcyan, 224, 255, 255],
+    [:lightgoldenrodyellow, 250, 250, 210],
+    [:lightgreen, 144, 238, 144],
+    [:lightgrey, 211, 211, 211],
+    [:lightpink, 255, 182, 193],
+    [:lightsalmon, 255, 160, 122],
+    [:lightseagreen, 32, 178, 170],
+    [:lightskyblue, 135, 206, 250],
+    [:lightslategray, 119, 136, 153],
+    [:lightsteelblue, 176, 196, 222],
+    [:lightyellow, 255, 255, 224],
+    [:lime, 0, 255, 0],
+    [:limegreen, 50, 205, 50],
+    [:linen, 250, 240, 230],
+    [:magenta, 255, 0, 255],
+    [:maroon, 128, 0, 0],
+    [:mediumaquamarine, 102, 205, 170],
+    [:mediumblue, 0, 0, 205],
+    [:mediumorchid, 186, 85, 211],
+    [:mediumpurple, 147, 112, 219],
+    [:mediumseagreen, 60, 179, 113],
+    [:mediumslateblue, 123, 104, 238],
+    [:mediumspringgreen, 0, 250, 154],
+    [:mediumturquoise, 72, 209, 204],
+    [:mediumvioletred, 199, 21, 133],
+    [:midnightblue, 25, 25, 112],
+    [:mintcream, 245, 255, 250],
+    [:mistyrose, 255, 228, 225],
+    [:moccasin, 255, 228, 181],
+    [:navajowhite, 255, 222, 173],
+    [:navy, 0, 0, 128],
+    [:oldlace, 253, 245, 230],
+    [:olive, 128, 128, 0],
+    [:olivedrab, 107, 142, 35],
+    [:orange, 255, 165, 0],
+    [:orangered, 255, 69, 0],
+    [:orchid, 218, 112, 214],
+    [:palegoldenrod, 238, 232, 170],
+    [:palegreen, 152, 251, 152],
+    [:paleturquoise, 175, 238, 238],
+    [:palevioletred, 219, 112, 147],
+    [:papayawhip, 255, 239, 213],
+    [:peachpuff, 255, 218, 185],
+    [:peru, 205, 133, 63],
+    [:pink, 255, 192, 203],
+    [:plum, 221, 160, 221],
+    [:powderblue, 176, 224, 230],
+    [:purple, 128, 0, 128],
+    [:red, 255, 0, 0],
+    [:rosybrown, 188, 143, 143],
+    [:royalblue, 65, 105, 225],
+    [:saddlebrown, 139, 69, 19],
+    [:salmon, 250, 128, 114],
+    [:sandybrown, 244, 164, 96],
+    [:seagreen, 46, 139, 87],
+    [:seashell, 255, 245, 238],
+    [:sienna, 160, 82, 45],
+    [:silver, 192, 192, 192],
+    [:skyblue, 135, 206, 235],
+    [:slateblue, 106, 90, 205],
+    [:slategray, 112, 128, 144],
+    [:snow, 255, 250, 250],
+    [:springgreen, 0, 255, 127],
+    [:steelblue, 70, 130, 180],
+    [:tan, 210, 180, 140],
+    [:teal, 0, 128, 128],
+    [:thistle, 216, 191, 216],
+    [:tomato, 255, 99, 71],
+    [:turquoise, 64, 224, 208],
+    [:violet, 238, 130, 238],
+    [:wheat, 245, 222, 179],
+    [:white, 255, 255, 255],
+    [:whitesmoke, 245, 245, 245],
+    [:yellow, 255, 255, 0],
+    [:yellowgreen, 154, 205, 50],
+  ]
+
+  App.class_eval do
+    colors.each{|c, r, g, b| define_method(c){[r, g, b]}}
+  end
+  colors.each{|c, r, g, b| COLORS[c] = [r, g, b]}
+end

data/lib/shoes/download.rb

@@ -0,0 +1,26 @@
+class Shoes
+  class Download
+    def initialize name, args, &blk
+      require 'open-uri'
+      Thread.new do
+        open name,
+          content_length_proc: lambda{|len| @content_length, @started = len, true},
+          progress_proc: lambda{|size| @progress = size} do |sio|
+          open(args[:save], 'wb'){|fw| fw.print sio.read} if args[:save]
+          #blk[sio] if blk
+          @finished = true
+        end
+      end
+    end
+    
+    attr_reader :progress, :content_length
+    
+    def started?
+      @started
+    end
+    
+    def finished?
+      @finished
+    end
+  end
+end

data/lib/shoes/help.rb

@@ -0,0 +1,473 @@
+require 'hpricot'
+require 'nkf'
+
+class Manual < Shoes
+  url '/', :index
+  url '/manual/(\d+)', :index
+  #url '/mk_search_page', :mk_search_page
+
+  include Hpricot
+  #include HH::Markup
+
+  def index pnum = 0
+    font LANG == 'ja' ? 'MS UI Gothic' : 'Arial'
+    #style Link, underline: false, weight: 'bold'
+    #style LinkHover, stroke: '#06E'
+    self.scroll_top = 0
+    TOC.clear; TOC_LIST.clear
+    table_of_contents.each{|toc| TOC << toc}
+    pnum == '999' ? mk_search_page : manual( *get_title_and_desc(pnum.to_i) )
+  end
+  
+  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], 
+      DOCS[chapter][1][:sections][section][1][:methods]]
+    else
+      [pnum, DOCS[chapter][0], DOCS[chapter][1][:description], []]
+    end
+  end
+  
+  def table_of_contents
+    PNUMS.map.with_index do |e, pnum|
+      chapter, section = e
+      title = section ? DOCS[chapter][1][:sections][section][1][:title] : DOCS[chapter][0]
+      title = title.sub('The', '').split(' ').first
+      TOC_LIST << [title, section]
+      section ? ['   ', link(title){visit "/manual/#{pnum}"}, "\n"] : [link(fg(title, magenta)){visit "/manual/#{pnum}"}, "\n"]
+    end.flatten
+  end
+
+  def manual pnum, docs_title, docs_description, docs_methods
+    flow do
+      show_header docs_title
+      show_toc
+      paras = mk_paras docs_description
+      flow width: 0.8, margin: [10, 0, 20, 0] do
+        show_page paras, true
+        show_methods docs_methods
+        para link('top'){visit "/manual/0"}, "  ",
+          link('prev'){visit "/manual/#{(pnum-1)%PEND}"}, "  ", 
+          link('next'){visit "/manual/#{(pnum+1)%PEND}"}, "  ", 
+          link('end'){visit "/manual/#{PEND-1}"}
+      end
+    end
+  end
+
+  def show_header docs_title
+    background tr_color("#ddd")..white, angle: 90
+    background black..magenta, height: 90
+    para fg("The Purple Shoes Manual #{VERSION}", gray), left: 120, top: 10
+    title fg(docs_title, white), left: 120, top: 30, font: 'Coolvetica'
+    image File.join(DIR, '../static/purple_shoes-icon.png'), left: 5, top: -12, width: 110, height: 110, nocontrol: true
+  end
+
+  def show_toc
+    stack(height: 120){}
+    flow width: 0.2, margin_left: 10 do
+      flow(margin_right: 20) do
+        background black.push(0.7), curve: 5
+        inscription "Not findng it?\n", 'Try ', link(fg 'Search', white){visit '/manual/999'}, '!', align: 'center', stroke: lightgrey
+      end
+      stack(height: 10){}
+      para *TOC
+      para link(fg 'to_html', green){html_manual}
+    end
+  end
+
+  def show_methods docs_methods, term = nil
+    docs_methods.each do |m, d|
+      flow do
+        background rgb(60, 60, 60), curve: 5
+        n = m.index("\u00BB")
+        if n
+          para '  ', fg(strong(m[0...n]), white), fg(strong(m[n..-1]), rgb(160, 160, 160))
+        else
+          para '  ', fg(strong(m), white)
+        end
+      end
+      para NL
+      show_page mk_paras(d.gsub('&', '\u0026')), false, term
+    end
+  end
+
+  def show_page paras, intro = false, term = nil
+    paras.each_with_index do |text, i|
+      if text =~ CODE_RE
+        text.gsub CODE_RE do |lines|
+          lines = lines.split NL
+          n = lines[1] =~ /\#\!ruby/ ? 2 : 1
+          _code = lines[n...-1].join(NL+'  ')
+          flow do
+            background rgb(190, 190, 190), curve: 5
+            inscription link(fg('Run this', magenta)){eval mk_executable(_code), TOPLEVEL_BINDING}, '  ', align: 'right'
+            if _code.include? 'te-su-to'
+              para fg(code('  ' + _code), maroon), NL, margin: [-10, 10, 0, 20]
+            else
+              #para code(highlight('  ' + _code, nil)), NL, margin: [-10, 10, 0, 20]
+              para fg(code('  ' + _code), blueviolet), NL, margin: [-10, 10, 0, 20]
+            end
+          end
+          para NL
+        end
+        next
+      end
+      
+      if text =~ /\A \* (.+)/m
+        $1.split(/^ \* /).each do |txt|
+          image File.join(DIR, '../static/purple_shoes-icon.png'), width: 20, height: 20
+          flow(width: 510){show_paragraph txt, intro, i, term}
+        end
+      else
+        show_paragraph text, intro, i, term
+        para NL
+      end
+    end
+  end
+  
+  def show_paragraph txt, intro, i, term = nil
+    txt = txt.gsub("\n", ' ').gsub(/`(.+?)`/m){fg code($1), rgb(255, 30, 0)}.
+      gsub(/\^(.+?)\^/m, '\1').gsub(/'''(.+?)'''/m){strong($1)}.gsub(/''(.+?)''/m){em($1)}.
+      gsub(/\[\[BR\]\]/i, "\n")
+    txts = txt.split(/(\[\[\S+?\]\])/m).map{|s| s.split(/(\[\[\S+? .+?\]\])/m)}.flatten
+    case txts[0]
+    when /\A==== (.+) ====/; caption *marker($1, term), size: 24
+    when /\A=== (.+) ===/; tagline *marker($1, term), size: 12, weight: 'bold'
+    when /\A== (.+) ==/; subtitle *marker($1, term)
+    when /\A= (.+) =/; title *marker($1, term)
+    when /\A\{COLORS\}/; flow{color_page}
+    when /\A\{SAMPLES\}/; flow{sample_page}
+    else
+      para *mk_links(txts, term).flatten, NL, (intro and i.zero?) ? {size: 16} : ''
+      txt.gsub IMAGE_RE do
+        para NL
+        image File.join(DIR, "../static/#{$3}"), eval("{#{$2 or "margin_left: 50"}}")
+      end
+    end
+  end
+
+  def mk_links txts, term = nil
+    txts.map{|txt| txt.gsub(IMAGE_RE, '')}.
+      map{|txt| txt =~ /\[\[(\S+?)\]\]/m ? (t = $1.split('.'); link(ins *marker(t.last, term)){visit "/manual/#{find_pnum t.first}"}) : txt}.
+      map{|txt| txt =~ /\[\[(\S+?) (.+?)\]\]/m ? (url = $1; link(ins *marker($2, term)){visit url =~ /^http/ ? url : "/manual/#{find_pnum url}"}) : 
+      (txt.is_a?(String) ? marker(txt, term) : txt)}
+  end
+
+  def mk_paras str
+    str.split("\n\n") - ['']
+  end
+
+  def mk_executable code
+    if code =~ /\# Not yet available/
+      "Shoes.app{para 'Sorry, not yet available...'}"
+    else
+      code
+    end
+  end
+
+  def color_page
+    COLORS.each do |color, v|
+      r, g, b = v
+      c = v.dark? ? white : black
+      flow width: 0.33 do
+        background send(color)
+        para fg(strong(color), c), align: 'center'
+        para fg("rgb(#{r}, #{g}, #{b})", c), align: 'center'
+      end
+    end
+    para NL
+  end
+  
+  def sample_page
+    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
+        img.click{Dir.chdir(File.join DIR, '../samples'){instance_eval(IO.read(file),file,0)}}
+        para NL
+      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|
+      title, section = e
+      return i if title == page
+    end
+  end
+
+  def self.load_docs path
+    str = IO.read(path).force_encoding("UTF-8")
+    (str.split(/^= (.+?) =/)[1..-1]/2).map do |k, v|
+      sparts = v.split(/^== (.+?) ==/)
+      sections = (sparts[1..-1]/2).map do |k2, v2|
+        meth = v2.split(/^=== (.+?) ===/)
+        k2t = k2[/^(?:The )?([\-\w]+)/, 1]
+        meth_plain = meth[0].gsub(IMAGE_RE, '')
+        h = {title: k2, section: k, description: meth[0], methods: (meth[1..-1]/2)}
+        [k2t, h]
+      end
+      h = {description: sparts[0], sections: sections, class: "toc" + k.downcase.gsub(/\W+/, '')}
+      [k, h]
+    end
+  end
+  
+  def self.mk_page_numbers docs
+    pnum = []
+    docs.length.times do |i|
+      pnum << [i, nil]
+      docs[i][1][:sections].length.times do |j|
+        pnum << [i, j]
+      end
+    end
+    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[rshoes-icon.png purple_shoes-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 Purple 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 Purple Shoes Manual #{VERSION}"
+              h1 title
+
+              paras = man.mk_paras desc
+              div.intro{text 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.to_s; 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
+                          text '<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.divmethod 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/purple_shoes-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..37].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
+
+  def mk_search_page
+    flow do
+      show_header 'Search'
+      show_toc
+      pnum, docs_title, docs_description, docs_methods = get_title_and_desc(25)
+      paras = mk_paras docs_description
+
+      flow width: 0.8, margin: [10, 0, 20, 0] do
+        el = edit_line width: 300
+        button 'search' do
+          term = el.text.strip
+          unless term.empty?
+            descs, methods = search term
+            @f.clear{show_search_result term, descs, methods}
+            aflush
+          end
+        end
+        stack(height: 20){}
+        @f = flow{}
+      end
+    end
+  end
+
+  def search term
+    descs, methods = [], []
+    PNUMS.each_with_index do |(chapter, section), pnum|
+      pnum, docs_title, docs_description, docs_methods = get_title_and_desc(pnum)
+      paras = mk_paras(docs_description)
+      descs << [chapter, section, docs_title, paras] if paras.map{|txt| txt.gsub(CODE_RE, '').gsub(IMAGE_RE, '')}.join(' ').index(term)
+      docs_methods.each do |docs_method|
+        m, d = docs_method
+        methods << [chapter, section, docs_title, docs_method] if m.index(term) or d.gsub(CODE_RE, '').gsub(IMAGE_RE, '').index(term)
+      end
+    end
+    return descs, methods
+  end
+
+  def show_search_result term, descs, methods
+    return subtitle 'Not Found' if descs.empty? and methods.empty?
+    methods.each do |(chapter, section, docs_title, docs_method)|
+      flow margin: [10, 10, 0, 5] do
+        background rgb(200, 200, 200), curve: 5
+        para "#{DOCS[chapter][0]}: #{docs_title.sub('The', '').split(' ').first}: ", 
+          link(docs_method[0]){@f.clear{title docs_title; show_methods [docs_method], term}; aflush}, NL
+      end
+      stack(height: 2){}
+    end
+    descs.each do |(chapter, section, docs_title, paras)|
+      flow margin_left: 10 do
+        if section
+          background gray, curve: 5
+          tagline link(fg(docs_title, white)){@f.clear{title docs_title; show_page paras, true, term}; aflush}, width: 320
+          inscription "Sub-Section under #{DOCS[chapter][0]}", stroke: lightgrey, width: 180
+        else
+          background black.push(0.8), curve: 5
+          subtitle link(fg(docs_title, white)){@f.clear{title docs_title; show_page paras, true, term}; aflush}, width: 320
+          inscription 'Section Header', stroke: lightgrey, width: 100
+        end
+      end
+      stack(height: 2){}
+    end
+    para NL
+  end
+
+  def marker txt, term
+    if term && txt
+      tmp = txt.split(term).map{|s| [s, bg(term, yellow)]}.flatten
+      txt =~ /#{term}$/ ? tmp : tmp[0...-1]
+    else
+      [txt]
+    end
+  end
+
+  IMAGE_RE = /\!(\{([^}\n]+)\})?([^!\n]+\.\w+)\!/
+  CODE_RE = /\{{3}(?:\s*\#![^\n]+)?(.+?)\}{3}/m
+  NL = "\n"
+  LANG = $lang.downcase[0, 2]
+  DOCS = load_docs($lang =~ /\.txt$/ ? $lang : File.join(DIR, "../static/manual-#{LANG}.txt"))
+  PNUMS = mk_page_numbers DOCS
+  PEND = PNUMS.length
+  TOC, TOC_LIST = [], []
+  COLORS = Shoes::COLORS
+  VERSION = SHOES_VERSION
+end
+
+Shoes.app title: 'The Purple Shoes Manual', width: 720, height: 640