::  Test url +https://slack.com/api/auth.test
::
::::  /hoon/slack/com/sec
  ::
/+    oauth2
::
::::
  ::
|_  {bal/(bale keys:oauth2) tok/token:oauth2}
::  aut is a "standard oauth2" core, which implements the 
::  most common handling of oauth2 semantics. see lib/oauth2 for more details.
++  aut  (~(standard oauth2 bal tok) . |=(tok/token:oauth2 +>(tok tok)))
++  out
  %^  out-add-query-param:aut  'token'
    scope=~[%client %admin]
  oauth-dialog='https://slack.com/oauth/authorize'
::
++  in   (in-code-to-token:aut url='https://slack.com/api/oauth.access')
++  bak  bak-save-token:aut
--