shrub/pkg/arvo/gen/hood/init-oauth2/google.hoon

::  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 ~)]
added one-line info to all generators 2016-10-22 02:44:39 +03:00			`:: API: input auth2 client_secret_*.json for .googleapis.com`
add google credential json parser \|init-oauth2-google 2016-03-05 02:16:31 +03:00			`::`
fix up location headers 2016-03-05 03:24:23 +03:00			`:::: /hoon/google/init-oauth2/hood/gen`
add google credential json parser \|init-oauth2-google 2016-03-05 02:16:31 +03:00			`::`
			`/? 314`
refactored generators from lib/sole into lib/generators 2018-10-03 02:36:08 +03:00			`/- sole`
Remove old-zuse (#867) * removes old-zuse 2018-10-27 02:19:18 +03:00			`/+ generators`
add google credential json parser \|init-oauth2-google 2016-03-05 02:16:31 +03:00			`::`
			`::::`
!: in ford files is redundant 2016-11-17 04:42:58 +03:00			`::`
refactored generators from lib/sole into lib/generators 2018-10-03 02:36:08 +03:00			`=, generators`
canonize pojo,poja as en-json,de-json :html 2016-12-03 02:09:58 +03:00			`=, html`
fix various generators 2017-10-24 00:41:07 +03:00			`=, format`
add google credential json parser \|init-oauth2-google 2016-03-05 02:16:31 +03:00			`:- %ask`
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way. 2020-11-26 17:09:31 +03:00			`\|= $: [now=@da eny=@uvJ bec=beak]`
			`[arg=$@(~ [jon=json ~])]`
Stop using obsolete $~ syntax. 2018-03-19 07:18:20 +03:00			`~`
add google credential json parser \|init-oauth2-google 2016-03-05 02:16:31 +03:00			`==`
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way. 2020-11-26 17:09:31 +03:00			`^- (sole-result:sole [%write-sec-atom p=host:eyre q=@])`
Issue #61 Extracted %ask generator methods from sur/sole and put them in a core under lib/sole Fixed names in existing generators 2018-10-02 22:26:16 +03:00			`%+ print leaf+"Accepting credentials for https://*.googleapis.com"`
add google credential json parser \|init-oauth2-google 2016-03-05 02:16:31 +03:00			`=+ hot=[%& /com/googleapis]`
			`=- ?~ arg -`
			`(fun.q.q jon.arg)`
Issue #61 Extracted %ask generator methods from sur/sole and put them in a core under lib/sole Fixed names in existing generators 2018-10-02 22:26:16 +03:00			`%+ prompt`
add google credential json parser \|init-oauth2-google 2016-03-05 02:16:31 +03:00			`[%& %oauth-json "json credentials: "]`
Issue #61 Extracted %ask generator methods from sur/sole and put them in a core under lib/sole Fixed names in existing generators 2018-10-02 22:26:16 +03:00			`%+ parse apex:de-json`
various: move away from face/type syntax In favor of face=type. 2020-11-25 23:22:55 +03:00			`\|= jon=json`
add google credential json parser \|init-oauth2-google 2016-03-05 02:16:31 +03:00			`=+ ~\| bad-json+jon`
various: move away from {type} syntax In favor of [type] syntax. Turns a bunch of ++ into +$ along the way. 2020-11-26 17:09:31 +03:00			=- `[cid=@t cis=@t]`(need (rep jon))
fixed init-oauth2-google 2017-10-24 00:26:32 +03:00			`rep=(ot web+(ot 'client_id'^so 'client_secret'^so ~) ~):dejs-soft:format`
refactored generators from lib/sole into lib/generators 2018-10-03 02:36:08 +03:00			`%+ produce %write-sec-atom :: XX typed pair`
fixed init-oauth2-google 2017-10-24 00:26:32 +03:00			`[hot (of-wain:format cid cis ~)]`