mirror of
https://github.com/urbit/shrub.git
synced 2024-12-25 13:04:17 +03:00
50 lines
864 B
Plaintext
50 lines
864 B
Plaintext
:: Tells whether GCP Storage appears to be configured.
|
|
::
|
|
:: Thread since it needs to be called from Landscape.
|
|
::
|
|
::
|
|
/- gcp, spider, settings
|
|
/+ strandio
|
|
=, strand=strand:spider
|
|
^- thread:spider
|
|
|^
|
|
|= *
|
|
=/ m (strand ,vase)
|
|
^- form:m
|
|
;< has=? bind:m
|
|
%: has-settings
|
|
%client-email
|
|
%private-key
|
|
%private-key-id
|
|
%token-uri
|
|
~
|
|
==
|
|
%- pure:m
|
|
!>
|
|
^- json
|
|
b+has
|
|
::
|
|
++ has-settings
|
|
|= set=(list @tas)
|
|
=/ m (strand ?)
|
|
^- form:m
|
|
?~ set
|
|
(pure:m %.y)
|
|
;< has=? bind:m (has-setting i.set)
|
|
?. has
|
|
(pure:m %.n)
|
|
;< has=? bind:m (has-settings t.set)
|
|
(pure:m has)
|
|
::
|
|
++ has-setting
|
|
|= key=@tas
|
|
=/ m (strand ?)
|
|
^- form:m
|
|
;< =bowl:spider bind:m get-bowl:strandio
|
|
;< has=? bind:m
|
|
%+ scry:strandio ?
|
|
/gx/settings-store/has-entry/[q.byk.bowl]/gcp-store/[key]/noun
|
|
(pure:m has)
|
|
::
|
|
--
|