urbit/gen/hood/init-oauth1.hoon

::  API: input oauth1 application credentials for domain
::
::::  /hoon/init-oauth1/hood/gen
  ::
/?  314
/-  sole
/+  generators
::
::::
  ::
=,  generators
=,  eyre
:-  %ask
|=  $:  {now/@da eny/@uvJ bec/beak}
        {arg/$@(~ {dom/path ~})}
        ~
    ==
^-  (sole-result:sole {$write-sec-atom p/host q/@})
=-  ?~  arg  -
    (fun.q.q [%& dom.arg])
%+  prompt
  [%& %oauth-hostname "api hostname: https://"]
%+  parse  thos:de-purl:html
|=  hot/host
?:  ?=(%| -.hot)
  ~|(%ips-unsupported !!)
%+  prompt
  [%& %oauth-client "consumer key: "]
%+  parse  (boss 256 (star prn))
|=  key/@t
%+  prompt
  [%& %oauth-secret "consumer secret: "]
%+  parse  (boss 256 (star prn))
|=  sec/@t
%+  produce  %write-sec-atom    :: XX typed pair
[hot (of-wain:format key sec ~)]
added one-line info to all generators 2016-10-22 02:44:39 +03:00			`:: API: input oauth1 application credentials for domain`
fork off \|init-oauth1 from \|init-oauth2 and discard subdomains in both 2016-03-10 02:53:58 +03:00			`::`
			`:::: /hoon/init-oauth1/hood/gen`
			`::`
			`/? 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`
fork off \|init-oauth1 from \|init-oauth2 and discard subdomains in both 2016-03-10 02:53:58 +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`
Remove old-zuse (#867) * removes old-zuse 2018-10-27 02:19:18 +03:00			`=, eyre`
fork off \|init-oauth1 from \|init-oauth2 and discard subdomains in both 2016-03-10 02:53:58 +03:00			`:- %ask`
Double system entropy size 2016-08-11 21:15:06 +03:00			`\|= $: {now/@da eny/@uvJ bec/beak}`
Stop using obsolete $~ syntax. 2018-03-19 07:18:20 +03:00			`{arg/$@(~ {dom/path ~})}`
			`~`
fork off \|init-oauth1 from \|init-oauth2 and discard subdomains in both 2016-03-10 02:53:58 +03:00			`==`
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			`^- (sole-result:sole {$write-sec-atom p/host q/@})`
fork off \|init-oauth1 from \|init-oauth2 and discard subdomains in both 2016-03-10 02:53:58 +03:00			`=- ?~ arg -`
			`(fun.q.q [%& dom.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`
fork off \|init-oauth1 from \|init-oauth2 and discard subdomains in both 2016-03-10 02:53:58 +03:00			`[%& %oauth-hostname "api hostname: https://"]`
Remove old-zuse (#867) * removes old-zuse 2018-10-27 02:19:18 +03:00			`%+ parse thos:de-purl:html`
fork off \|init-oauth1 from \|init-oauth2 and discard subdomains in both 2016-03-10 02:53:58 +03:00			`\|= hot/host`
End use of legacy $\| and $& syntax. 2018-03-19 06:54:47 +03:00			`?: ?=(%\| -.hot)`
fork off \|init-oauth1 from \|init-oauth2 and discard subdomains in both 2016-03-10 02:53:58 +03:00			`~\|(%ips-unsupported !!)`
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`
fork off \|init-oauth1 from \|init-oauth2 and discard subdomains in both 2016-03-10 02:53:58 +03:00			`[%& %oauth-client "consumer key: "]`
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 (boss 256 (star prn))`
fork off \|init-oauth1 from \|init-oauth2 and discard subdomains in both 2016-03-10 02:53:58 +03:00			`\|= key/@t`
Remove old-zuse (#867) * removes old-zuse 2018-10-27 02:19:18 +03:00			`%+ prompt`
fork off \|init-oauth1 from \|init-oauth2 and discard subdomains in both 2016-03-10 02:53:58 +03:00			`[%& %oauth-secret "consumer secret: "]`
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 (boss 256 (star prn))`
fork off \|init-oauth1 from \|init-oauth2 and discard subdomains in both 2016-03-10 02:53:58 +03:00			`\|= sec/@t`
refactored generators from lib/sole into lib/generators 2018-10-03 02:36:08 +03:00			`%+ produce %write-sec-atom :: XX typed pair`
oldzuse some generators 2017-11-10 03:06:58 +03:00			`[hot (of-wain:format key sec ~)]`