ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-17 03:44:34 +03:00
Code Issues Packages Projects Releases Wiki Activity

move telegram generation to ++ti core

Browse Source
This commit is contained in:
Anton Dyudin 2016-03-22 12:33:53 -07:00
parent 4806c6e43d
commit 646a4999fe
1 changed files with 14 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
app/talk.hoon
View File

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