From aed9e4b058db115b1fecd7619d10fe05b23b8edd Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Tue, 22 Mar 2016 16:52:47 -0700
Subject: [PATCH] working +twit-feed

---
 gen/twit/feed.hoon | 26 ++++++++++----------------
 1 file changed, 10 insertions(+), 16 deletions(-)

diff --git a/gen/twit/feed.hoon b/gen/twit/feed.hoon
index 3b7de89703..a2fcd0b9e2 100644
--- a/gen/twit/feed.hoon
+++ b/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)])
-++  peer  ,_`.
-++  poke--args  
-  |=  [ost=bone his=ship who=span ~]
-  %.(+< (add-subs [[our /twit] our /user/[who]] ,_`+>.$))
-::
-++  posh-twit-feed 
-  (args-into-gate . |=(a=(list stat) tang/(turn a rens)))
-:: ++  pour  |*([ost=@ * sih=[@ ^]] :_(+>.$ [ost %give +.sih]~))
---
+|=  $:  {now/@da eny/@uvI bek/beak}
+        {{who/iden $~} typ/?($home $user)}
+    ==
+=+  pax=/(scot %p p.bek)/twit/(scot %da now)/[typ]/[who]
+:-  %tang
+%+  turn   (flop .^((list post:twitter) %gx pax))
+|=  post:twitter  ^-  tank
+rose+[": " `~]^~[leaf+"{<now>} @{(trip who)}" leaf+(trip txt)]