infod 0.0.2 → 0.0.3.0

data/infod/blog.rb

@@ -0,0 +1,34 @@
+#watch __FILE__
+class E
+
+  F['view/'+SIOCt+'BlogPost']=->g,e{
+
+    F['example/blogview'][g,e]
+
+  }
+
+  F['example/blogview']=->g,e{
+    g.map{|u,r|
+      case u
+      when /artery.wbur/ # compact whitespace a bit
+        r[Content] = {class: :WBUR, c: [{_: :style, c: ".WBUR p {margin:0}"},r[Content]]}
+        F['view/base'][{u => r},e,false]        
+      when /boston\.com/ # crop sharebuttons
+       (Nokogiri::HTML.parse r[Content][0]).css('p')[0].do{|p|r[Content]=p.inner_html}
+        F['view/base'][{u => r},e,false]
+      when /flickr/
+        r[Content]
+      when /reddit/ # minimal view
+        F['view/'+SIOCt+'BoardPost'][{u => r},e]
+      when /universalhub/  # logo + trim spacehogging tagjunk
+        c = Nokogiri::HTML.parse r[Content][0]
+        c.css('section').map{|x|x.remove}
+        {c: [{_: :a, href: r['http://purl.org/rss/1.0/link'][0].E.uri,
+               c: [{_: :img, src: '/logos/uhub.png',style: 'position:absolute;top:-93px'},
+                   {_: :h2, style: 'color:#000;margin:0',c: r[Title]}]},c.to_s],
+          style: 'float:left;max-width:40em;position:relative;background-color:#fff;border-color:#eee;margin-top:93px;margin-right:.3em;padding-top:0;border-style:dotted;border-width:.3em;border-radius:0 .8em .8em .8em'}
+      else
+        F['view/base'][{u => r},e,false]
+      end}}
+
+end

data/infod/cal.rb

@@ -0,0 +1,72 @@
+#watch __FILE__
+class E
+  
+  fn 'req/day',->e,r{
+    [303, {'Location'=> e.day.uri + r.q.except('y').qs}, []]}
+
+  def day; as Time.now.strftime '%Y/%m/%d/' end
+
+  fn 'table/month',->d{ m={}
+    d.map{|u,r|
+      r[Date].do{|d|d[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][:time] = t
+        }} if r.class==Hash }
+    m }
+
+  fn 'table/day',->d{ m={}
+    d.map{|u,r|
+      r[Date].do{|d|d[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][:time] = t
+        }} if r.class==Hash }
+    m }
+
+  fn 'table/hour',->d{ m={}
+    d.map{|u,r|
+      r[Date].do{|d|d[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][:time] = t
+        }} if r.class==Hash }
+    m }
+
+   fn 'view/year',->d,e{F['view/t'][d,e,'month','month']}
+
+  fn 'view/month',->d,e{
+    [(d.delete :time).do{|month|
+       {_: :b, c: month.strftime('%B'),style: "color: #{E.cs}"}},
+     F['view/t'][d,e,'day','day-terminate']]}
+
+    fn 'view/day-terminate',->d,e{
+    [(d.delete :time).do{|day|
+       {_: :b, c: day.strftime('%d'),style: "float:left; color: #888"}},
+     F['view/title'][d,e]]}
+
+    fn 'view/day',->d,e{
+    [(d.delete :time).do{|day|
+       {_: :b, c: day.strftime('%d'),style: "float:left; color: #888"}},
+     F['view/t'][d,e,'hour','hour']]}
+
+   fn 'view/hour',->d,e{
+    [(d.delete :time).do{|hour|
+       {_: :b, c: hour.strftime('%H'),style: "float:left"}},
+     F['view/title'][d,e]]}
+
+end

data/infod/{Es/code.rb → code.rb}

@@ -3,10 +3,9 @@ class E
   def triplrSourceCode
     m = mime.split(/\//)[-1].sub(/^x-/,'')
     # show line numbers?
-    n = @r.has_key?('n') && "--line-number-ref=#{uri.sh}"
+    n = (@r && @r.q.has_key?('n')) ? "--line-number-ref=#{uri.sh}:" : ""
     if size < 512e3
-      yield uri,Content,
-      `source-highlight -f html -o STDOUT -i #{sh} -s #{m} #{n}`
+      yield uri,Content, `source-highlight -f html -s #{m} #{n} -i #{sh} -o STDOUT`
     end
  end
 
@@ -15,7 +14,11 @@ class E
                       r[Content]]}]}
 
   # ls /usr/share/source-highlight/*.lang | xargs -i basename {} .lang | tr "\n" " "
-  %w{ada applescript asm awk bat bib bison caml changelog c clipper cobol conf cpp csharp css desktop diff d erlang errors flex fortran function glsl haskell haskell_literate haxe html html_simple java javascript key_string langdef latex ldap lisp log logtalk lsm lua m4 makefile manifest nohilite number outlang oz pascal pc perl php postscript prolog properties proto python ruby scala script_comment sh shellscript slang sml spec sql style symbols tcl texinfo todo url vala vbscript xml}
+  %w{ada applescript asm awk bat bib bison caml changelog c clipper cobol conf cpp csharp css
+ desktop diff d erlang errors flex fortran function glsl haskell haskell_literate haxe html java
+ javascript key_string langdef latex ldap lisp log logtalk lsm lua m4 makefile manifest nohilite
+ number outlang oz pascal pc perl php prolog properties proto python ruby scala sh
+ shellscript slang sml spec sql style symbols tcl texinfo todo url vala vbscript xml}
     .map{|l|
     ma = 'application/' + l
     mt = 'text/x-' + l

data/infod/constants.rb

@@ -0,0 +1,55 @@
+class E
+
+  FSbase = `pwd`.chomp ;  BaseLen = FSbase.size
+  URIURL = '/@'  # non-HTTP URI path resolution-prefix
+  S      = /\._/ # data path-separator
+
+  W3    = 'http://www.w3.org/'
+  Purl  = 'http://purl.org/'
+  FOAF  = "http://xmlns.com/foaf/0.1/"
+  SIOC  = 'http://rdfs.org/sioc/ns#'
+  SIOCt = 'http://rdfs.org/sioc/types#'
+  MIMEtype = 'http://www.iana.org/assignments/media-types/'
+  DIG      = 'http://dig.csail.mit.edu/'
+  Deri     = 'http://vocab.deri.ie/'
+  DC       = Purl + 'dc/terms/'
+  Date     = DC   + 'date'
+  Title    = DC   + 'title'
+  Name     = FOAF + 'name'
+  To       = SIOC + 'addressed_to'
+  Creator  = SIOC + 'has_creator'
+  Content  = SIOC + 'content'
+  XHV      = W3   + '1999/xhtml/vocab#'
+  RDFns    = W3   + "1999/02/22-rdf-syntax-ns#"
+  EXIF     = W3   + '2003/12/exif/ns#'
+  WF       = W3   + '2005/01/wf/flow#'
+  HTTP     = W3   + '2011/http#'
+  Header   = W3   + '2011/http-headers#'
+  LDP      = W3   + 'ns/ldp#'
+  Next     = LDP+'nextPage'
+  Prev     = LDP+'prevPage'
+  Posix    = W3   + 'ns/posix/'
+  Type     = RDFns+ "type"
+#  Type     = W3   + "ns/rdf#type"
+  RDFs     = W3   + 'ns/rdfs#'
+  PAC      = DIG  + '2008/PAC/ontology/pac#'
+  COGS     = Deri + 'cogs#'
+  CSV      = Deri + 'scsv#'
+  HTML     = RDFns + "HTML"
+  Label    = RDFs + 'label'
+  Stat     = Posix + 'stat#'
+  Search   = 'http://sindice.com/vocab/search#'
+  Audio    = 'http://www.semanticdesktop.org/ontologies/nid3/#'
+  Edit     = 'http://buzzword.org.uk/rdf/personal-link-types#edit'
+  Render   = 'http://whats-your.name/www#RenderMIME/'
+
+  Prefix={
+    "dc" => DC,
+    "foaf" => FOAF,
+    "rdf" => W3 + "ns/rdf#" ,
+    "rdfs" => RDFs,
+    "sioc" => SIOC,
+    "stat" => Stat,
+  }
+
+end

data/infod/edit.rb

@@ -0,0 +1,73 @@
+#watch __FILE__
+class E
+
+  Prototypes = {
+    SIOCt+'MicroblogPost' => [Content],
+    SIOCt+'BlogPost' => [Date, Title, Content], nil=>nil,
+    'blank'=>[]
+  }
+
+  F['protograph/editable'] = F['protograph/_']
+
+  fn 'graph/editable',->e,env,g{
+    e.fromStream g, :triplrFsStore}
+
+  # select a prototype graph
+  # , or go blank
+  fn 'view/create',->g,e{
+    [H.css('/css/create'),{_: :b, c: :create},
+     Prototypes.map{|s,_| s.nil? ? {_: :b, c: ' '} : {_: :a, href:  e['REQUEST_PATH']+'?graph=edit&prototype='+(CGI.escape s), c: s.label}}]}
+
+  fn 'view/edit',->g,e{
+    triple = ->s,p,o{
+      if s && p && o
+        s = s.E
+        p = p.E
+        oE = p.literal o
+        (id = s.concatURI(p).concatURI oE
+        [(case p
+          when Content
+            {_: :textarea, name: id, c: o, rows: 24, cols: 80}
+          when Date
+            {_: :input, name: id, type: :datetime, value: o.empty? ? Time.now.iso8601 : o}
+          else
+            {_: :input, name: id, value: o, size: 54}
+          end
+          ),"<br>\n"]) if oE
+      end}
+    
+    ps = []
+    e.q['prototype'].do{|pr| Prototypes[pr].do{|v|
+        g[e['uri']+'#'] ||= {}
+        ps.concat v }}
+    e.q['p'].do{|p| ps.push p }
+
+    [(H.once e, 'edit', (H.css '/css/edit')),
+     {_: :form, name: :editor, method: :POST, action: e['REQUEST_PATH'],
+
+       # each resource
+       c: [ g.map{|s,r|
+              url = s.E.localURL e 
+              # per-resource links
+              {class: :resource, c:
+              [{_: :a, class: :uri, id: s, c: s, href: url},
+               {_: :a, class: :edit, c: '+predicate', href: url+'?graph=_&view=addP'},'<br><br>',
+
+               # each property
+#               r.keys.concat(ps).uniq.-(['uri']).map{|p|
+               (r.keys.concat(ps).uniq.map{|p|
+                 [{_: :b, c: p}, '<br>',
+                  r[p].do{|o| [*o].map{|o|triple[s,p,o]}}, # existing triples
+                  triple[e['uri'],p,''], '<br>']} if r.class==Hash)]} if s.match(/#/)}, # create triple
+       {_: :input, type: :submit, value: 'save'}]}]}
+
+  # select a property to edit
+  fn 'view/addP',->g,e{
+    [(H.once e, 'edit', (H.css '/css/edit')),
+     [Date,Title,Creator,Content,Label].map{|p|{_: :a, href: p, c: p.label+' '}},
+
+     {_: :form, action: e['REQUEST_PATH'], method: :GET,
+       c: [{_: :input, type: :url, name: :p, pattern: '^http.*$', size: 64},
+           {_: :input, type: :submit, value: 'property'}]}]}
+
+end

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

@@ -1,7 +1,16 @@
 #watch __FILE__
 class E
+=begin
+   faceted-filter, implemented via dynamically-generated style-sheets
 
-  fn 'view/facets/main',->a,m,e{
+   user defines 'itemview/name' which is wrapped by tagged DOM nodes
+   structure conformed to in microblog & timegraph (time.rb) views
+
+   ?view=facets will prompt on which properties (predicates) to use
+
+=end
+
+  fn 'facets',->a,m,e{
     # facets
     a = Hash[(a.split ',').map{|a|[a,{}]}]
 
@@ -17,7 +26,7 @@ class E
     n=->o{ 
       i[o]||='f'+(c+=1).to_s}
 
-    view=F['view/'+ (e.q['fv'] || 'divine') + '/resource']
+    view = e.q['fv'].do{|fv| F['itemview/'+fv] } || F['itemview/title']
     resources=->{
       m.map{|u,r| # each resource
         a.map{|p,_| # each facet
@@ -33,27 +42,27 @@ class E
     [(H.css'/css/facets'),(H.js'/js/facets'),(H.js'/js/mu'),
 
      a.map{|b,_|{_: :style, class: n[b]}},
+     ' ' * 22,
+     a.map{|f,v|{class: :selector, facet: n[f], c: f.label}},
 
      # facet selection
      {class: :sidebar, c: a.map{|f,v|
-         {class: :facet, title: f, facet: n[f], # predicate
-           c: [f.label,
+         {class: :facet, facet: n[f], # predicate
+           c: [{class: :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['fv']+'/base']||
-      ->m,e,r{r.()}).(m,e,resources)]}
+                       {_: :span, class: :name, c: k.label}]}}]}}},     
+     (e.q['fv'].do{|fv|F['baseview/'+fv]} || ->m,e,r{r.()}).(m,e,resources)]}
   
-  fn 'view/facets/select',->m,e{
+  fn 'view/facetSelect',->m,e{
     [(H.js '/js/facets.select'),(H.js '/js/mu'),(H.css '/css/facets'),
      E.graphProperties(m).map{|e|[{c: e},' ']},
      {_: 'button', c: 'Go'}]}
 
   fn 'view/facets',->m,e{
-    e.q['a'].do{|a|Fn 'view/facets/main',a,m,e} || 
-                  (Fn 'view/facets/select',m,e)}
+    e.q['a'].do{|a|Fn 'facets',a,m,e} ||
+                  (Fn 'view/facetSelect',m,e)}
 
 end

data/infod/{Es/feed.rb → feed.rb}

@@ -1,5 +1,7 @@
 #watch __FILE__
+
 module FeedParse
+
   def html; CGI.unescapeHTML self end
   def cdata; sub /^\s*<\!\[CDATA\[(.*?)\]\]>\s*$/m,'\1'end
   def guess; send (case self
@@ -11,21 +13,20 @@ module FeedParse
                      :html
                    end) end
 
-  def parse # Universal feed-parser
+  def parse
 
-    #xml qname table
+    #prefix table
     x={}
     match(/<(rdf|rss|feed)([^>]+)/i)[2].scan(/xmlns:?([a-z]+)?=["']?([^'">\s]+)/){|m|x[m[0]]=m[1]}
 
     #items
     scan(%r{<(rss:|atom:)?(item|entry)([\s][^>]*)?>(.*?)</\1?\2>}mi){|m|
 
-      # TODO (gu)id field is often unresolvable. maybe use link[rel=alternate] as identifier instead since it's resolvable & HTTP
-
-      # find identifier
+      # identifier select -> RDF URI || <id> || <link>
       u = m[2] && (u = m[2].match /about=["']?([^'">\s]+)/) && u[1] ||
           m[3] && (((u = m[3].match /<(gu)?id[^>]*>([^<]+)/) || (u = m[3].match /<(link)>([^<]+)/)) && u[2])
 
+      yield u, E::Type, (E::SIOCt+'BlogPost').E
       yield u, E::Type, (E::SIOC+'Post').E
 
       #links
@@ -37,7 +38,9 @@ module FeedParse
       m[3].scan(%r{<([a-z]+:)?([a-z]+)([\s][^>]*)?>(.*?)</\1?\2>}mi){|e|
         yield u,                           # s
         (x[e[0]&&e[0].chop]||E::RSS)+e[1], # p
-        e[3].extend(FeedParse).guess}}     # o
+        e[3].extend(FeedParse).guess.do{|o|# o
+          o.match(/\A(\/|http)[\S]+\Z/) ? o.E : o
+        }}}
     
     nil
   end
@@ -53,13 +56,11 @@ class E
   def listFeeds; (nokogiri.css 'link[rel=alternate]').map{|u|E (URI uri).merge(u.attr :href)} end
   alias_method :feeds, :listFeeds
 
-  def getFeed g; addJSON :triplrFeed,g end
-  def getFeedReddit g; addJSON :triplrFeedReddit,g end
+  def getFeed       g; insertDocs :triplrFeed, g end
+  def getFeedReddit g; insertDocs :triplrFeedReddit, g end
 
-  # tripleStream
   def triplrFeed &f 
-    dateNorm :triplrFeedSIOCize,:triplrFeedRaw,&f
-  rescue Exception => x
+    dateNorm :contentURIresolve,:triplrFeedNormalize,:triplrFeedRaw,&f
   end
 
   def triplrFeedReddit &f
@@ -68,16 +69,17 @@ class E
       Nokogiri::HTML.parse(o).do{|o|
         o.css('.md').do{|o|yield s,p,o}
         yield s,Creator,o.css('a')[-4].child.to_s.strip
+        yield s,Type,(SIOCt+'BoardPost').E
       } : (yield s,p,o)}
   end
 
-  # tripleStream
   def triplrFeedRaw &f
-    read.extend(FeedParse).parse &f
+    read.to_utf8.extend(FeedParse).parse &f
+  rescue Exception => e
+    puts [uri,e,e.backtrace[0]].join ' '
   end
 
-  # tripleStream -> tripleStream
-  def triplrFeedSIOCize *f
+  def triplrFeedNormalize *f
     send(*f){|s,p,o|
       yield s,
       { Purl+'dc/elements/1.1/creator' => Creator,
@@ -92,7 +94,6 @@ class E
       }[p]||p,
       o } end
 
-
   fn Render+'application/atom+xml',->d,e{
     id = 'http://' + e['SERVER_NAME'] + (CGI.escapeHTML e['REQUEST_URI'])
     H(['<?xml version="1.0" encoding="utf-8"?>',

data/infod/{Es/find.rb → find.rb}

@@ -4,8 +4,8 @@ class E
   fn 'set/find',->e,q,m,x=''{
     q['q'].do{|q|
       r = '-iregex ' + ('.*' + q + '.*' + x).sh
-      s = q['size'].do{|s| s.match(/^\d+$/) && '-size +' + s + 'M'}
-      t = q['day'].do{|d| d.match(/^\d+$/) && '-ctime -' + d }
+      s = q['size'].do{|s| s.match(/^\d+$/) && '-size +' + s + 'M'} || ""
+      t = q['day'].do{|d| d.match(/^\d+$/) && '-ctime -' + d } || ""
       [e,e.pathSegment].compact.select(&:e).map{|e|
         `find #{e.sh} #{t} #{s} #{r} | head -n 1000`.
         lines.map{|l|l.chomp.unpathFs}}.compact.flatten}}
@@ -13,7 +13,6 @@ class E
   fn 'view/find',->i,e{
     {_: :form, method: :GET, action: e['REQUEST_PATH'].t,
       c: [{_: :input, name: :set, value: :find, type: :hidden},
-          {_: :input, name: :triplr, value: :id, type: :hidden},
           {_: :input, name: :view, value: :ls, type: :hidden},
           {_: :input, name: :q, style: 'float: left;font-size:1.3em'}]}}
 

data/infod/forum.rb

@@ -0,0 +1,13 @@
+class E
+
+=begin
+
+http://rdfs.org/sioc/ns#Forum
+http://rdfs.org/sioc/ns#num_replies
+
+http://rdfs.org/sioc/types#MessageBoard
+
+=end
+
+
+end