(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))
  )