|
|
|
|
@ -105,7 +105,7 @@ Usage: |
|
|
|
|
:error |
|
|
|
|
(cl-function (lambda (&key error-thrown &allow-other-keys) |
|
|
|
|
(message "Got error: %S" error-thrown) |
|
|
|
|
(if (eq no-failover nil) |
|
|
|
|
(unless no-failover |
|
|
|
|
(webpaste-paste-text text))))) |
|
|
|
|
nil)) |
|
|
|
|
|
|
|
|
|
@ -182,7 +182,7 @@ return it to the user." |
|
|
|
|
"Return provider priority." |
|
|
|
|
|
|
|
|
|
;; Populate webpaste-provider-priority if needed |
|
|
|
|
(if (eq webpaste-provider-priority nil) |
|
|
|
|
(unless webpaste-provider-priority |
|
|
|
|
(let ((provider-names)) |
|
|
|
|
;; Loop provider list |
|
|
|
|
(dolist (provider webpaste-providers-alist) |
|
|
|
|
@ -236,7 +236,7 @@ When we run out of providers to try, it will restart since |
|
|
|
|
‘webpaste-tested-providers’ will be empty and then populated again." |
|
|
|
|
|
|
|
|
|
;; Populate tested providers for this request if needed |
|
|
|
|
(if (eq webpaste-tested-providers nil) |
|
|
|
|
(unless webpaste-tested-providers |
|
|
|
|
(setq webpaste-tested-providers (webpaste/get-provider-priority))) |
|
|
|
|
|
|
|
|
|
;; Get name of provider at the top of the list |
|
|
|
|
|