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

Internal subscription seems to work...

Browse Source
This commit is contained in:
C. Guy Yarvin 2014-12-11 07:49:01 -08:00
parent 24385894dd
commit 5d962b2db9
4 changed files with 28 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
arvo/gall.hoon
View File

@ -293,8 +293,9 @@
?~ mat [~ ..^$]
=+ sat=(~(get by bum.u.mat) q.p.lum)
?~ sat [~ ..^$]
?. |(=([~ ~] hen) (~(has by q.zam.u.sat) hen))
~& %app-lost [~ ..^$]
:: ?. (~(has by q.zam.u.sat) hen)
:: ~& [%app-lost pax hen p.lum q.lum]
:: [~ ..^$]
=< abet =< work
(more:(bear:(gaff p.lum) hen) q.lum hin)
::
@ -576,10 +577,7 @@
::
++ bear :: write backward
|= hen=duct
=+ ^= orf
?: =([~ ~] hen)
[p=0 q=*(unit cuff)]
(~(got by q.zam.sat) hen)
=+ orf=(fall (~(get by q.zam.sat) hen) [p=0 q=*(unit cuff)])
~(apex bo:~(. au (read q.orf)) hen p.orf (rite q.orf) ~)
::
++ beef :: read in
@ -593,10 +591,7 @@
law=(unit cuff) :: permissions
==
=^ orf zam.sat
=+ ^= orf
?: =([~ ~] hen)
(some [p=0 q=*(unit cuff)])
(~(get by q.zam.sat) hen)
=+ orf=(~(get by q.zam.sat) hen)
?^ orf
[[p=p.u.orf q=(limp law q.u.orf)] zam.sat]
:^ [p=p.zam.sat q=law] +(p.zam.sat)
@ -657,7 +652,7 @@
::
++ bing :: reset to duct
|= neh=duct
=+ orf=?:(=([~ ~] neh) [p=0 q=*(unit cuff)] (~(got by q.zam.sat) neh))
=+ orf=(fall (~(get by q.zam.sat) neh) [p=0 q=*(unit cuff)])
%_ +>.$
hen neh
ost p.orf

5
arvo/hoon.hoon
View File

@ -10008,7 +10008,10 @@
::
%give
?> ?=(^ q.gum)
?> ?=(^ i.q.gum)
?. ?=(^ i.q.gum)
~& [%jack-bad-duct q.gum]
~& [%jack-bad-card +>-.p.r.gum]
!!
~? &(!lac |(!=(%blit +>-.p.r.gum) !=(%d p.gum)))
[%give p.gum (,@tas +>-.p.r.gum) `duct`q.gum]
[i.i.q.gum [~ t.i.q.gum] t.q.gum p.r.gum]

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

@ -324,12 +324,16 @@
++ pa-friend :: subscribed update
|= sih=sign
^+ +>
?. ?=([%g %rust %radio-report *] sih)
~& [%radio-bad-friend sih]
!!
?+ -.+>+.sih ~&([%radio-odd-friend sih] !!)
%grams
(pa-lesson q.+.+>+.sih)
?+ sih ~&([%radio-bad-friend sih] !!)
[%g %nice ~]
~& %pa-friend-nice
+>.$
::
[%g %rust %radio-report *]
?+ -.+>+.sih ~&([%radio-odd-friend sih] !!)
%grams
(pa-lesson q.+.+>+.sih)
==
==
::
++ pa-scrub :: pass forward
@ -513,7 +517,7 @@
++ pour
|= [ost=bone pax=path sih=*]
^- [(list move) _+>]
:: ~& [%rodeo-pour ost pax]
:: ~& [%rodeo-pour ost pax sih]
:: ~& sih=sih
=+ sih=((hard sign) sih)
?+ pax ~& [%rodeo-strange-path pax] !!
@ -525,7 +529,7 @@
[%tweet-lost [p `(unit ,[@ @t])`r]:[p.sih .]]
[~ +>.$]
[%friend *]
?> ?=([@ @ @ ~] t.pax)
?> ?=([@ @ ~] t.pax)
?. =(%show i.t.pax)
~& [%pour-friend-nuke-nuke pax]
[~ +>.$]

12
main/app/talk/core.hook
View File

@ -154,7 +154,7 @@
=- [[%publish - ~] +>.$]
^- thought
:* (shaf %foo eny.hid)
[[`station`[%& our.hid %main] %pending] ~ ~]
[[`station`[%& our.hid %chat] %pending] ~ ~]
`statement`[lat.hid p.u.rey]
==
::
@ -234,11 +234,11 @@
[our.hid /rodeo] our.hid
/fm/main
==
^- move
:* ost %pass /am
%g %show [our.hid /rodeo] our.hid
/am/main
==
:: ^- move
:: :* ost %pass /am
:: %g %show [our.hid /rodeo] our.hid
:: /am/main
:: ==
(send /out %give %rush %prompt '& ' %text '')
==
::