From 646a4999fe339671181cc9c2c996c51ce16206aa Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Tue, 22 Mar 2016 12:33:53 -0700
Subject: [PATCH] move telegram generation to ++ti core

---
 app/talk.hoon | 33 ++++++++++++++-------------------
 1 file changed, 14 insertions(+), 19 deletions(-)

diff --git a/app/talk.hoon b/app/talk.hoon
index 0e0eb3ff3..ba2945fef 100644
--- a/app/talk.hoon
+++ b/app/talk.hoon
@@ -136,13 +136,17 @@
     ++  glyphs  `wall`~[">=+-" "}),." "\"'`^" "$%&@"]     :: station char pool
     --
 |_  {hid/bowl house}
-++  ti
-  =+  [twitter reqs:twit]                               ::  XX new =*
-  =+  me=%hoontap                                       ::  XX  use %khan
-  |%
-  ++  sta    |=(who/knot `partner`[%| %twitter who])
-  ++  post   |=(a/cord [`endpoint`stat-upda+[%status a]~ ~])
-  ++  mine  [`endpoint`stat-home+~ ~]
+++  ti                                                    :: twitter interop
+  |_  _usr=%hoontap                                       ::  XX  use %khan
+  ++  to-telegram
+    |=  a/post:twitter  ^-  telegram
+    :*  our.hid
+        ((bond |.((shaf %twit id.a))) (~(get by twit.sent) id.a))
+        [[[%| %twitter who.a] *envelope %received] `~]
+        now.a
+        (sy /twitter/[who.a] ~)
+        [%lin & txt.a]
+    ==
   --
 ::
 ++  ra                                                  ::  per transaction
@@ -1692,7 +1696,7 @@
       ?-  -.tay
         $|  ~&  tweet-acquire+p.p.tay
             :_  ~
-            ?>  =(me:ti p.p.tay)  :: XX auth
+            ?>  =(usr:ti p.p.tay)  :: XX auth
             :^  %peer  /feed/[p.p.tay]/[man]
               [our.hid %twit]
             /home
@@ -1708,17 +1712,8 @@
     ::
     ++  pa-diff-twit-feed                               ::  timeline response
       |=  {usr/iden res/(list post):twit}  ^+  +>
-      %-  pa-lesson
-      %+  turn  res
-      |=  {id/tid:twit who/scr:twit now/@da txt/@t}
-      ^-  telegram
-      :*  our.hid
-          ((bond |.((shaf %twip id))) (~(get by twit.sent) id))
-          [[(sta:ti usr) *envelope %received] `~]
-          now
-          (sy /twitter/[who] ~)
-          [%lin & txt]
-      ==
+      ?>  ?=(_usr:ti usr)                               :: XX auth
+      (pa-lesson (turn res ~(to-telegram ti usr)))
     ::
     ++  pa-reform                                       ::  reconfigure, ugly
       |=  cof/config