diff options
Diffstat (limited to 'pearl.el')
| -rw-r--r-- | pearl.el | 11 |
1 files changed, 7 insertions, 4 deletions
@@ -521,7 +521,7 @@ lookup -- when the key cannot be found or SOURCE is malformed." (secret (and found (plist-get found :secret)))) (cond ((null secret) - (user-error "No API key for account %s: auth-source found no matching entry" + (user-error "No API key for account %s: auth-source found no matching entry (a key added in the last ~2h may be negatively cached; run M-x pearl-clear-cache)" account)) ((functionp secret) (funcall secret)) (t secret)))) @@ -2444,11 +2444,14 @@ none, returns nil. FORCE refreshes the collection cache first." ;;;###autoload (defun pearl-clear-cache () - "Clear the Linear lookup caches (teams, states, per-team collections, views). -Use after renaming things in Linear, or to force the next lookup to refetch." + "Clear the Linear lookup caches and auth-source's credential cache. +Use after renaming things in Linear, to force the next lookup to refetch, or +after adding an API key to authinfo so the new key is found without waiting +out auth-source's cache TTL (default 2h)." (interactive) (pearl--clear-account-scoped-state) - (message "Linear caches cleared")) + (auth-source-forget-all-cached) + (message "Linear caches cleared (including auth-source)")) (defun pearl-update-issue-state (issue-id state-name team-id) "Update the state of Linear issue with ISSUE-ID to STATE-NAME for TEAM-ID." |