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

Merge pull request #6136 from bacwyls/bwyl/clay-subs

Browse Source 
clay: add scry for subscribers of a desk
This commit is contained in:
Ted Blackman 2023-02-03 12:52:45 -06:00 committed by GitHub
commit 463a94101a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
pkg/arvo/sys/vane/clay.hoon
View File

@ -4160,8 +4160,24 @@
:: +read-s: produce miscellaneous :: +read-s: produce miscellaneous
:: ::
++ read-s ++ read-s
|= [yon=aeon pax=path] |= [yon=aeon pax=path =case]
^- (unit (unit cage)) ^- (unit (unit cage))
?: ?=([%subs ~] pax)
?. =([%da now] case) ~
=| sus=(set ship)
=/ doj=(unit dojo) (~(get by dos.rom) syd)
?~ doj
``noun+!>(sus)
=/ wos ~(tap in ~(key by qyx.u.doj))
|-
?~ wos
``noun+!>(sus)
?~ for.i.wos
$(wos t.wos)
%= $
wos t.wos
sus (~(put in sus) ship.u.for.i.wos)
==
?: ?=([%bloc ~] pax) ?: ?=([%bloc ~] pax)
:^ ~ ~ %noun :^ ~ ~ %noun
:- -:!>(*(map lobe page)) :- -:!>(*(map lobe page))
@ -4427,7 +4443,7 @@
%f (read-f yon path.mun) %f (read-f yon path.mun)
%p [(read-p path.mun) ..park] %p [(read-p path.mun) ..park]
%r (read-r yon path.mun) %r (read-r yon path.mun)
%s [(read-s yon path.mun) ..park] %s [(read-s yon path.mun case.mun) ..park]
%t [(read-t yon path.mun) ..park] %t [(read-t yon path.mun) ..park]
%u [(read-u yon path.mun) ..park] %u [(read-u yon path.mun) ..park]
%v [(read-v yon path.mun) ..park] %v [(read-v yon path.mun) ..park]