abstract plstore implementation details of getting value

Introduce a new function `mastodon-client--remove-key-from-plstore'
which removes "key" part from a plstore item.

Refactor `mastodon-client--read' to use
`mastodon-client--remove-key-from-plstore'.

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'.