Fetch timelines

arvo/zuse.hoon

@@ -2943,7 +2943,7 @@
               [%b p=?]                                  ::  boolean
               [%o p=(map ,@t json)]                     ::  object
               [%n p=@ta]                                ::  number
-              [%s p=@ta]                                ::  string
+              [%s p=@t]                                 ::  string
           ==                                            ::
 ++  jsot                                                ::  strict json top
           $%  [%a p=(list json)]                        ::  array

main/app/rodeo/core.hook

@@ -68,10 +68,12 @@
           :-  '2821727326-RZGXSeTn7hCFQfJqR0ViivM3YYpu2O1M71gelBl'
               'jW9VygFPOTsEK0WmrJDHYSoEnofOPdCE1oQRzueemVTl8'
       ==
+  =>  ~(. twit key lat.hid `@`eny.hid)
   |%
-  ++  post
-    |=  txt=cord  ^-  hiss
-    (~(stat-upda twit key lat.hid `@`eny.hid) [%status txt]~ ~)
+  ++  post   |=(a=cord `hiss`(stat-upda [%status a]~ ~))
+  ++  stalk  |=(a=span `hiss`(stat-user [%screen-name a]~ ~))
+  ::
+  ++  line  (ar:jo stat:twir)                           ::  parse timeline
   --
 ::
 ++  ra                                                  ::  transaction core
@@ -246,7 +248,7 @@
             ?<  (gth (lent msg) 140)
             %+  ra-emit  ost
             :+  %pass    /tweet/(scot %ud ost) 
-            [%e [%them ~ (post:ti (crip msg))]]
+            [%e %them ~ (post:ti (crip msg))]
     ==    ==
   ::
   ++  ra-record                                         ::  add to party
@@ -372,7 +374,9 @@
       |=  tay=station
       =+  num=(fall (~(get by sequence) tay) 0)
       ?-  -.tay
-        %|  !!
+        %|  ~&  tweet-asked/p.p.tay
+            :-  /twitter/[p.p.tay]
+            [%e %them ~ (stalk:ti p.p.tay)]
         %&  ~&  [%pa-acquire [our.hid man] [p.p.tay q.p.tay]]
             :-  /friend/show/[man]
             [%g %show [p.p.tay /rodeo] our.hid /fm/[q.p.tay]/(scot %ud num)]
@@ -527,6 +531,17 @@
   ::  ~&  sih=sih
   =+  sih=((hard sign) sih)
   ?+    pax  ~&  [%rodeo-strange-path pax]  !!
+      [%twitter @ ~]
+    ?>  ?=(%thou +<.sih)
+    ?.  &(=(2 (div p.p.sih 100)) ?=(^ r.p.sih))
+      ~&  timeline-lost/[p `(unit ,[@ @t])`r]:[p.sih .]
+      [~ +>.$]
+    ~&  :-  %timeline-found
+        ^-  (list thought)
+        %+  turn  (need %.(q.u.r.p.sih ;~(biff poja line:ti)))
+        |=  [id=@u who=@ta now=@da txt=@t]  ^-  thought
+        [(shaf %twit id) [[[%| twitter/who] %received] `~] now %say txt]
+    [~ +>.$]
       [%tweet ^]
     ?>  ?=(%thou +<.sih)
     ~&  ?:  =(2 (div p.p.sih 100)) 

main/lib/twitter/core.hook

@@ -113,6 +113,18 @@
 ::::  library
   ::
 |%
+++  twir                                                ::  response parsers
+  |%
+  ++  stat
+    =>  jo
+    ^-  $+(json (unit ,[id=@u who=@ta now=@da txt=@t]))
+    %-  ot
+    :~  id/ni
+        user/(ot ['screen_name' so] ~)
+        ['created_at' da]
+        text/so
+    ==
+  --
 ++  twit
   =>  |%                                                ::  request structures
       ++  dev  ,@t                                      ::  device name