infod 0.0.2 → 0.0.3.0

data/infod/Es/rdf.rb

@@ -1,35 +0,0 @@
-#watch __FILE__
-class E
-
-  def self.renderRDF d,f
-    require 'linkeddata'
-    (RDF::Writer.for f).buffer{|w|
-      d.values.each{|r| r.triples{|s,p,o|
-          s = RDF::URI s
-          p = RDF::URI p
-          o = ([E,Hash].member?(o.class) ? (RDF::URI o.uri) : (RDF::Literal o)) rescue nil
-          (w << (RDF::Statement.new s,p,o) if o ) rescue nil
-        }}}
-  end
-
-  def triplrRDF format=:rdfa, localFile=true  ; require 'linkeddata'
-    location = (localFile && f) ? d : uri
-    puts [:RDF,location].join ' '
-    RDF::Reader.open(location, :format => format){|r|
-      r.each_triple{|s,p,o|
-        yield s.to_s, p.to_s, [RDF::Node, RDF::URI].member?(o.class) ? E(o) : o.value.do{|v|v.class == String ? v.to_utf8 : v}}}
-  end
-
-  [['application/ld+json',:jsonld],
-   ['application/json+ld',:jsonld],
-   ['application/jsonld',:jsonld],
-   ['application/rdf+xml',:rdfxml],
-   ['application/rdfxml',:rdfxml],
-   ['text/ntriples',:ntriples],
-   ['text/turtle',:turtle],
-   ['text/rdf+n3',:n3],
-   ['text/n3',:n3]
-  ].map{|mime|
-    F[Render+mime[0]] = ->d,a=nil{E.renderRDF d, mime[1]}}
-
-end

data/infod/H.rb

@@ -1,15 +0,0 @@
-%w{
-audio
-cal
-edit
-facets
-forum
-hf
-histogram
-mail
-microblog
-threads
-time
-who
-wiki
-}.each{|r|require_relative 'H/'+r}

data/infod/H/audio.rb

@@ -1,19 +0,0 @@
-class E
-
-  fn 'set/audio',->d,e,m{d.take.select{|e|e.ext.match AudioFile}}
-  fn 'set/video',->d,e,m{d.take.select{|e|e.ext.match VideoFile}}
-
-  AudioK = {}
-  %w{Album-Movie-Show_title Lead_performers-Soloists Title-songname-content_description}.map{|a|Audio + a}.concat(['uri',Stat+'mtime', Stat+'size']).map{|p|AudioK[p] = true}
-
-  fn 'view/audio',->d,e{
-    d = d.dup
-    d.delete_if{|p,o| !p.match AudioFile }
-    d.values.map{|r| r.delete_if{|p,o| !AudioK[p] }}
-
-    [(H.once e, :mu, (H.js '/js/mu')),
-     (H.once e, :audio, (H.js '/js/audio'), (H.css '/css/audio'), {id: :rand, c: :r}, {id: :jump, c: '→'}, {id: :info, target: :_blank, _: :a},
-      {_: e.q.has_key?('video') ? :video : :audio, id: :media, controls: true}), '<br>',
-     F['view/table'][d,e]]}
-
-end

data/infod/H/blog.rb

@@ -1,15 +0,0 @@
-class E
-
-  # TODO this already exists so throw some porcelain in here for typical "blog" use-case
-
-  F['/blog/GET'] =-> e,r {
-   
-  }
-
-
-  F['/blog/post/GET'] =-> e,r {
-   
-  }
-
-
-end

data/infod/H/cal.rb

@@ -1,81 +0,0 @@
-#watch __FILE__
-class E
-
-  # TODO test rww.io/data.fm linked-data calendar apps for compatibility with our backend (and fix our backend if it doesn't work, obiously..)
-
-    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 '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

data/infod/H/edit.rb

@@ -1,88 +0,0 @@
-watch __FILE__
-class E
-
-  fn 'protograph/editable',->resource,env,graph{
-    Fn 'protograph/_',resource,env,graph}
-
-  fn 'graph/editable',->resource,env,graph{
-    resource.fromStream graph, :triplrFsStore
-    [Title,Creator,Content].map{|u|graph[u]||={}}}
-
-  # show resource w/ links into editor
-  fn 'view/edit',->g,e{
-    [(H.once e, 'edit', (H.css '/css/edit')),
-     g.map{|uri,s| uri && s &&
-       (url = uri.E.localURL e
-       {class: :resource,
-         c: [{_: :a, class: :uri, id: uri, c: uri, href: url, title: 'view '+uri},
-             {_: :a, class: :addField, c: '+add field', href: url+'?graph=_&view=editP'},
-             s.map{|p,o|
-              {class: :property,
-                 c: [{_: :a, class: :edit, c: :edit,
-                       href: e['REQUEST_PATH']+'?graph=editable&filter=p&view=editPO&p=uri,'+CGI.escape(p)},
-                     (case p
-                      when 'uri'
-                        {_: :a, class: :uri, c: p, href: p}
-                      when Content
-                        {_: :pre, c: o}
-                      else
-                        o.html
-                      end)]}}]})}]}
-
-  # select or mint a property to edit
-  fn 'view/editP',->g,e{
-    [(H.once e, 'edit', (H.css '/css/edit')),
-
-     # core properties
-     [Date,Title,Creator,Content,Label].map{|p|
-       {_: :a, href: p, c: p.label+' '}},
-
-     # URI-typed input
-     {_: :form, action: e['REQUEST_PATH'], method: :GET,
-       c: [{_: :input, type: :url, name: :p, pattern: '^http.*$', size: 53},
-
-           # editor arguments
-           { filter: :p,
-              graph: :editable,
-               view: :editPO}.map{|n,v|
-           {_: :input, type: :hidden, name: n, value: v}},
-
-           # submit
-           {_: :input, type: :submit, value: 'property'},
-          ]},
-     # schema search-engine
-     #{_: :iframe, style: 'width: 100%;height:42ex', src: 'http://data.whats-your.name'}
-    ]}
-
-  # edit triples
-  fn 'view/editPO',->g,e{
-
-    p = e.q['p'].expand
-
-    # triple -> input
-    triple = ->s,p,o{
-
-      # triple identifier
-      i = (s.E.concatURI p).concatURI E(p).literal o
-
-      [(case p
-        when Content
-          {_: :textarea, name: i, c: o, rows: 24, cols: 80}
-        else
-          {_: :input, name: i, value: o}
-        end
-        )]}
-
-    {_: :form, name: :editor, method: :POST, action: e['REQUEST_PATH'],
-      c: [(H.once e, 'edit', (H.css '/css/edit')),
-          {_: :h2, c: p},
-          # existing entries
-          g.map{|s,r| r[p].do{|p| p.map{|o|
-              triple[s,p,o]}.cr}},
-          # new entry
-          triple[e['uri'],p,''],' ',
-          {_: :input, type: :submit, value: 'save'},
-          {_: :a, c: ' cancel', href: e['REQUEST_PATH']+'?view=edit&graph=editable'}
-         ]}}
-
-end

data/infod/H/forum.rb

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

data/infod/H/hf.rb

@@ -1,114 +0,0 @@
-#watch __FILE__
-
-# databases of HF frequencies
-# curl http://eibispace.de/dx/sked-b11.csv > s.ssv
-# wget http://www1.m2.mediacat.ne.jp/binews/bib11.zip http://hfcc.org/data/b11/b11allx2.zip
-# unzip *zip
-
-class E
-
-  F["?"]||={}
-  F["?"].update({
-                  'sw' => {
-                    'view' => 'examine',
-                    'ev'=>'sw',
-                    'a'=>'Lng:49',
-                    'minP' => 'FREQ',
-                    'maxP' => 'FREQ',
-                    'filter' => 'map',
-                    'kHz:75' => 'FREQ',
-                    'Time(UTC):93' => 'UTC',
-                    'Station:201' => 'STATION',
-                  }
-                })
-
-  fn 'view/sw/base',->d,e,c{
-    bands = {
-      120 => [2200,2500],
-      90 => [3100,3450],
-      75 => [3890,4123],
-      60 => [4740,5125],
-      49 => [800,6300],
-      40 => [7200,7600],
-      31 => [9200,9999],
-      25 => [11500,12160],
-      22 => [13500,13900],
-      19 => [15001,15900],
-      16 => [17500,17900],
-      13 => [21450,21850],
-      11 => [25700,26500],
-    }
-    band=0
-    e[:clr]={}
-    e[:fmax]=d.map{|_,r|r['FREQ'][0].to_f}.flatten.max||30000.0
-    e[:scale]=100/(e[:fmax] - (d.map{|_,r|r['FREQ'][0].to_f}.flatten.min||0))
-    [(H.css '/css/sw'),(H.js '/js/mu'),(H.js '/js/sw'),
-     {id: :bands,
-       c: bands.map{|meters,bounds|
-         band += 1
-         {_: :a, class: :band,
-           style: "background-color:##{band % 2 == 0 ? 'fff' : 'cecece'}",
-           c: '<span style="font-size:1.4em">'+meters.to_s+'</span>m',
-           href: meters.to_s+'m.html'}}},
-       {id: :scales, c: %w{800 1200 1600}.map{|b|{_: :span,class: :scale, c: b}}},
-       {id: :spectrum, style: 'height:800px;position:absolute', c:
-         [{id: 't'},{class: 'loc'},{id: 'clock'},c.(),
-          (0..23).map{|h|
-            [0,15,30,45].map{|m|
-              t = h*60+m
-              left = t*4
-              utc="%02d%02d"%[h,m]
-              [(1..3).map{|l|
-                 {_: :span, class: :u, c: utc, style: "top:#{l*25}%;left:#{left-19}px;"}},
-                 {class: :s,style: "border-color:#{m==0 ? 'white' : '#666'};left:#{left}px;"}]}}]}]}
-  
-  fn 'view/sw/item',->r,x{
-    min=->t{t='%04d' % (t.class==String && t.empty? ? 0 : t)
-      t[0..1].to_i*60+t[2..3].to_i}
-    u = r['UTC'][0].to_s.match(/(\d+)-?(\d+)?/)
-    b = u[1].to_i.max 2359
-    e = (u[2] ? u[2].to_i : b + 30).max 2359
-    f = r['FREQ'][0].to_f
-    fi = f.to_i
-    n = fi / 100
-    x[:clr][n] ||= '#%06x' % rand(16777216)
-    f && b && e &&
-    (bmin=min.(b); emin=min.(e)
-     top=(x[:fmax]-f)*x[:scale]
-     v=->b,e{
-       {t: r.except('uri','UTC','FREQ').values.join(' '),:class => :bar, b: b, e: e, f: fi,style:"
-background-color:#{x[:clr][n]};
-top: #{top}%;
-left: #{b*4.0}px;
-width:#{(e-b) * 4.0}px;
-",c: (e-b > 60 ?
-      ((0..(e-b)/60).map{|h|
-         {_: :span, style: "position:absolute;left:#{h*120}px;top:0",c: f}}) : f)}}
-     (bmin > emin) ? [v.(0,emin),
-                      v.(bmin,1440)] : v.(bmin,emin))}
-  
-  fn 'view/sw',->d,e{
-    i=F['view/sw/item']
-    Fn 'view/sw/base',d,e,->{d.map{|u,r|i.(r,e)}}}
-
-  fn 'filter/gh',->o,m,_{
-    m.values.map{|r|
-      r[Content].do{|c| 
-        c.join.lines.each_with_index{|l,i|
-          l.match(/^[^<]+$/) &&
-          (u=r.uri+'#'+i.to_s
-           m[u]={'uri' => u,
-             'big'=>[l.scan(/\b[A-Z][A-Z][A-Z]+\b/)],
-             Content=>[l]}
-           l.scan(/\d{4,}/){|d| d=d.to_i
-             if d < 2400
-               m[u]['UTC']=[d]
-             elsif d < 30000
-               m[u]['FREQ']=[d]
-             end}
-           m.delete u unless m[u].has_keys ['UTC','FREQ']
-           )}
-        m.delete r.uri
-      }}}
-  
-end

data/infod/H/mail.rb

@@ -1,92 +0,0 @@
-class E
-
-  fn 'view/mail',->d,e{
-    title = nil
-
-    # JS/CSS
-    [(H.once e,'mail.js',
-      (H.css '/css/mail'), {_: :style, c: "a {background-color: #{E.cs}}"},
-      (H.js '/js/mail'),
-      (H.once e,:mu,(H.js '/js/mu')),
-
-      # up to set-overview
-      ({_: :a, id: :up, href: e['REQUEST_PATH'] + e.q.merge({'view' => 'page', 'v' => 'threads'}).qs, c: '↑'} if d.keys.size > 2),
-
-      # collapse/expand quoted content
-      {id: :showQuote, c: :quotes, show: :true},{_: :style, id: :quote}),'<br>',
-
-     # each message
-     d.values.map{|m|
-
-       # content available?
-       [m.class == Hash && (m.has_key? E::SIOC+'content') &&
-        
-        {:class => :mail,
-          
-          c: [# message link
-              {_: :a, name: m.uri, href: m.url+'?view=base', rel: :raw, title: :raw, c: '&nbsp;'},
-              
-              # To:, From: index search links
-              [['sioc:has_creator',Creator],['sioc:addressed_to',To]].map{|a|
-                m[a[1]].do{|m|
-                  m.map{|f| f.respond_to?(:uri) &&
-                    {_: :a, property: a[0], href: f.url+'?set=indexPO&p='+a[0]+'&view=threads&c=12', c: f.uri}}}},
-
-              # mailto URI with embedded reply metadata
-              (m['/mail/reply_to']||m[Creator]).do{|r| r[0] && r[0].respond_to?(:uri) &&
-                {_: :a, title: :reply, c: 'r',
-                  href: "mailto:#{r[0].uri}?References=<#{m.uri}>&In-Reply-To=<#{m.uri}>&Subject=#{m[Title].join}"}},
-
-              {class: :timestamp, c: m[Date].do{|d|d.map{|d|d.to_s[0..18]}}}, '<br clear=all>',
-
-              # content
-              {_: :pre,
-                c: m[Content].map{|b|
-
-                  # line count
-                  i = 0
-
-                  # HTML message content
-                  b.class==String && b.              
-
-                  # erase empty quoted lines
-                  gsub(/^\s*(&gt;)(&gt;|\s)*\n/,"").
-
-                  # each line
-                  lines.to_a.map{|l|
-
-                    # line identifier
-                    f = m.uri + ':' + (i+=1).to_s
-                    
-                    # wrapper
-                    {_: :span, 
-                      
-                      # is line quoted?
-                      class: ((l.match /(^\s*(&gt;|On[^\n]+(said|wrote))[^\n]*)\n/) ? 'q' : 'u'), c:
-
-                      # id
-                      [{_: :a, id: f},
-
-                       # line
-                       l.chomp,
-
-                       # link
-                       (l.size > 64 &&
-                        {_: :a, class: :line, href: '#'+f,c: '&#160;'}),
-
-                     "\n" ]}}}}, # collate lines
-
-              # title
-              m[Title].do{|t|
-                # only show if changed from previous
-                title != t[0] && (
-                 title = t[0] # update title
-                 [{:class => :title, c: t.html, _: :a, href: m.url+'??=thread#'+m.uri},
-                  '<br clear=all>'])}]}]}]}
-  
-  # set a default view for RFC822 and SIOC types
-  [MIMEtype+'message/rfc822',
-   SIOCt+'MailMessage'].
-    map{|m| F['view/'+m] = F['view/mail'] }
-
-end