[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/mastodon afb3ac38e0 02/11: force arg for mastodon-return-c
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/mastodon afb3ac38e0 02/11: force arg for mastodon-return-credential-account. |
Date: |
Wed, 30 Aug 2023 09:59:52 -0400 (EDT) |
branch: elpa/mastodon
commit afb3ac38e0e9738d73a5cd1cb5d5b63f059b781a
Author: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Commit: marty hiatt <martianhiatus [a t] riseup [d o t] net>
force arg for mastodon-return-credential-account.
---
lisp/mastodon.el | 20 ++++++++++++++------
1 file changed, 14 insertions(+), 6 deletions(-)
diff --git a/lisp/mastodon.el b/lisp/mastodon.el
index a3b372de9a..63f9a3252d 100644
--- a/lisp/mastodon.el
+++ b/lisp/mastodon.el
@@ -281,7 +281,7 @@ See `mastodon-toot-display-orig-in-reply-buffer'.")
(string-prefix-p "*mastodon-" (buffer-name
x))
(get-buffer x)))
(buffer-list))))) ; catch any other masto buffer
- (mastodon-return-credential-account)
+ (mastodon-return-credential-account :force)
(if buffer
(switch-to-buffer buffer)
(mastodon-tl--get-home-timeline)
@@ -291,14 +291,22 @@ See `mastodon-toot-display-orig-in-reply-buffer'.")
(defvar mastodon-profile-credential-account nil)
-(defun mastodon-return-credential-account ()
+(defun mastodon-return-credential-account (&optional force)
"Return the CredentialAccount entity.
-Either from `mastodon-profile-credential-account' or from the server."
- (or mastodon-profile-credential-account
+Either from `mastodon-profile-credential-account' or from the
+server.
+FORCE means to fetch from the server and update
+`mastodon-profile-credential-account'."
+ (if force
(setq mastodon-profile-credential-account
(mastodon-http--get-json
(mastodon-http--api "accounts/verify_credentials")
- nil :silent))))
+ nil :silent))
+ (or mastodon-profile-credential-account
+ (setq mastodon-profile-credential-account
+ (mastodon-http--get-json
+ (mastodon-http--api "accounts/verify_credentials")
+ nil :silent)))))
;;;###autoload
(defun mastodon-toot (&optional user reply-to-id reply-json)
@@ -420,7 +428,7 @@ Calls `mastodon-tl--get-buffer-type', which see."
(when
mastodon-toot--enable-custom-instance-emoji
(mastodon-toot--enable-custom-emoji))
(when mastodon-tl--highlight-current-toot
- (cursor-face-highlight-mode)))))
+ (cursor-face-highlight-mode))))) ; 29.1
;;;###autoload
(add-hook 'mastodon-mode-hook
#'mastodon-profile--fetch-server-account-settings)
- [nongnu] branch elpa/mastodon created (now 8f4b5f5ad8), ELPA Syncer, 2023/08/30
- [nongnu] elpa/mastodon fcebc0d1b3 01/11: fix quotation marks in 2 docstrings, ELPA Syncer, 2023/08/30
- [nongnu] elpa/mastodon 123c7cf0a5 04/11: Simplify calls to `alist-get`, ELPA Syncer, 2023/08/30
- [nongnu] elpa/mastodon 8f4b5f5ad8 11/11: refactor mastodon-return-credential-account, ELPA Syncer, 2023/08/30
- [nongnu] elpa/mastodon 58a5e2deef 05/11: * lisp/mastodon-notifications.el: Fix dependency, ELPA Syncer, 2023/08/30
- [nongnu] elpa/mastodon 756096757d 08/11: Merge branch 'scratch/mastodon' of git://git.sv.gnu.org/emacs/nongnu into scratch/mastodon, ELPA Syncer, 2023/08/30
- [nongnu] elpa/mastodon f646c2d512 06/11: Don't refer to obsolete font-lock face variables, ELPA Syncer, 2023/08/30
- [nongnu] elpa/mastodon 5640de5f2e 07/11: Misc minor cosmetic changes, ELPA Syncer, 2023/08/30
- [nongnu] elpa/mastodon 1b9686bb2b 10/11: readme re ts dep gone, ELPA Syncer, 2023/08/30
- [nongnu] elpa/mastodon afb3ac38e0 02/11: force arg for mastodon-return-credential-account.,
ELPA Syncer <=
- [nongnu] elpa/mastodon 6360c8b9d0 03/11: * lisp/mastodon.el: Remove `ts` from `Package-Requires:`, ELPA Syncer, 2023/08/30
- [nongnu] elpa/mastodon 28b12f4eb8 09/11: Merge branch 'scratch/mastodon' into develop, ELPA Syncer, 2023/08/30