google.gmail: no need for symbol wrapping here
parent
0fe633848b
commit
1715f84d52
|
@ -14,11 +14,11 @@ SYMBOL: access-token
|
||||||
|
|
||||||
: configure-oauth2 ( client-id client-secret -- )
|
: configure-oauth2 ( client-id client-secret -- )
|
||||||
[ auth-uri token-uri redirect-uri ] 2dip gmail-scope-ro { }
|
[ auth-uri token-uri redirect-uri ] 2dip gmail-scope-ro { }
|
||||||
oauth2 boa \ oauth2 set ;
|
oauth2 boa oauth2 set ;
|
||||||
|
|
||||||
: ensure-token ( -- )
|
: ensure-token ( -- )
|
||||||
access-token [
|
access-token [
|
||||||
[ \ oauth2 get console-flow ] unless*
|
[ oauth2 get console-flow ] unless*
|
||||||
] change ;
|
] change ;
|
||||||
|
|
||||||
: api-call ( method get-params -- result )
|
: api-call ( method get-params -- result )
|
||||||
|
|
Loading…
Reference in New Issue