diff options
| -rw-r--r-- | lisp/mastodon-client.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/mastodon-client.el b/lisp/mastodon-client.el index 9fb45f7..04a26ce 100644 --- a/lisp/mastodon-client.el +++ b/lisp/mastodon-client.el @@ -97,11 +97,17 @@ Make `mastodon-client--fetch' call to determine client values." (plstore-close plstore) client)) +(defun mastodon-client--remove-key-from-plstore (plstore) + "Remove KEY from PLSTORE." + (cdr plstore)) + +;; Actually it returns a plist with client-details if such details are +;; already stored in mastodon.plstore (defun mastodon-client--read () "Retrieve client_id and client_secret from `mastodon-client--token-file'." (let* ((plstore (plstore-open (mastodon-client--token-file))) (mastodon (plstore-get plstore (concat "mastodon-" mastodon-instance-url)))) - (cdr mastodon))) + (mastodon-client--remove-key-from-plstore mastodon))) (defun mastodon-client () "Return variable client secrets to use for `mastodon-instance-url'. |