::  API: input oauth1 application credentials for domain
::
::::  /hoon/init-oauth1/hood/gen
  ::
/?  314
/-  sole
/+  old-zuse
=,  old-zuse
::
::::
  ::
=,  sole
:-  %ask
|=  $:  {now/@da eny/@uvJ bec/beak}
        {arg/$@($~ {dom/path $~})}
        $~
    ==
^-  (sole-result {$write-sec-atom p/host q/@})
=-  ?~  arg  -
    (fun.q.q [%& dom.arg])
%+  sole-lo
  [%& %oauth-hostname "api hostname: https://"]
%+  sole-go  thos:urlp
|=  hot/host
?:  ?=($| -.hot)
  ~|(%ips-unsupported !!)
%+  sole-lo
  [%& %oauth-client "consumer key: "]
%+  sole-go  (boss 256 (star prn))
|=  key/@t
%+  sole-lo  
  [%& %oauth-secret "consumer secret: "]
%+  sole-go  (boss 256 (star prn))
|=  sec/@t
%+  sole-so  %write-sec-atom    :: XX typed pair
[hot (of-wain:format key sec ~)]