aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-05-16 10:01:31 +0200
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-05-16 10:01:45 +0200
commite40a7844b48e7262b51df573605e542cd621687e (patch)
tree76119dab805305320f2dd554e37a2aa907277958 /lisp
parenta203ad2fe6a759f3ac340198b4a168fd0d636a16 (diff)
don't quote keywords
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mastodon-profile.el4
-rw-r--r--lisp/mastodon-views.el2
2 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el
index 9aed0da..fe1e1dc 100644
--- a/lisp/mastodon-profile.el
+++ b/lisp/mastodon-profile.el
@@ -214,7 +214,7 @@ NO-REBLOGS means do not display boosts in statuses."
"Fetch current VAL ue from account."
(let* ((url (mastodon-http--api "accounts/verify_credentials"))
(response (mastodon-http--get-json url)))
- (if (eq (alist-get val response) ':json-false)
+ (if (eq (alist-get val response) :json-false)
nil
(alist-get val response))))
@@ -225,7 +225,7 @@ NO-REBLOGS means do not display boosts in statuses."
(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)))
- (if (eq (alist-get pref source) ':json-false)
+ (if (eq (alist-get pref source) :json-false)
nil
(alist-get pref source))))
diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el
index fbeb1c7..790c548 100644
--- a/lisp/mastodon-views.el
+++ b/lisp/mastodon-views.el
@@ -830,7 +830,7 @@ IND is the optional indentation level to print at."
(mastodon-views--print-json-keys
(cdr el) (if ind (+ ind 4) 4)))
(t ; basic handling of raw booleans:
- (let ((val (cond ((equal (cdr el) ':json-false)
+ (let ((val (cond ((equal (cdr el) :json-false)
"no")
((equal (cdr el) 't)
"yes")