infod 0.0.1

data/infod/W/audio.rb

@@ -0,0 +1,56 @@
+#watch __FILE__
+class E
+
+  F["?"]||={}; F["?"].update({'af'=>{'graph' => 'audioFind','view' => 'audioplayer'},
+                               'a'=>{'set' => 'audio','view' => 'audioplayer'},
+                               'v'=>{'set' => 'video','view' => 'audioplayer','video'=>true}})
+
+  def audioNodes;take.select &:audioNode end;def audioNode;true if ext.match /(aif|wav|flac|mp3|m4a|aac|ogg)/i end
+  def videoNodes;take.select &:videoNode end;def videoNode;true if ext.match /(avi|flv|mkv|mpg|mp4|wmv)/i end
+
+  fn 'set/audio',->d,e,m{d.audioNodes}
+  fn 'set/video',->d,e,m{d.videoNodes}
+
+  fn 'graph/audioFind',->e,q,m{
+    t=q['day'] && q['day'].match(/^\d+$/) && '-ctime -'+q['day']
+    s=q['size'] && q['size'].match(/^\d+$/) && '-size +'+q['size']+'M'
+    r=(q['find'] ? '.*'+q['find'].gsub(/[^a-zA-Z0-9\.\ ]+/,'.*') : '') + '.*.\(aif\|flac\|m4a\|mp3\|aac\|ogg\|wav\)'
+    `find #{e.sh} #{t} #{s} -iregex "#{r}"`.lines.map{|p|p.pathToURI.do{|a|m[a.uri]=a}}}
+
+  fn 'view/audioplayer/item',->m,e{
+    {_: :a,class: :entry, href: '#'+m.uri.gsub('%','%25').gsub('#','%23'),
+      c: m.E.bare+" \n"}}
+
+  fn 'view/audioplayer/base',->d,e,c=nil{
+    [{_: :span, id: :jump,c: 'Ⴢ   '},{_: :span, id: :rand,r: :true,c: :r},
+     (H.once e,:mu,(H.js '/js/mu')),(H.js '/js/audio'),H.css('/css/audio'),H.css('/css/table'),
+     {_: e.q.has_key?('video') ? :video : :audio, id: :player, controls: true},
+     {id: :data},
+     {id: :playlist,
+       c: {:class => :playlistItems,c: c.()}}]}
+  
+  fn 'view/audioplayer',->d,e{i=F['view/audioplayer/item']
+    Fn 'view/audioplayer/base',d,e,->{
+      d.group_by{|u,r|
+        u.split('/')[0..-2].join '/'}.map{|b,g|
+        [{_: :a, class: :directory, href: b, c: ['<br>',b,'<br>']},"\n",
+         g.map{|r|i.(r[1],e)},"\n"]}}}
+
+  def audioScan
+    a('.png').e ||
+      (e = ext; d = sh
+       un = e.match /^(aif|wav)$/i # compressed?
+       a = un ? d : d+'.wav' # analyze
+       (case e
+        when 'flac'
+          `flac -d #{d} -o #{a}`
+        when 'mp3'
+          `lame --decode #{d} #{a}`
+        when 'ogg'
+          `oggdec #{d} -o #{a}`
+        end) unless un
+       `waveformgen #{a} #{d}.png -l`
+       `sndfile-spectrogram --no-border #{a} 1280 800 #{d}.spec.png`
+       `rm #{a}` unless un) end
+
+end

data/infod/W/blog.rb

@@ -0,0 +1,3 @@
+class E
+
+end

data/infod/W/cal.rb

@@ -0,0 +1,110 @@
+#watch __FILE__
+class E
+  # tripleStream -> tripleStream
+  def dateNorm *f
+    send(*f){|s,p,o|
+      yield *({'CreationDate' => true,
+               'Date' => true,
+                RSS+'pubDate' => true,
+                Date => true,
+                Purl+'dc/elements/1.1/date' => true,
+                Atom+'published' => true,
+                Atom+'updated' => true
+              }[p] ?
+              [s,
+               Date,
+               Time.parse(o).utc.iso8601] :[s,p,o])} end
+
+    fn 'cal/day',->{Time.now.strftime '%Y/%m/%d/'}
+  fn 'cal/month',->{Time.now.strftime '%Y/%m/'}
+
+  # y=day forwards to current day's directory
+  %w{day month}.map{|i|
+    fn 'req/'+i,->e,r{
+      [303,{'Location'=>e.send(i).uri+r.q.except('y').qs},[]]}}
+    
+    def day; as Fn 'cal/day' end
+  def month; as Fn 'cal/month' end
+
+  fn 'graph/cal',->d,e,m{
+    DateTime.parse(e['s']||'2011-03-03').
+     upto(e['f'].do{|f|DateTime.parse f} || DateTime.now).
+     map{|d|m[d.iso8601]={Date=>[d]}}
+    m }
+
+  fn 'table/year',->d{ m={}
+    d.map{|u,r|
+      r[Date][0].do{|t|
+        t = Time.parse t unless t.time?
+        o=12*t.year + t.month - 1
+        x=o/3
+        y=o%3
+        m[x] ||= {}
+        m[x][y] ||= {}
+        m[x][y][u] = r
+        m[x][y][:t] = t
+      }}
+    m }
+
+  fn 'table/day',->d{ m={}
+    d.map{|u,r|
+      r[Date][0].do{|t|
+        t = Time.parse t unless t.time?
+        h=t.hour
+        s=h/12
+        h12=h%12
+        m[h12] ||= {}
+        m[h12][s] ||= {}
+        m[h12][s][u] = r
+        m[h12][s][:t] = t
+      }}
+    m }
+
+  fn 'table/month',->d{ m={}
+    d.map{|u,r|
+      r[Date][0].do{|t|
+        t = DateTime.parse t unless t.time?
+        w=t.strftime('%Y%W').to_i
+        d=t.cwday
+        m[w] ||= {}
+        m[w][d] ||= {}
+        m[w][d][u]  = r
+        m[w][d][:t] = t
+      }}
+  m }
+
+  fn 'view/year',->d,e{[(H.css '/css/cal'),(Fn 'view/t',d,e,'year','month.label')]}
+  fn 'view/month',->d,e{Fn 'view/t',d,e,'month','day.label'}
+  fn 'view/day',->d,e{Fn 'view/t',d,e,'day','hour'}
+
+  fn 'view/hour',->d,e{
+    t = d.delete :t
+    {style: 'background-color:#'+(t.hour % 2 == 1 ? 'ccc' : 'fff'),c:[{_:  :b,style:'float:left;font-size:1.3em', c: [t.hour==0 && {_: :span, style: 'font-size:.8em;color:white;background-color:#ff%02xff' % rand(256),c: t.strftime('%e %B')},t.hour]},
+     (Fn 'view/'+(e.q['hourv']||'title'),d,e)
+    ]}}
+
+  fn 'view/month.label',->d,e{
+    t = d.delete :t
+    {class: :month, style: 'background-color:#bb%02xff'%(rand(64)+192), c:
+      ['<b>',(t.month==1 && ['<span class=year>',t.year,'</span> ']),t.strftime('%B'),'</b>',(Fn 'view/'+(e.q['monthv']||'month'),d,e)]}}
+
+  fn 'view/day.label',->d,e{
+    t = d.delete :t
+       e[:m]||={}
+    c=(e[:m][t.month]||='00%02xff' % (64+rand(192)))
+    {style: 'padding:.4em;background-color:#'+c,c:[{_: :b,property: Date, c: [t.day, t.day==1 && {_: :span, style: 'font-size:.5em',c: t.strftime('%b')}]},
+     (Fn 'view/'+(e.q['dayv']||'title'),d,e)
+    ]}}
+
+end
+
+class Object
+  def time?
+    (self.class == Time) || (self.class == DateTime)
+  end
+  def to_time
+    time? ? self : Time.parse(self)
+  rescue
+    nil
+  end
+end

data/infod/W/chat.rb

@@ -0,0 +1,81 @@
+#watch __FILE__
+class E
+
+  def triplrLog &f
+    i=-1
+    day = dirname.uri.split('/')[-3..-1].join('-')
+    doc = uri.sub '#','%23'
+    chan = bare
+    yield doc,'chan',chan
+    r.scan(/(\d\d):(\d\d) \[[\s@]*([^\(\]]+)[^\]]*\] (.*)/){|m|
+      s = doc + '#' + doc + ':' + (i+=1).to_s
+      yield s,Date,day+'T'+m[0]+':'+m[1]+':00'
+      yield s,'chan',chan
+      yield s,Creator,m[2]
+      yield s,Content,m[3].hrefs(true)
+      yield s,Type,E[SIOCt+'InstantMessage']
+      yield s,'hasLink',(m[3].match(/http:\//) ? 'true' : 'false')
+      yield s,'hasNum','true' if m[3].match(/\d/)
+    } rescue nil
+    yield doc,Date,day
+  end
+
+  def tw g='m'
+    no.readlines.shuffle.each_slice(22){|s|
+      E['https://twitter.com/search/realtime?q='+s.map{|u|'from:'+u.chomp}.intersperse('+OR+').join].addJSON :triplrTweets, g}
+  end
+
+  def triplrTweets
+    base = 'http://twitter.com'
+    nokogiri.css('div.tweet').map{|t|
+      s = base + t.css('a.details').attr('href') # subject URI
+      yield s, Type, E[SIOCt+'MicroblogPost']
+      yield s, Creator, E(base+'/'+t.css('.username b')[0].inner_text)
+      yield s, SIOC+'name',t.css('.fullname')[0].inner_text
+      yield s, Atom+"/link/image", E(t.css('.avatar')[0].attr('src'))
+      yield s, Date, Time.at(t.css('[data-time]')[0].attr('data-time').to_i).iso8601
+      content = t.css('.tweet-text')[0]
+      content.css('a').map{|a|
+        u = a.attr 'href'
+        a.set_attribute('href',base + u) if u.match /^\//}
+      yield s, Content, content.inner_html
+    }
+  end
+
+  fn 'head/chat',->d,e{
+     t = d.map{|_,r|r[Date]}.flatten.compact.map &:to_time
+     c = d.map{|_,r|r[Content]}.compact.size
+    [{_: :title, c: "#{c} post#{c!=1 && 's'} #{t.min} -> #{t.max}"},
+     (Fn 'head.formats',e)]}
+
+  fn 'view/chat',->d,e{
+    Fn'view/chat/base',d,e,->{d.map{|u,r|Fn 'view/chat/item',r,e}}}
+
+  fn 'view/chat/item',->r,e{
+    line = r.E.frag
+    r[Type] && r[Type].map(&:uri).include?(SIOCt+'MailMessage') && r[:mail]=true
+    r[Content] && 
+    [{_: :a, id: line},
+     {_: :a, :class => :date, href: r.url, c: r[Date][0].match(/T([0-9:]{5})/)[1]},
+     {_: :span, :class => :nick, c: {_: :a, href: r[Atom+'/link/alternate'].do{|a|a[0].uri}||r.url,
+            c: [{_: :img, class: :a, src: r[Atom+"/link/image"][0].uri},
+                {_: :span, c: r[SIOC+'name']||r[Creator]||'#'}]}},' ',
+        {_: :span, :class => :tw, 
+       c: [r[Atom+'/link/media'].do{|a|
+             a.map{|a|{_: :a, href: r.url, c: {_: :img, src: a.uri}}}},
+           ((r[Title].to_s==r[Content].to_s || r.uri.match(/twitter/)) && '' ||
+            {_: :a, href: r.url, c: r[Title],:class => r[:mail] ? :titleMail : :title}),
+           r[:mail] ? (r[Content].map{|c|c.lines.to_a.grep(/^[^&@_]+$/)[0..21]}) : r[Content],
+          ]},' ',
+     {_: :a, class: :line, href: '#'+line, c: ' '},
+     "<br>\n"] if r.uri}
+  
+  fn 'view/chat/base',->d,e,c{
+    [(H.once e,'chat.head',(H.css '/css/tw'),{_: :style, c: "body, span.nick span, a {background-color: #{E.c}}\n"}),
+     {:class => :ch, c: c.()},
+     (H.once e,'chat.tail',{id: :b})]}
+
+  F['view/'+SIOCt+'InstantMessage']=F['view/chat']
+  F['view/'+SIOCt+'MicroblogPost']=F['view/chat']
+
+end

data/infod/W/color.rb

@@ -0,0 +1,28 @@
+#watch __FILE__
+class E
+
+  def E.c; '#%06x' % rand(16777216)end
+
+  fn 'view/color',->d,e{
+
+    n = (e.q['n']||42).to_i.max 255
+    
+    hsv2rgb=->h,s,v{
+      i = h.floor
+      f = h - i
+      p = v * (1 - s)
+      q = v * (1 - (s * f))
+      t = v * (1 - (s * (1 - f)))    
+      r,g,b=[[v,t,p],
+             [q,v,p],
+             [p,v,t],
+             [p,q,v],
+             [t,p,v],
+             [v,p,q]][i].map{|q|q*255.0}}
+
+    [H.css('/css/color'),
+     {style: 'display:table;width:100%',
+         c: [(1..10).map{|s| {class: :row, c: (0..n-1).map{|h| {class: :c,style: 'background-color:#%02x%02x%02x' % hsv2rgb.(h/(n/6.0),s/10.0,1.0)}}}},
+(1..10).to_a.reverse.map{|v| {class: :row, c: (0..n-1).map{|h| {class: :c,style: 'background-color:#%02x%02x%02x' % hsv2rgb.(h/(n/6.0),1.0,v/10.0)}}}}]}]}
+
+end

data/infod/W/core.rb

@@ -0,0 +1,77 @@
+
+class Hash
+  def graph g
+    g.merge!({uri=>self})
+  end
+  %w{graphFromFile q}.map{|m|alias_method m,:graph}
+  def mergeGraph g
+    g.values.each do |r|
+      r.triples do |s,p,o|
+        self[s] = {'uri' => s} unless self[s].class == Hash 
+        self[s][p] ||= []
+        self[s][p].push o unless self[s][p].member? o
+      end
+    end
+    self
+  end
+  def attr p;map{|_,r|r[p].do{|o|return o}}; nil end
+  # Hash -> tripleStream
+  def triples
+    s = uri
+    map{|p,o|
+      o.class == Array ? o.each{|o| yield s,p,o} : yield(s,p,o) unless p=='uri'}
+  end
+end
+
+class E
+
+  # fromStream :: Graph -> tripleStream -> Graph
+  def fromStream m,*i
+    send(*i) do |s,p,o|
+      m[s] = {'uri' => s} unless m[s].class == Hash 
+      m[s][p] ||= []
+      m[s][p].push o unless m[s][p].member? o
+    end; m
+  end
+
+  # tripleStream transformer stack
+  fn 'graph/|',->e,_,m{e.fromStream m, *_['|'].split(/,/)}
+
+  def E.graphFromStream s
+    fn 'graph/'+s.to_s,->e,_,m{e.fromStream m, s}    
+  end
+
+  # placeholder to circumvent empty-graph 404
+  fn 'graph/_',->d,_,m{ m[d.uri] = {} }
+
+  # to_h :: -> Hash
+  def to_h
+    {'uri'=>uri}
+  end
+  
+  def triplrMIMEdispatch &b;mime.do{|mime|
+    yield uri,E::Type,(E MIMEtype+mime)
+      (MIMEsource[mime]||
+       MIMEsource[mime.split(/\//)[0]]).do{|s|
+        send *s,&b }}
+  end
+
+  def graphFromFile g={}
+    g.mergeGraph r(true) if ext=='e' # JSON -> graph
+    [:triplrInode,        # filesystem data
+     :triplrMIMEdispatch].# format-specific tripleStream
+      each{|i| fromStream g,i } # tripleStream -> Graph
+    g
+  end
+
+  def graph g={}
+    docs.map{|d|d.graphFromFile g}  # tripleStream -> graph
+    g
+  end
+
+  # render :: MIME, Graph, env -> String
+  def render mime, d, e
+   E[Render+mime].y d,e
+  end
+
+end

data/infod/W/css.rb

@@ -0,0 +1,24 @@
+class E
+
+  def nokogiri; require 'nokogiri'; Nokogiri::HTML.parse read end
+
+  def triplrCSSselect
+    glob.select(&:f).do{|f|(f.empty? ? [self] : f).map{|r|r.nokogiri.do{|c|c.css(sel).map{|e|
+      yield r.uri+'#css:'+sel,Content,e.to_s
+          }}}} end
+
+  fn 'graph/css',->d,e,m{
+    d.fromStream m,:triplrCSSselect,e['selector']}
+
+  MIMEsource['text/css'] ||= [:triplrSourceCode]
+
+end
+
+class H
+
+  def H.css a,inline=false
+    p=a+'.css'
+    inline ? {_: :style, c: p.E.r} :
+      {_: :link, href: p, rel: :stylesheet, type: E::MIME[:css]} end
+
+end

data/infod/W/csv.rb

@@ -0,0 +1,13 @@
+class E
+
+  # CSV -> tripleStream
+  def triplrCSV d
+    d = @r.q['delim']||d
+    open(node).readlines.map{|l|l.chomp.split(d) rescue []}.do{|t|
+      t[0].do{|x|
+        t[1..-1].each_with_index{|r,ow|r.each_with_index{|v,i|
+            yield uri+'#r'+ow.to_s,x[i],v
+          }}}}
+  end
+
+end

data/infod/W/du.rb

@@ -0,0 +1,35 @@
+#watch __FILE__
+class E
+
+  F["?"]||={}
+  F["?"].update({'du'=>{
+                   'graph' => 'du',
+                    'view' => 'protovis',
+                    'protovis.data' => 'protovis/du',
+                    'protovis.view' => 'starburst'
+                  }})
+
+  fn 'graph/du',->e,_,m{
+    `du -a #{e.sh}`.lines.to_a[0..-2].map{|p|
+      begin
+        s,p = p.split /\t/ # size, path
+        p = p.pathToURI    # path -> URI
+        m[p.uri]={'uri'=>p.uri,'size'=>s.to_i}
+      rescue
+        nil
+      end
+    }
+    m}
+
+  fn 'protovis/du',->e,c{
+    m={}        # model
+    e.map{|u,r| # each resource
+      s = u.sub(/http:..[^\/]+./,'').split '/' # split path
+      p = m            # pointer
+      s[0..-2].map{|s| # each path segment
+        p[s] = {} if !p[s] || p[s].class != Hash # create branch
+        p = p[s]}      # advance pointer down tree
+      p[s[-1]]||=r['size']} # append size to leaf
+    m}
+
+end

data/infod/W/edit.rb

@@ -0,0 +1,8 @@
+#watch __FILE__
+class E
+
+  fn 'view/edit',->d,env{
+    {_: :form, name: :editor, c: 'edit'}
+  }
+
+end

data/infod/W/examine/examine.rb

@@ -0,0 +1,59 @@
+#watch __FILE__
+%w{exhibit hist history normal protovis sw time/graph time/line}.each{|e|require_relative e}
+class E
+
+  fn 'view/examine',->a,m,e{
+    a=Hash[(a.split ',').map{|a|[a,{}]}] # facets
+
+    # facet stats
+    m.map{|s,r| a.map{|p,_|
+        r[p].do{|o|
+          (o.class==Array ? o : [o]).map{|o|
+            a[p][o]=(a[p][o]||0)+1}}}}
+
+
+    # facet identifiers
+    i={};         c=-1
+    n=->o{ 
+      i[o]||='f'+(c+=1).to_s}
+
+    view=F['view/'+ (e.q['ev'] || 'divine') + '/item']
+
+    resources=->{
+      m.map{|u,r| # each resource
+        a.map{|p,_| # each facet
+          [n.(p),r[p].do{|o| # value
+             (o.class==Array ? o : [o]).map{|o|
+               n.(o.to_s) # identifier
+             }}].join ' '
+        }.do{|f|
+          [f.map{|o|'<div class="'+o+'">'}, # facet wrapper
+           view.(r,e), # resource
+           (0..f.size-1).map{|c|'</div>'}]}}}
+
+    [(H.css'/css/examine'),(H.js'/js/examine'),(H.js'/js/mu'),
+
+     a.map{|b,_|{_: :style, class: n.(b)}},
+
+     # facet selection
+     {class: :sidebar, c: a.map{|f,v|
+         {class: :facet, title: f, facet: n.(f), # predicate
+           c: [f.label,
+               v.sort_by{|k,v|v}.reverse.map{|k,v| # sort by popularity
+                 k.respond_to?(:label) &&
+                 {facet: n.(k.to_s), # predicate-object tuple
+                   c: [{_: :span, class: :count, c: v},
+                       {_: :span, class: :name, c: k.label}]}}]}}},
+     
+     (F['view/'+e.q['ev']+'/base']||
+      ->m,e,r{r.()}).(m,e,resources)]}
+  
+  fn 'view/examine/selectFacets',->m,e{
+    [(H.js '/js/examine.selectFacet'),(H.js '/js/mu'),(H.css '/css/examine'),
+     E.graphProperties(m).map{|e|[{c: e},' ']},
+     {_: 'button', c: 'Go'}]}
+
+  fn 'view/e',->m,e{
+    e.q['a'].do{|a|Fn 'view/examine',a,m,e} || 
+                  (Fn 'view/examine/selectFacets',m,e)}
+end

data/infod/W/examine/exhibit.rb

@@ -0,0 +1,34 @@
+class E
+ fn Render+'application/json+exhibit',->d,e{
+  fields=e.q['f'].do{|f|f.split /,/}
+  {items: d.values.map{|r|
+      r.keys.-(['uri']).map{|k|
+        f=k.frag.do{|f|(f.gsub /\W/,'').downcase} # alphanumeric id restriction 
+        if !fields || (fields.member? f)
+          r[f]=r[k][0].to_s # rename fieldnames, unwrap value
+          r.delete k unless f==k # cleanup unless id same as before
+        else
+          r.delete k
+        end}
+      r[:label]=r.delete 'uri' # requires label only
+      r
+    }}.to_json}
+
+  fn 'head/exhibit',->d,e{
+'<link href="'+e['REQUEST_PATH']+e.q.merge({'format' => 'application/json+exhibit'}).qs+'" type="application/json" rel="exhibit/data" />
+<script src="http://api.simile-widgets.org/exhibit/2.2.0/exhibit-api.js?autoCreate=false" type="text/javascript"></script>
+<script>SimileAjax.jQuery(document).ready(function(){var fDone=function(){
+ window.exhibit = Exhibit.create()
+ window.exhibit.configureFromDOM()
+ database.getAllProperties().map(function(f){
+  if (!f.match(/^(label|content)$/)){
+   var a=document.createElement("div")
+   document.getElementById("sidebar").appendChild(a)
+   var x=Exhibit.ListFacet.create({"expression": "."+f},a,exhibit.getUIContext())
+   exhibit.setComponent("facet-"+f, x)}})}
+   window.database = Exhibit.Database.create()
+   window.database.loadDataLinks(fDone)})</script>'}
+
+  fn 'view/exhibit',->d,e{'<table width="100%"><tr valign="top"><td width="25%" id=sidebar></td><td><div ex:role="view"></div></td></tr></table>'}
+
+end

data/infod/W/examine/hist.rb

@@ -0,0 +1,55 @@
+#watch __FILE__
+class E
+
+  # histogram
+  # ?view=h&a=dc:date
+  fn 'view/h',->d,e{
+    a=e.q['a'].do{|e|e.expand} # a :  attribute to chart
+    !a && 'attribute required' || (
+    n=e.q['bins']&&e.q['bins'].to_f.max(999.0).min(2)||42.0 # n :  number of bins
+    v=F['view/'+(e&&e.q['hv']||'tab')] # hv : bin template 
+    (Fn 'u/hist',d,a,n).do{|h| # construct histogram bins
+      [H.css('/css/hist'),H.js('/js/hist'),(Fn 'view/hist',h),
+       h.map{|b,r|{style: 'display:none',
+           :class => 's'+b.to_s.sub(/\./,'_'),
+           c: v.(r,e)}}]})}
+
+  # hist :: Graph, property, numBins  -> {bin -> Graph}
+  fn 'u/hist',->m,p,nb=32.0{
+    h={}; bw=0; max=0; min=0
+    m.map{|u,r|
+      r[p]
+    }.flatten.do{|v|
+      v=v.compact.map{|v|v.to_time.to_f}# values
+      bw = (v.max - v.min) / nb.min(1)} # bin width 
+    m.map{|u,r|
+      r[p].do{|v|v.each{|v|
+          b=(v.to_time.to_f/bw).floor*bw # bin selector
+          h[b] ||= {} 
+          h[b][u]=r}}} # append
+    h} # histogram
+
+  # histTable :: hist -> htmlTable
+  fn 'view/hist',->h{
+    scale = 255 / h.map{|b,r|r.keys.size}.max.to_f
+    b=h.keys.sort
+    span=(b.size / 8).min 1
+    i=-1
+    '<table cellspacing=0 style="width:100%;max-width:100%"><tr class=histLegend>'+
+    H(b.select{|b|
+        i = i + 1
+        i % span == 0
+      }.map{|b|
+        {_: :td,
+          :class => :histLegendPt,
+          colspan: span,
+          c: {_: :span, :class => :histLabel, c: b > 1 ? b.to_i : b}}})+
+    '</tr><tr class=hist>'+
+    H(b.map{|b|{_: :td, title:b.to_s.sub(/\./,'_'),style: 'background-color:#'+
+          ('%02x' % (255-(h[b].do{|p|
+                            p.keys.size * scale
+                          }||0))).do{|x|
+            'ff'+x+x}}})+
+    '</tr></table>'}
+
+end

data/infod/W/examine/history.rb

@@ -0,0 +1,19 @@
+class E
+
+  def triplrMozHist
+    c = @r.q['c'].match(/[0-9]+/) ? @r.q['c'] : '18'
+    q = @r.q['match'].do{|m|m.match(/[a-zA-Z\-_\.\/]+/) && "and p.url like '#{@r.q.has_key?('full')?'':'%'}#{m}%'"}
+    t = @r.q['t'].do{|t| "and h.visit_date < #{Time.parse(t).to_f*1e6}"}
+
+    `sqlite3 -separator "\t" #{sh} "select p.url, r.url, h.visit_date, hr.visit_date from moz_places as p,moz_places as r, moz_historyvisits as h, moz_historyvisits as hr where p.id = h.place_id and r.id = hr.place_id and hr.id = h.from_visit #{q} #{t} order by h.visit_date desc limit #{c}"`.lines.to_a.map{|i|i.split "\t"}.do{|l|
+
+      yield 'prev','url',@r['REQUEST_PATH']
+      yield 'prev','t',Time.at(l[-1][2].to_f/1e6).iso8601
+
+      l.map{|i|
+        yield i[0], Date, Time.at(i[2].to_f/1e6)
+        yield i[1], Date, Time.at(i[3].to_f/1e6)
+        yield i[0],'referer',i[1].E }
+
+    } end
+end

data/infod/W/examine/normal.rb

@@ -0,0 +1,31 @@
+#watch __FILE__
+class E
+  fn 'filter/map',->o,m,_{
+    o.except('filter','graph','view').map{|p,n|
+     p=p.expand
+     n=n.expand
+      p!=n &&
+      m.values.map{|r|
+        r[p].do{|o|
+          r[n]=o
+          r.delete p }}}}
+
+  fn 'view/map',->d,e{
+    [H.js('/js/normal'),(H.once e,:mu,(H.js '/js/mu')),
+'<style>.b {display:inline-block;font-weight:bold;padding-right:.8em;text-align:right;min-width:12em}
+        .exerpt {display:inline-block;max-height:1em;overflow:hidden;max-width:44em;font-size: .9em} </style>',
+     {_: :form, c:
+      [d.values.map(&:keys).flatten.uniq.-(['uri']).do{|ps|
+        ps.map{|p|
+           [{class: :b, c: p},{_: :select, name: p, c: 
+            (ps + [Date,Creator,Content,Title]).map{|q|
+              {_: :option, c: q}.
+                  update(p==q ? {selected: :selected}:{})}},
+              {class: :exerpt, c: d.values.map{|r|r[p]}.flatten.uniq.html},
+              '<br>']}},
+       {_: :input, type: :hidden, name: :view, value: :tab},
+       {_: :input, type: :hidden, name: :filter, value: :map},
+       {_: :input, type: :submit}
+       ]}]}
+
+end

data/infod/W/examine/protovis.rb

@@ -0,0 +1,30 @@
+#watch __FILE__
+class E
+
+  F["?"]||={}
+  F["?"].update({'arc'=>{
+                    'view' => 'protovis',
+                    'protovis.data' => 'protovis/net',
+                    'protovis.view' => 'arc'
+                  }})
+
+  fn 'protovis/net',->d,e{
+    i=-1
+    x={} # uri -> index
+    a=[] # arcs
+    d.values.each{|r|
+      r.triples{|s,p,o|
+        o.respond_to?(:uri) &&
+        o.uri.do{|o|
+          x[s]||=i+=1
+          x[o]||=i+=1
+          a.push({source: x[s], target: x[o], value: 3})}}}
+    {nodes: x.map{|u,_|{nodeName: d[u][Title]||u.label, group: 0}},
+      links: a}}
+  
+  fn 'view/protovis',->d,e{
+    [H.js('/js/protovis/protovis-r3.2'),{id: :fig},
+     {_: :script,type: 'text/javascript+protovis',
+       c: ['var d='+(Fn e.q['protovis.data'],d,e).to_json,
+           E['http://'+e['SERVER_NAME']+'/js/protovis/'+e.q['protovis.view']+'.js'].r].cr}]}
+end