From cec605b86a64582f3eb237aec36678cdf311a801 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Wed, 10 May 2023 09:55:09 +0200 Subject: audit client.el --- lisp/mastodon-client.el | 18 +++++++----------- 1 file changed, 7 insertions(+), 11 deletions(-) diff --git a/lisp/mastodon-client.el b/lisp/mastodon-client.el index b358ed7..9b4fee9 100644 --- a/lisp/mastodon-client.el +++ b/lisp/mastodon-client.el @@ -62,14 +62,13 @@ (defun mastodon-client--register () "POST client to Mastodon." - (mastodon-http--post - (mastodon-http--api "apps") - `(("client_name" . "mastodon.el") - ("redirect_uris" . ,mastodon-client-redirect-uri) - ("scopes" . ,mastodon-client-scopes) - ("website" . ,mastodon-client-website)) - nil - :unauthenticated)) + (mastodon-http--post (mastodon-http--api "apps") + `(("client_name" . "mastodon.el") + ("redirect_uris" . ,mastodon-client-redirect-uri) + ("scopes" . ,mastodon-client-scopes) + ("website" . ,mastodon-client-website)) + nil + :unauthenticated)) (defun mastodon-client--fetch () "Return JSON from `mastodon-client--register' call." @@ -154,7 +153,6 @@ Return the plist after the operation." (defun mastodon-client--form-user-from-vars () "Create a username from user variable. Return that username. - Username in the form user@instance.com is formed from the variables `mastodon-instance-url' and `mastodon-active-user'." (concat mastodon-active-user @@ -182,7 +180,6 @@ Otherwise return nil." (defun mastodon-client--active-user () "Return the details of the currently active user. - Details is a plist." (let ((active-user-details mastodon-client--active-user-details-plist)) (unless active-user-details @@ -195,7 +192,6 @@ Details is a plist." (defun mastodon-client () "Return variable client secrets to use for `mastodon-instance-url'. - Read plist from `mastodon-client--token-file' if variable is nil. Fetch and store plist if `mastodon-client--read' returns nil." (let ((client-details -- cgit v1.2.3