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

Merge branch 'radio' of https://github.com/urbit/urbit into radio

Browse Source
This commit is contained in:
Philip C Monk 2014-12-16 18:29:26 -05:00
commit 7f85947214
1 changed files with 31 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
main/app/rodeo/core.hook
View File

@ -17,6 +17,7 @@
$: parties=(map span party) :: conversations $: parties=(map span party) :: conversations
general=(set bone) :: meta-subscribe general=(set bone) :: meta-subscribe
outbox=(pair ,@ud (map ,@ud thought)) :: urbit outbox outbox=(pair ,@ud (map ,@ud thought)) :: urbit outbox
sent=(map tid:twit serial) :: own tweets
== :: == ::
++ party :: a conversation ++ party :: a conversation
$: count=@ud :: (lent grams) $: count=@ud :: (lent grams)
@ -60,7 +61,7 @@
[%show p=hapt q=ship r=path] :: subscribe [%show p=hapt q=ship r=path] :: subscribe
== == == :: == == == ::
++ twim :: twitter endpoints ++ twim :: twitter endpoints
?(%mine %stat) $%([%mine p=span] [%stat p=@uv])
-- --
|_ [hid=hide house] |_ [hid=hide house]
++ ti ++ ti
@ -171,22 +172,26 @@
?. &(=(2 (div p.p.sih 100)) ?=(^ r.p.sih)) ?. &(=(2 (div p.p.sih 100)) ?=(^ r.p.sih))
~& [%twit-lost met [p `(unit ,[@ @t])`r]:[p.sih .]] ~& [%twit-lost met [p `(unit ,[@ @t])`r]:[p.sih .]]
+> +>
?- met ?- -.met
%stat %stat
~& [%tweet-ack p.p.sih] =+ sta=(need %.(q.u.r.p.sih ;~(biff poja stat:twir)))
~& [%tweet-ack p.met sta]
=. sent (~(put by sent) id:sta p.met)
+>.$ +>.$
%mine %mine
=+ ^- toz=(list thought) =+ pur=(~(get by parties) p.met) :: XX all subscribed
?~ pur ~& [%ra-twitter-none p.met] !!
=< pa-abet
%- ~(pa-lesson pa p.met u.pur)
%+ turn (need %.(q.u.r.p.sih ;~(biff poja line:ti))) %+ turn (need %.(q.u.r.p.sih ;~(biff poja line:ti)))
|= [id=@u who=@ta now=@da txt=@t] |= [id=tid:twit who=scr:twit now=@da txt=@t]
^- thought ^- telegram
:* (shaf %twit id) :* our.hid
[[(sta:ti who) %received] `~] ((bond |.((shaf %twit id))) (~(get by sent) id))
[[(sta me):ti %pending] `~]
now now
[%say txt] [%say txt]
== ==
~& timemine-found/toz
(ra-think | our.hid toz)
== ==
:: ::
++ ra-repeat :: %repeat response ++ ra-repeat :: %repeat response
@ -283,9 +288,10 @@
%say "{<her>}: {(trip p.q.r.tip)}" %say "{<her>}: {(trip p.q.r.tip)}"
%own "{<her>} {(trip p.q.r.tip)}" %own "{<her>} {(trip p.q.r.tip)}"
== ==
?< (gth (lent msg) 140) ?: (gth (lent msg) 140)
(ra-evil %radio-tweet-long)
%+ ra-hiss %+ ra-hiss
/twitter/stat /twitter/stat/(scot %uv p.tip)
(post:ti (crip msg)) (post:ti (crip msg))
== == == ==
:: ::
@ -413,7 +419,7 @@
=+ num=(fall (~(get by sequence) tay) 0) =+ num=(fall (~(get by sequence) tay) 0)
?- -.tay ?- -.tay
%| ~& tweet-asked/p.p.tay %| ~& tweet-asked/p.p.tay
:- /twitter/mine/[p.p.tay] :- /twitter/mine/[p.p.tay]/[man]
?> =(me:ti p.p.tay) ?> =(me:ti p.p.tay)
[%e %them ~ mine:ti] [%e %them ~ mine:ti]
%& ~& [%pa-acquire [our.hid man] [p.p.tay q.p.tay]] %& ~& [%pa-acquire [our.hid man] [p.p.tay q.p.tay]]
@ -571,8 +577,14 @@
=+ sih=((hard sign) sih) =+ sih=((hard sign) sih)
?+ pax ~& [%rodeo-strange-path pax] !! ?+ pax ~& [%rodeo-strange-path pax] !!
[%twitter *] [%twitter *]
?> ?=([twim *] t.pax) =- ra-abet:(~(ra-twitter ra ost ~) met sih)
ra-abet:(~(ra-twitter ra ost ~) i.t.pax sih) ^= met
?+ t.pax ~& [%rodeo-twitter-strange-path pax] !!
[%mine @ @ ~]
[i.t.pax i.t.t.t.pax]
[%stat @ ~]
[i.t.pax (slav %uv i.t.t.pax)]
==
[%friend *] [%friend *]
?> ?=([@ @ ~] t.pax) ?> ?=([@ @ ~] t.pax)
?. =(%show i.t.pax) ?. =(%show i.t.pax)