1
1
mirror of https://github.com/urbit/shrub.git synced 2024-12-27 14:17:13 +03:00
shrub/pkg/arvo/ted/jam-all-desks.hoon
2021-09-26 22:03:13 -04:00

30 lines
610 B
Plaintext

/- spider
/+ strandio, jammer=desk-jam
=, strand=strand:spider
^- thread:spider
|= arg=vase
=/ m (strand ,vase)
^- form:m
=+ !<([~ desks=(list desk)] arg)
=? desks =(~ desks)
:~ %base
%garden
%landscape
%webterm
%bitcoin
==
^- form:m
::
;< [our=ship syd=desk =case:clay] bind:m get-beak:strandio
=/ now=@da ?>(?=(%da -.case) p.case)
::
;< ~ bind:m
%- send-raw-card:strandio
=- [%pass /tmp-desks %arvo %c %info %base %& -]
^- soba:clay
%+ turn desks
|= =desk
[/tmp/[desk]/jam %ins %jam %noun (jam-desk:jammer our desk now)]
::
(pure:m !>(ok=&))