infod 0.0.2 → 0.0.3.0

data/infod/{H/time.rb → time.rb}

@@ -1,7 +1,7 @@
 #watch __FILE__
 
 class Time
-  def html; H({_: :time, datetime: iso8601, c: to_s}) end
+  def html e=nil; H({_: :time, datetime: iso8601, c: to_s}) end
 end
 
 class Object
@@ -17,14 +17,12 @@ end
 
 class E
 
-  # linked-timeline
   fn 'view/timegraph',->g,e{
-    i = F['view/timegraph/item']
-    Fn 'view/timegraph/base',g,e,->{
+    i = F['itemview/timegraph']
+    Fn 'baseview/timegraph',g,e,->{
       g.map{|u,r|i.(r,e)}}}
-  
-  # timegraph container-element
-  fn 'view/timegraph/base',->d,e,c{
+
+  fn 'baseview/timegraph',->d,e,c{
     Fn 'filter/timegraph', e.q,d,nil
 
     e[:graph] = d
@@ -36,7 +34,7 @@ class E
     [H.css('/css/timegraph'),{class: :timegraph, style: "height: #{h}em", c: c.()}]}
 
   # timegraph entry
-  fn 'view/timegraph/item',->r,x{
+  fn 'itemview/timegraph',->r,x{
 
     # on resources w x-axis field
     if r[x.q['x'] || Date]
@@ -57,8 +55,7 @@ class E
              }]},
        
        # arc(s)
-       {_: :svg, c:
-         r[arc].do{|a|a.map{|e|
+       {_: :svg, c: r.class==Hash && r[arc].do{|a|a.map{|e|
              # target resource
              x[:graph][e.uri].do{|e|
                # arc path
@@ -78,8 +75,8 @@ class E
     y = e['y']         # y property
 
     # 2D values
-    vX = m.map{|_,r|r[x]}.flatten.compact.map(&:to_time).map &:to_f
-    vY = m.map{|_,r|r[y]}.flatten.compact.map &:to_f
+    vX = m.map{|_,r|r[x] if r.class==Hash}.flatten.compact.map(&:to_time).map &:to_f
+    vY = m.map{|_,r|r[y] if r.class==Hash}.flatten.compact.map &:to_f
     maxX = vX.max || 0
     minX = vX.min || 0
     maxY = vY.max || 0
@@ -91,28 +88,11 @@ class E
 
     # annotate resources
     m.map{|u,r|
-      r['x'] = [*r[x]][0].do{|v|(maxX - v.to_time.to_f)*scaleX} || 0
-      r['y'] = y.do{|y|[*r[y]][0].do{|v|(maxY - v.to_f)*scaleY} || 0} || rand(100)}}
-
- ## SIMILE Timeline 
- #  http://www.simile-widgets.org/
-
-  fn Render+'application/timeline',->d,e{
-    {dateTimeFormat: 'iso8601',
-      events: d.values.map{|r|
-        r[Date].do{|d|
-          {description: r.uri,
-          title: r[Title],
-          start: [*d][0],
-          link: r.url,
-        }}}.compact}.to_json}
-
-  fn 'head/timeline',->d,e{
-  ['<script>var t="'+e['REQUEST_PATH']+e.q.except('view','?').merge({format: 'application/timeline'}).qs+'"</script>',
-   (H.js '/js/timeline'),
-   (H.js 'http://api.simile-widgets.org/timeline/2.3.1/timeline-api')]}
-
-  fn 'view/timeline',->d,e{'<div id="tl" class="timeline-default" style="height: 300px;"></div>'}
+      if r.class==Hash
+        r['x'] = r[x].class==Array && r[x][0].do{|v|(maxX - v.to_time.to_f)*scaleX} || 0
+        r['y'] = y.do{|y|[*r[y]][0].do{|v|(maxY - v.to_f)*scaleY} || 0} || rand(100)
+      end
+    }}
 
   # tripleStream -> tripleStream
   def dateNorm *f

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: infod
 version: !ruby/object:Gem::Version
-  version: 0.0.2
+  version: 0.0.3.0
   prerelease: 
 platform: ruby
 authors:
@@ -9,7 +9,7 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2013-11-22 00:00:00.000000000 Z
+date: 2014-01-15 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: rack
@@ -59,7 +59,7 @@ dependencies:
     - - ! '>='
       - !ruby/object:Gem::Version
         version: '0'
-description: a www-server
+description: www-server
 email: _@whats-your.name
 executables:
 - infod
@@ -68,67 +68,56 @@ extra_rdoc_files: []
 files:
 - bin/infod
 - infod.rb
-- config.ru
-- infod/Th/perf.rb
-- infod/Th/util.rb
-- infod/Th/PATCH.rb
-- infod/Th/POST.rb
-- infod/Th/404.rb
-- infod/Th/GET.rb
-- infod/Th/500.rb
-- infod/Th/HEAD.rb
-- infod/Th/uid.rb
-- infod/Es.rb
-- infod/H/audio.rb
-- infod/H/microblog.rb
-- infod/H/forum.rb
-- infod/H/hf.rb
-- infod/H/edit.rb
-- infod/H/threads.rb
-- infod/H/mail.rb
-- infod/H/blog.rb
-- infod/H/facets.rb
-- infod/H/cal.rb
-- infod/H/who.rb
-- infod/H/wiki.rb
-- infod/H/histogram.rb
-- infod/H/time.rb
-- infod/K.rb
-- infod/Rb.rb
-- infod/Y.rb
+- infod/audio.rb
+- infod/fs.rb
+- infod/csv.rb
+- infod/grep.rb
+- infod/microblog.rb
+- infod/forum.rb
+- infod/json.rb
+- infod/graph.rb
+- infod/sh.rb
+- infod/PATCH.rb
+- infod/POST.rb
+- infod/404.rb
+- infod/man.rb
+- infod/GET.rb
+- infod/constants.rb
 - infod/infod.rb
-- infod/Es/fs.rb
-- infod/Es/pdf.rb
-- infod/Es/csv.rb
-- infod/Es/grep.rb
-- infod/Es/filter.rb
-- infod/Es/json.rb
-- infod/Es/sh.rb
-- infod/Es/man.rb
-- infod/Es/glob.rb
-- infod/Es/ls.rb
-- infod/Es/html.rb
-- infod/Es/code.rb
-- infod/Es/text.rb
-- infod/Es/feed.rb
-- infod/Es/du.rb
-- infod/Es/groonga.rb
-- infod/Es/out.rb
-- infod/Es/mail.rb
-- infod/Es/image.rb
-- infod/Es/css.rb
-- infod/Es/kv.rb
-- infod/Es/rdf.rb
-- infod/Es/schema.rb
-- infod/Es/search.rb
-- infod/Es/mime.rb
-- infod/Es/index.rb
-- infod/Es/find.rb
-- infod/Es/pager.rb
-- infod/Es/in.rb
-- infod/H.rb
-- infod/N.rb
-- infod/Th.rb
+- infod/HTTP.rb
+- infod/glob.rb
+- infod/edit.rb
+- infod/ls.rb
+- infod/page.rb
+- infod/html.rb
+- infod/threads.rb
+- infod/500.rb
+- infod/code.rb
+- infod/text.rb
+- infod/HEAD.rb
+- infod/feed.rb
+- infod/ruby.rb
+- infod/du.rb
+- infod/groonga.rb
+- infod/mail.rb
+- infod/blog.rb
+- infod/image.rb
+- infod/facets.rb
+- infod/cal.rb
+- infod/css.rb
+- infod/postscript.rb
+- infod/kv.rb
+- infod/rdf.rb
+- infod/schema.rb
+- infod/wiki.rb
+- infod/search.rb
+- infod/mime.rb
+- infod/names.rb
+- infod/histogram.rb
+- infod/index.rb
+- infod/find.rb
+- infod/time.rb
+- infod/lambda.rb
 homepage: http://whats-your.name/www/
 licenses:
 - Unlicense
@@ -153,5 +142,5 @@ rubyforge_project:
 rubygems_version: 1.8.23
 signing_key: 
 specification_version: 3
-summary: a www-server
+summary: www-server
 test_files: []

data/config.ru

@@ -1,3 +0,0 @@
-require 'infod'
-use Rack::Deflater
-run E

data/infod/Es.rb

@@ -1,31 +0,0 @@
-%w{
-code
-css
-csv
-du
-feed
-filter
-find
-fs
-glob
-grep
-groonga
-html
-image
-in
-index
-json
-kv
-ls
-mail
-man
-mime
-out
-pager
-pdf
-rdf
-schema
-search
-sh
-text
-}.map{|e|require_relative 'Es/'+e}

data/infod/Es/filter.rb

@@ -1,75 +0,0 @@
-class E
-
-  # narrow to specified properties
-  fn 'filter/p',->e,m,_{
-    a=Hash[*e['p'].split(/,/).map(&:expand).map{|p|[p,true]}.flatten]
-    m.values.map{|r|
-      r.delete_if{|p,o|!a[p]}}}
-
-  fn 'filter/frag',->e,m,r{
-    f = [r.uri].concat m['frag']['res']
-    m.keys.map{|u|
-      m.delete u unless f.member? u}}
-
-  fn 'filter/basic',->o,m,_{
-    d=m.values
-    o['match'] && (p=o['matchP'].expand
-                   d=d.select{|r|r[p].do{|p|(p.class==Array ? p[0] : p).to_s.match o['match']}})
-    o['min'] && (min=o['min'].to_f
-                 p=o['minP'].expand
-                 d=d.select{|r|r[p].do{|p|(p.class==Array ? p[0] : p).to_f >= min }})
-    o['max'] && (max=o['max'].to_f
-                 p=o['maxP'].expand
-                 d=d.select{|r|r[p].do{|p|(p.class==Array ? p[0] : p).to_f <= max }})
-    o['sort'] && (p=o['sort'].expand
-                       _ = d.partition{|r|r[p]}
-                       d =_[0].sort_by{|r|r[p]}.concat _[1] rescue d)
-    o['sortN'] && (p=o['sortN'].expand
-                       _ = d.partition{|r|r[p]}
-                       d =_[0].sort_by{|r|
-                     (r[p].class==Array && r[p] || [r[p]])[0].do{|d|
-                       d.class==String && d.to_i || d
-                     }
-                   }.concat _[1])
-    o.has_key?('reverse') && d.reverse!
-    m.clear;d.map{|r|m[r['uri']]=r}}
-
-  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}
-       ]}]}
-  
-  def self.filter o,m,r
-    o['filter'].do{|f|f.split(/,/).map{|f|Fn 'filter/'+f,o,m,r}}
-    Fn'filter/basic',o,m,r if o.has_any_key ['reverse','sort','max','min','match']
-    m
-  end
-
-  def E.graphProperties g
-    g.values.select{|v|v.respond_to? :keys}.map(&:keys).flatten.uniq
-  end
-
-end

data/infod/Es/glob.rb

@@ -1,22 +0,0 @@
-class E
-
-  # glob :: pattern -> [E]
-  def glob p=""
-    (Pathname.glob d + p).map &:E
-  end
-
-  fn 'set/glob',->d,e=nil,_=nil{
-    [d,d.pathSegment].compact.map(&:glob).flatten[0..3e3]}
-
-  fn 'req/randomFile',->e,r{
-    g = F['set/glob'][e]
-    !g.empty? ? [302, {Location: g.random.uri}, []] : [404]}
-
-  def docs
-    doc = self if e # directly-referenced doc
-    docs = docBase.glob ".{e,html,n3,nt,owl,rdf,ttl}" # basename-sharing docs
-    dir = (d? && uri[-1]=='/' && uri.size>1) ? c : [] # trailing slash descends
-    [doc,docs,dir].flatten.compact
-  end
-
-end

data/infod/Es/html.rb

@@ -1,271 +0,0 @@
-#watch __FILE__
-
-def H _
-  # Ruby object-literal syntax as HTML constructors
-  case _
-  when Hash then
-    '<'+(_[:_]||:div).to_s+(_.keys-[:_,:c]).map{|a|
-      ' '+a.to_s+'='+"'"+
-      _[a].to_s.hsub({"'"=>'%27',
-                       '>'=>'%3E',
-                       '<'=>'%3C'})+"'"}.join+'>'+
-      (_[:c] ? (H _[:c]) : '')+
-      (_[:_] == :link ? '' : ('</'+(_[:_]||:div).to_s+'>'))
-  when Array then
-    _.map{|n|H n}.join
-  else
-    _.to_s
-  end
-end
-
-class H
-
-  def H.[] h; H h end
-
-  def H.js a,inline=false
-    p=a+'.js'
-    inline ? {_: :script, c: p.E.r} :
-    {_: :script, type: "text/javascript", src: p}
-  end
-
-  def H.once e,n,*h
-    return if e[n]
-    e[n]=true
-    h
-  end
-end
-
-class Array
-  def html table=true
-    map(&:html).join ' '
-  end
-end
-
-class Object
-  def html *a
-    name = self.class
-    href = "https://duckduckgo.com/?q=ruby+#{name}"
-    "<a href=#{href}><b>#{name}</b></a>"
-  end
-end
-
-class String
-  def br
-    gsub(/\n/,"<br>\n")
-  end
-  def href name=nil
-    '<a href="'+self+'">'+(name||(Fn 'abbrURI',self))+'</a>'
-  end
-  def html
-    if match /\A(\/|http)[\S]+\Z/
-      href
-    else
-      self
-    end
-  rescue
-    self
-  end
-end
-
-class Fixnum
-  def html; H({_: :input, type: :number, value: to_s}) end
-end
-
-class Float
-  def html; H({_: :input, type: :number, value: to_s}) end
-end
-
-class TrueClass
-  def html; H({_: :input, type: :checkbox, title: :True, checked: :checked}) end
-end
-
-class FalseClass
-  def html; H({_: :input, type: :checkbox, title: :False}) end
-end
-
-class Hash
-  def html
-    H({_: :table, class: :html, c: 
-        map{|k,v|
-          {_: :tr, property: k, c:
-            [{_: :td,
-               c: {_: :a, name: k,
-                 href: (k == 'uri' ? v : k),
-                 c: (Fn 'abbrURI',k)}, class: :key},
-             {_: :td,
-               c: (case k
-                   when E::Content
-                     {_: :pre, style: "white-space: pre-wrap", c: v}
-                   when 'uri'
-                     u = v.E
-                     {_: :a, id: u, href: u.url, c: v}
-                   else
-                     v.html
-                   end), class: :val}].cr}}.cr})
-  end
-end
-
-class E
-  def html name=nil,l=false
-      (l ? url : uri).href name
-   end
-
-  def link
-    html '#',true
-  end
-
-  fn 'abbrURI',->u{
-    u.to_s.sub(/(?<scheme>[a-z]+:\/\/)?(?<abbr>.*?)(?<frag>[^#\/]*)$/,
-     '<div class="abbr"><div class="scheme">\k<scheme></div>\k<abbr></div><div class="frag">\k<frag></div>')}
-
-  fn 'head',->d,e{
-    [{_: :title, c: e.uri},
-     (Fn 'head.formats',e),
-     (Fn 'head.icon')].cr}
-
-  fn 'head.formats',->e{
-    formats = %w{text/plain text/n3 application/json+ld}
-    formats.map{|f|
-      {_: :link, rel: :meta, type: f,
-        href:'http://' + e['SERVER_NAME'] + e['REQUEST_PATH'] + e.q.merge({'format' => f}).qs}}.cr}
-
-  fn 'head.icon',->{{_: :link, href:'/css/misc/favicon.ico', rel: :icon}}
-
-  fn 'view/select',->d,e{#(Fn 'view/divine/set',d,e)||
-                  (Fn 'view/divine/files',d,e)||
-   d.values.map{|r|Fn 'view/divine/resource',r,e}}
-
-  # default view
-  F['view'] = F['view/select']
-
-  fn 'view/base',->d,e{
-    [H.once(e,'base',H.css('/css/html')),
-     d.values.map(&:html)]}
-
-  # select a view based on RDF-type majority
-  fn 'view/divine/set',->d,e{
-    # we'd be throwing away oddball resources to select one view for all of them
-    # but maybe you have a specific reason to
-    # inbuilt views support calling on set or per-resource basis, via "once" spec of set-wide components
-    # so views are selected per-resource unless you hack here..
-  }
-
-  fn 'view/divine/files',->d,e{
-    d.values.map{|e|e.E.base}.do{|b|
-      s = b.size.to_f # size of set
-      t = 0.42        # threshold, max of 0.5 as file and RDF resource are separate
-      if b.grep(/^msg\./).size / s > t
-        Fn 'view/threads',d,e
-
-      elsif b.grep(AudioFile).size / s > t
-        Fn 'view/audio', d,e
-
-      elsif b.grep(/(gif|jpe?g|png)$/i).size / s > t
-        Fn 'view/th', d,e
-
-      elsif b.grep(/\.log$/).size / s > t
-        Fn 'view/chat', d,e
-
-      else false
-      end}}
-
-  # select a view for a RDF resource
-  fn 'view/divine/resource',->r,e{
-    graph = {r.uri => r}
-    view = F['view/base']
-    # find types, skipping malformed/missing info
-    if r.class == Hash
-      r[Type].do{|types|
-        views = types.map{|t|
-          # discard non-URIs
-          t.uri if t.respond_to? :uri}.
-        compact.map{|t|
-          subtype = t
-          type = subtype.split(/\//)[-2]
-          [F['view/' + subtype],
-           F['view/' + type]]}.flatten.compact
-        view = views[0] unless views.empty?}
-    end
-    view[graph,e]}
-
-  # multiple views (comma-separated)
-  fn 'view/multi',->d,e{
-    e.q['views'].split(',').map{|v|
-      F['view/'+v].do{|f|f[d,e]}}}
-
-  def triplrBlob
-    glob.select(&:f).do{|f|f.map{|r|
-        yield r.uri,Type,E('blob')
-        yield r.uri,Content,r.r}} end
-
-  def triplrHref enc=nil
-    puts "triplrHref #{uri} #{d}"
-    yield uri,Content,(f && read).do{|r|enc ? r.force_encoding(enc).to_utf8 : r}.hrefs
-  end
-
-  fn Render+'text/html',->d,e{
-    v = e.q['view'].to_s
-    h = F['head/'+v] || F['head'] 
-    v = F['view/'+v] || F['view']
-    H(e.q.has_key?('un') ? v[d,e] :
-      ['<!DOCTYPE html>',
-       {_: :html,
-         c: [{_: :head,
-               c: ['<meta charset="utf-8" />',
-                   h[d,e]]},
-             {_: :body, c: v[d,e]}].cr}].cr)}
-
-  
-  # property-selector toolbar (requires RDFa views)
-  fn 'view/p',->d,e{
-    [H.once(e,'property.toolbar',H.once(e,'p',(H.once e,:mu,H.js('/js/mu')),
-     H.js('/js/p'),
-     H.css('/css/table')),
-     {_: :a, href: '#', c: '-', id: :hideP},
-     {_: :a, href: '#', c: '+', id: :showP},
-     {_: :span, id: 'properties',
-       c: E.graphProperties(d).map{|k|
-         {_: :a, class: :n, href: k, c: k.label+' '}}},
-       {_: :style, id: :pS},
-       {_: :style, id: :lS}),
-     (Fn 'view/'+(e.q['pv']||'table'),d,e)]}
-
-  # table-cell placement on sparse matrix of rows/columns
-  # cal.rb contains an example usage
-  fn 'view/t',->d,e,l=nil,a=nil{
-    [H.once(e,'table',H.css('/css/table')),
-     {_: :table, c:
-     {_: :tbody, c: (Fn 'table/'+(l||e.q['table']),d).do{|t|
-          rx = t.keys.max
-          rm = t.keys.min
-          c = t.values.map(&:keys)
-          cm = c.map(&:min).min
-          cx = c.map(&:max).max
-          (rm..rx).map{|r|
-            {_: :tr, c: 
-              t[r].do{|r|
-                (cm..cx).map{|c|
-                  r[c].do{|c|
-                    {_: :td, class: :cell, c:(Fn 'view/'+(a||e.q['cellview']),c,e)}
-                    }||{_: :td}}}}}}}}]}
-
-  fn 'view/table',->i,e{[H.css('/css/table'),(Fn 'table',i.values,e)]}
-
-  fn 'table',->es,q=nil{
-    ks = {} # predicate table
-    es.map{|e|e.respond_to?(:keys) &&
-              e.keys.map{|k|ks[k]=true}}
-    keys = ks.keys
-    keys.empty? ? es.html :
-    H({_: :table,:class => :tab,
-        c: [{_: :tr,
-              c: keys.map{|k|
-                {_: :th, class: :label, property: k,
-                  c: q ? {_: :a,
-                    href: q['REQUEST_PATH']+q.q.except('reverse').merge({'sort'=>k}).merge(q.q.member?('reverse') ? {} : {'reverse'=>true}).qs,
-                    c: (Fn 'abbrURI',k)} : k}}},
-            *es.map{|e|
-              {_: :tr, about: e.uri, c:
-                keys.map{|k| {_: :td, property: k, c: e[k].send(k=='uri' ? :href : :html)} }}}]})}
-
-end