15 lines
605 B
Scheme
15 lines
605 B
Scheme
(use-modules (elefan auth)
|
|
(json))
|
|
|
|
(let ((app (masto-app-instantiate "https://social.snamellit.com" #:website "https://social.snamellit.com"
|
|
#:id (getenv "MASTODON_ID")
|
|
#:secret (getenv "MASTODON_SECRET")
|
|
#:key (getenv "MASTODON_KEY")))
|
|
|
|
(username (getenv "MASTODON_USERNAME"))
|
|
(password (getenv "MASTODON_PASSWORD"))
|
|
)
|
|
(format #t "connecting to ~a with username ~a and password ~a~%" "https://social.snamellit.com" username password)
|
|
(masto-app-set-token-via-user-cred! app username password)
|
|
(format #t "App token: ~a~%" (masto-app-token app))
|
|
)
|