aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-10-31 11:35:00 +0100
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-10-31 11:35:00 +0100
commit411d57853a026d08493b93b674e2a8b7d7a7bae3 (patch)
tree324c4b08ec8118a4ba194914e44a41b03119b151
parentd93d1f15b7b02e7120ca2544b0c40295e6f62a09 (diff)
convert :json-false to nil in account settings handling
:json-false isn't nil, so doesn't work as we want
-rw-r--r--lisp/mastodon-profile.el10
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el
index cfb3bdb..4aa9310 100644
--- a/lisp/mastodon-profile.el
+++ b/lisp/mastodon-profile.el
@@ -228,7 +228,9 @@ JSON is the data returned by the server."
"Fetch current VAL ue from account."
(let* ((url (mastodon-http--api "accounts/verify_credentials"))
(response (mastodon-http--get-json url)))
- (alist-get val response)))
+ (if (eq (alist-get val response) ':json-false)
+ nil
+ (alist-get val response))))
(defun mastodon-profile--get-source-values ()
"Return the \"source\" preferences from the server."
@@ -237,7 +239,9 @@ JSON is the data returned by the server."
(defun mastodon-profile--get-source-value (pref)
"Return account PREF erence from the \"source\" section on the server."
(let ((source (mastodon-profile--get-source-values)))
- (alist-get pref source)))
+ (if (eq (alist-get pref source) ':json-false)
+ nil
+ (alist-get pref source))))
(defun mastodon-profile--update-user-profile-note ()
"Fetch user's profile note and display for editing."
@@ -348,7 +352,7 @@ Current settings are fetched from the server."
(mastodon-profile--get-source-value key)
(mastodon-profile--get-json-value key)))
(prompt (format "Account setting %s is %s. Toggle?" key val)))
- (if (not (equal val :json-false))
+ (if val
(when (y-or-n-p prompt)
(mastodon-profile--update-preference (symbol-name key) "false" source))
(when (y-or-n-p prompt)