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

add twitter /home target to path

Browse Source
This commit is contained in:
Anton Dyudin 2016-03-22 13:00:45 -07:00
parent 646a4999fe
commit 60d1664591
2 changed files with 24 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
app/talk.hoon
View File

@ -137,12 +137,12 @@
--
|_ {hid/bowl house}
++ ti :: twitter interop
|_ _usr=%hoontap :: XX use %khan
|_ usr/iden
++ to-telegram
|= a/post:twitter ^- telegram
:* our.hid
((bond |.((shaf %twit id.a))) (~(get by twit.sent) id.a))
[[[%| %twitter who.a] *envelope %received] `~]
[[[%| %twitter usr] *envelope %received] `~]
now.a
(sy /twitter/[who.a] ~)
[%lin & txt.a]
@ -1696,10 +1696,9 @@
?- -.tay
$| ~& tweet-acquire+p.p.tay
:_ ~
?> =(usr:ti p.p.tay) :: XX auth
:^ %peer /feed/[p.p.tay]/[man]
[our.hid %twit]
/home
/home/[p.p.tay]
::
$& :: ~& [%pa-acquire [our.hid man] [p.p.tay q.p.tay]]
:_ ~
@ -1712,7 +1711,6 @@
::
++ pa-diff-twit-feed :: timeline response
|= {usr/iden res/(list post):twit} ^+ +>
?> ?=(_usr:ti usr) :: XX auth
(pa-lesson (turn res ~(to-telegram ti usr)))
::
++ pa-reform :: reconfigure, ugly

39
app/twit.hoon
View File

@ -8,15 +8,15 @@
::
|%
++ twit-path :: valid peer path
$% {$home $~} :: home timeline
:: {$user p/@t $~} :: user's tweets
{$post p/@taxuv $~} :: status of status
$% {$home p/@t $~} :: home timeline
{$user p/@t $~} :: user's tweets
{$post p/@taxuv $~} :: status of status
==
::
++ axle :: app state
$: $0
out/(map @uvI (each {knot cord} stat)) :: sent tweets
ran/(map path {p/@ud q/@da}) :: polls active
out/(map @uvI (each {knot cord} stat)) :: sent tweets
ran/(map path {p/@ud q/@da}) :: polls active
fed/(jar path stat) :: feed cache
==
::
@ -99,7 +99,7 @@
?- -.act
$post
=. out (~(put by out) p.act %& usr q.act)
%+ wait-new /peer/home
%+ wait-new /peer/home/[usr]
=+ req=[%twit-req `endpoint`stat-upda+[%status q.act]~ ~]
[ost %hiss post+(dray ~[%uv] p.act) `usr %twit-post req]~
==
@ -175,7 +175,9 @@
:: [`(slav %ta i.pax) t.pax]
::
::
:: .^(twit-feed %gx /=twit=/~/user/urbit_test)
++ compat |=({usr/(unit iden) req/(unit iden)} ?~(req & =(usr req)))
::
:: .^(twit-feed %gx /=twit=/~/home/urbit_test)
:: .^(twit-stat %gx /=twit=/~./post/0vv0old.0post.hash0.0000)
++ peek
|= {ren/care pax/path} ^- (unit (unit gilt))
@ -202,7 +204,8 @@
~|([%missed-path pax] !!)
=+ hiz=(pear-hiss pax)
?~ hiz ~ :: already in flight
[ost %hiss scry+pax usr u.hiz]~
::?> (compat usr -.u.hiz) :: XX better auth
[ost %hiss scry+pax usr +.u.hiz]~
::
++ peer |=(pax/path :_(+> (pear & `~. pax))) :: accept subscription
++ pear :: poll, possibly returning current data
@ -216,7 +219,8 @@
?: ?=($full -.gil) ~ :: permanent result
=+ hiz=(pear-hiss pax)
?~ hiz ~
[ost %hiss peer+pax usr u.hiz]~
::?> (compat usr -.u.hiz) :: XX better auth
[ost %hiss peer+pax usr +.u.hiz]~
^- (list move)
?. ver ~
?- -.gil
@ -235,23 +239,23 @@
[%none ~]
[%full twit-post+p.u.sta]
::
$home ::?($user $home)
?($user $home)
[%part twit-feed+(flop (~(get ja fed) pax))]
==
::
++ pear-hiss
|= pax/twit-path ^- (unit api-call)
|= pax/twit-path ^- (unit {(unit iden) api-call})
?- -.pax
$post ~ :: future/unacked
:: $user
:: =+ ole=(~(get ja fed) pax)
:: =+ opt=?~(ole ~ ['since_id' (tid:print id.i.ole)]~)
:: `[%twit-feed twit-req+[stat-user+[(to-sd p.pax)]~ opt]]
:: ::
$user
=+ ole=(~(get ja fed) pax)
=+ opt=?~(ole ~ ['since_id' (tid:print id.i.ole)]~)
`[`~. [%twit-feed twit-req+[stat-user+[(to-sd p.pax)]~ opt]]]
::
$home
=+ ole=(~(get ja fed) pax)
=+ opt=?~(ole ~ ['since_id' (tid:print id.i.ole)]~)
`[%twit-feed twit-req+[stat-home+~ opt]]
`[`p.pax [%twit-feed twit-req+[stat-home+~ opt]]]
==
::
++ to-sd :: parse user name/numb
@ -274,7 +278,6 @@
++ spam :: send by path
|= {a/path b/(list gift)} ^- (list move)
%- zing ^- (list (list move))
~& spam+[(turn b head) a]
~& (skim (~(tap by sup)) |=({@ @ pax/path} =(pax a)))
%+ turn (~(tap by sup))
|= {ost/bone @ pax/path}