urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-07 13:37:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

subscribe through app/twit

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

30
app/talk.hoon
View File

@ -1373,10 +1373,10 @@
(pa-diff-talk-report:par cuz rad) (pa-diff-talk-report:par cuz rad)
:: ::
:: ::
++ ra-sigh-twit-feed :: timeline response ++ ra-diff-twit-feed :: timeline response
|= {{usr/iden man/knot} res/(list post):twit} ^+ +> |= {{usr/iden man/knot} res/(list post):twit} ^+ +>
%- (ra-know man) |= par/_pa =< pa-abet :: XX all subscribed %- (ra-know man) |= par/_pa =< pa-abet :: XX all subscribed
(pa-sigh-twit-feed:par usr res) (pa-diff-twit-feed:par usr res)
:: ::
++ ra-quit :: subscription quit ++ ra-quit :: subscription quit
|= {man/knot cuz/station} |= {man/knot cuz/station}
@ -1666,10 +1666,10 @@
^- (list card) ^- (list card)
?- -.tay ?- -.tay
$| ~& tweet-abjure+p.p.tay $| ~& tweet-abjure+p.p.tay
~ :: XX the %hiss interface doesn't support cancelation :_ ~
:: :_ ~ :^ %pull /feed/[p.p.tay]/[man]
:: :^ %hiss /feed/[p.p.tay]/[man] `~. [our.hid %twit]
:: ?>(=(me:ti p.p.tay) ~) ~
:: ::
$& ~& [%pa-abjure [our.hid man] [p.p.tay q.p.tay]] $& ~& [%pa-abjure [our.hid man] [p.p.tay q.p.tay]]
:_ ~ :_ ~
@ -1692,9 +1692,10 @@
?- -.tay ?- -.tay
$| ~& tweet-acquire+p.p.tay $| ~& tweet-acquire+p.p.tay
:_ ~ :_ ~
?> =(me:ti p.p.tay) ?> =(me:ti p.p.tay) :: XX auth
:^ %hiss /feed/[p.p.tay]/[man] `~. :^ %peer /feed/[p.p.tay]/[man]
`api-call`[%twit-feed twit-req+mine:ti] [our.hid %twit]
/home
:: ::
$& :: ~& [%pa-acquire [our.hid man] [p.p.tay q.p.tay]] $& :: ~& [%pa-acquire [our.hid man] [p.p.tay q.p.tay]]
:_ ~ :_ ~
@ -1705,14 +1706,14 @@
== ==
== ==
:: ::
++ pa-sigh-twit-feed :: timeline response ++ pa-diff-twit-feed :: timeline response
|= {usr/iden res/(list post):twit} ^+ +> |= {usr/iden res/(list post):twit} ^+ +>
%- pa-lesson %- pa-lesson
%+ turn res %+ turn res
|= {id/tid:twit who/scr:twit now/@da txt/@t} |= {id/tid:twit who/scr:twit now/@da txt/@t}
^- telegram ^- telegram
:* our.hid :* our.hid
((bond |.((shaf %twit id))) (~(get by twit.sent) id)) ((bond |.((shaf %twip id))) (~(get by twit.sent) id))
[[(sta:ti usr) *envelope %received] `~] [[(sta:ti usr) *envelope %received] `~]
now now
(sy /twitter/[who] ~) (sy /twitter/[who] ~)
@ -2267,13 +2268,10 @@
?> ?=({@ $~} way) ?> ?=({@ $~} way)
ra-abet:(ra-diff-twit-post:ra (slav %uv i.way) res) ra-abet:(ra-diff-twit-post:ra (slav %uv i.way) res)
:: ::
++ sigh-twit-feed-feed ++ diff-twit-feed-feed
|= {way/wire res/(list post):twit} ^- (quip move +>) |= {way/wire res/(list post):twit} ^- (quip move +>)
?> ?=({@ @ $~} way) ?> ?=({@ @ $~} way)
ra-abet:(ra-sigh-twit-feed:ra [i.way i.t.way] res) ra-abet:(ra-diff-twit-feed:ra [i.way i.t.way] res)
::
++ sigh-tang
|=({way/wire tan/tang} ~&(bad-hiss+way ((slog (flop tan)) `+>)))
:: ::
++ log-all-to-file ++ log-all-to-file
^- (quip move .) ^- (quip move .)