urbit/pkg/arvo/gen/hood/init-oauth2/google.hoon
2019-07-16 15:59:39 -07:00

33 lines
787 B
Plaintext

:: API: input auth2 client_secret_*.json for .googleapis.com
::
:::: /hoon/google/init-oauth2/hood/gen
::
/? 314
/- sole
/+ generators
::
::::
::
=, generators
=, html
=, format
:- %ask
|= $: {now/@da eny/@uvJ bec/beak}
{arg/$@(~ {jon/json ~})}
~
==
^- (sole-result:sole {$write-sec-atom p/host:eyre q/@})
%+ print leaf+"Accepting credentials for https://*.googleapis.com"
=+ hot=[%& /com/googleapis]
=- ?~ arg -
(fun.q.q jon.arg)
%+ prompt
[%& %oauth-json "json credentials: "]
%+ parse apex:de-json
|= jon/json
=+ ~| bad-json+jon
=- `{cid/@t cis/@t}`(need (rep jon))
rep=(ot web+(ot 'client_id'^so 'client_secret'^so ~) ~):dejs-soft:format
%+ produce %write-sec-atom :: XX typed pair
[hot (of-wain:format cid cis ~)]