2015-06-18 04:11:43 +03:00
|
|
|
:: Input twitter keys
|
2015-09-01 23:56:42 +03:00
|
|
|
/- sole, twitter
|
2015-06-18 04:11:43 +03:00
|
|
|
!:
|
2015-09-01 23:56:42 +03:00
|
|
|
[sole twitter .]
|
2015-06-18 04:11:43 +03:00
|
|
|
|%
|
|
|
|
++ baz64 (cook crip (star alp))
|
|
|
|
--
|
|
|
|
!:
|
2015-09-12 03:24:51 +03:00
|
|
|
:- %ask
|
2015-06-18 04:11:43 +03:00
|
|
|
|= $: [now=@da eny=@uvI bec=beak]
|
|
|
|
[~ ~]
|
|
|
|
==
|
|
|
|
^- (sole-result (cask twit-do))
|
|
|
|
%+ sole-lo [%& %$ "User: "] %+ sole-go urs:ab |= acc=span
|
|
|
|
%+ sole-lo [%& %$ "App token: "] %+ sole-go baz64 |= ctok=cord
|
|
|
|
%+ sole-lo [%& %$ "App secret: "] %+ sole-go baz64 |= csec=cord
|
|
|
|
%+ sole-lo [%& %$ "User token: "] %+ sole-go baz64 |= atok=cord
|
|
|
|
%+ sole-lo [%& %$ "User secret: "] %+ sole-go baz64 |= asec=cord
|
|
|
|
(sole-so %twit-do [acc %auth [ctok csec] atok asec])
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|