working +twit-feed

gen/twit/feed.hoon

@@ -1,23 +1,17 @@
 ::  Display twitter feed
 ::
-::::  /hook/core/twitter-feed/app
+::::  /hoon/feed/twit/gen
   ::
-/+    sh-utils
+/-    twitter
 !:
-::
 ::::  ~fyr
   ::
-|_  [hide ~]
-++  stat  ,[id=@u who=@ta now=@da txt=@t]
-++  rens
 :-  %say
-  |=(stat rose/[": " `~]^~[leaf/"{<now>} @{(trip who)}" leaf/(trip txt)])
+|=  $:  {now/@da eny/@uvI bek/beak}
-++  peer  ,_`.
+        {{who/iden $~} typ/?($home $user)}
-++  poke--args  
+    ==
-  |=  [ost=bone his=ship who=span ~]
+=+  pax=/(scot %p p.bek)/twit/(scot %da now)/[typ]/[who]
-  %.(+< (add-subs [[our /twit] our /user/[who]] ,_`+>.$))
+:-  %tang
-::
+%+  turn   (flop .^((list post:twitter) %gx pax))
-++  posh-twit-feed 
+|=  post:twitter  ^-  tank
-  (args-into-gate . |=(a=(list stat) tang/(turn a rens)))
+rose+[": " `~]^~[leaf+"{<now>} @{(trip who)}" leaf+(trip txt)]
-:: ++  pour  |*([ost=@ * sih=[@ ^]] :_(+>.$ [ost %give +.sih]~))
---