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

correcting aesthetic points

Browse Source
This commit is contained in:
rabsef-bicrym 2022-05-05 11:58:18 -07:00 committed by GitHub
parent 2a778a5963
commit 5256280b42
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
pkg/garden/ted/get-dudes.hoon
View File

@ -3,37 +3,37 @@
::
=, strand=strand:spider
::
:: send on /spider/garden/json/get-dudes/json
:: send on /desk/dude
::
|%
++ buds :: get agents currently running
|= p=@tas
=/ m (strand ,(list @tas))
|= p=desk
=/ m (strand ,(list dude:gall))
^- form:m
?. =(%base p)
;< q=(list @tas) bind:m (suds p)
?. =(%$ p)
;< q=(list dude:gall) bind:m (suds p)
(pure:m q)
;< q=(list @tas) bind:m duds
=| r=(list (list @tas))
;< q=(list desk) bind:m duds
=| r=(list (list dude:gall))
|- ^- form:m
=* loop $
=* s $
?~ q (pure:m (zing r))
;< t=(list @tas) bind:m (suds i.q)
loop(q t.q, r [t r])
;< t=(list dude:gall) bind:m (suds i.q)
s(q t.q, r [t r])
::
++ suds :: clean %ge scry
|= p=@tas
=/ m (strand ,(list @tas))
|= p=desk
=/ m (strand ,(list dude:gall))
^- form:m
;< q=(set [@tas ?]) bind:m
(scry (set ,[@tas ?]) /ge/(scot %tas p))
;< q=(set [dude:gall ?]) bind:m
(scry (set ,[dude:gall ?]) /ge/(scot %tas p))
%- pure:m
(murn ~(tap in q) |=([@tas ?] ?.(+.+< ~ `-.+<)))
(murn ~(tap in q) |=([dude:gall ?] ?.(+.+< ~ `-.+<)))
::
++ duds :: get desks
=/ m (strand ,(list @tas))
=/ m (strand ,(list desk))
^- form:m
;< p=(set @tas) bind:m (scry (set ,@tas) /cd/base)
;< p=(set desk) bind:m (scry (set ,desk) /cd/base)
(pure:m ~(tap in p))
--
::