infod 0.0.1 → 0.0.2

data/infod/W.rb

@@ -1,34 +0,0 @@
-%w{
-core
-vfs
-audio
-cal
-chat
-color
-css
-csv
-du
-edit
-examine/examine
-feed
-find
-grep
-html
-image
-json
-kv
-ls
-mail
-page
-post
-pdf
-rdf
-schema
-search
-shell
-source
-table
-text
-tree
-wiki
-}.each{|r|require_relative 'W/'+r}

data/infod/W/audio.rb

@@ -1,56 +0,0 @@
-#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

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

data/infod/W/color.rb

@@ -1,28 +0,0 @@
-#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

@@ -1,77 +0,0 @@
-
-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

@@ -1,24 +0,0 @@
-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/du.rb

@@ -1,35 +0,0 @@
-#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

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

data/infod/W/examine/exhibit.rb

@@ -1,34 +0,0 @@
-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

@@ -1,55 +0,0 @@
-#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

@@ -1,19 +0,0 @@
-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

@@ -1,31 +0,0 @@
-#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

@@ -1,30 +0,0 @@
-#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