From d5802f73a4878afea4d902fc973b19ab4c209bd5 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Sat, 12 Nov 2022 11:09:40 +0100 Subject: flycheck -profile / profile--toot-json todos --- lisp/mastodon-profile.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'lisp') diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index 553c21d..56e5fef 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -137,6 +137,11 @@ contains") (defun mastodon-profile--toot-json () "Get the next toot-json." (interactive) + ;; NB: we cannot add + ;; (or (mastodon-tl--property 'profile-json) + ;; here because it searches forward endlessly + ;; TODO: it would be nice to be able to do so tho + ;; or handle --property failing (mastodon-tl--property 'toot-json)) (defun mastodon-profile--make-author-buffer (account) @@ -298,14 +303,15 @@ This is done after changing the setting on the server." (plist-put mastodon-profile-account-settings pref val))) (defun mastodon-profile-fetch-server-account-settings-maybe () - "Fetch account settings from the server if `mastodon-profile-account-settings' is nil." + "Fetch account settings from the server. +Only do so if `mastodon-profile-account-settings' is nil." (mastodon-profile-fetch-server-account-settings :no-force)) (defun mastodon-profile-fetch-server-account-settings (&optional no-force) "Fetch basic account settings from the server. Store the values in `mastodon-profile-account-settings'. Run in `mastodon-mode-hook'. -If NO-FORCE is non-nil, only fetch if `mastodon-profile-account-settings' is nil." +If NO-FORCE, only fetch if `mastodon-profile-account-settings' is nil." (unless (and no-force mastodon-profile-account-settings) -- cgit v1.2.3