[nongnu] elpa/webpaste 3d18f0b 028/298: Added code to auto-populate webpaste-provider-priority if needed

[ELPA Syncer]

branch: elpa/webpaste
commit 3d18f0b71c2600029c57ad972fe88a1695f1bcb9
Author: Elis Axelsson <elis.axelsson@gmail.com>
Commit: Elis Axelsson <elis.axelsson@gmail.com>

    Added code to auto-populate webpaste-provider-priority if needed
---
 webpaste.el | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/webpaste.el b/webpaste.el
index 9b6afd4..514778d 100644
--- a/webpaste.el
+++ b/webpaste.el
@@ -113,6 +113,21 @@ return it to the user."
 (defun webpaste-paste-text (text)
   "Paste TEXT to some paste service."
 
+  ;; Populate webpaste-provider-priority if needed
+  (if (eq webpaste-provider-priority nil)
+      (let ((providers-alist webpaste-providers-alist)
+            (provider-names))
+        ;; Loop local provider list
+        (while providers-alist
+          ;; Add name to list of names
+          (add-to-list 'provider-names (caar providers-alist))
+
+          ;; Depopulate list
+          (setq providers-alist (cdr providers-alist)))
+
+        ;; Set names list
+        (setq-default webpaste-provider-priority (reverse provider-names))))
+
   (funcall (cdr (car webpaste-providers-alist)) text))