mirror of
https://github.com/urbit/shrub.git
synced 2024-12-19 16:51:42 +03:00
18 lines
380 B
Plaintext
18 lines
380 B
Plaintext
/- spider, docket
|
|
/+ strandio
|
|
=, strand=strand:spider
|
|
^- thread:spider
|
|
|= arg=vase
|
|
=/ m (strand ,vase)
|
|
^- form:m
|
|
=+ !<([~ url=cord] arg)
|
|
;< =glob:docket bind:m
|
|
%+ (retry:strandio ,glob:docket) `5
|
|
=/ n (strand ,(unit glob:docket))
|
|
;< =cord bind:n (fetch-cord:strandio (trip url))
|
|
%- pure:n
|
|
%- mole
|
|
|.
|
|
;;(=glob:docket (cue cord))
|
|
(pure:m !>(glob))
|