From e40a7844b48e7262b51df573605e542cd621687e Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Tue, 16 May 2023 10:01:31 +0200 Subject: don't quote keywords --- lisp/mastodon-profile.el | 4 ++-- lisp/mastodon-views.el | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp') 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") -- cgit v1.2.3