[nongnu] elpa/webpaste 6039591 065/298: Added sprunge.us as provider

[ELPA Syncer]

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

    Added sprunge.us as provider
---
 README.org  |  4 ++--
 webpaste.el | 11 +++++++++++
 2 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/README.org b/README.org
index be6625b..99c64a9 100644
--- a/README.org
+++ b/README.org
@@ -19,10 +19,10 @@ easiest way to install and configure packages.
            ("C-c C-p C-r" . webpaste-paste-region)))
 #+END_SRC
 
-** TODO Providers to implement [2/6]
+** TODO Providers to implement [3/6]
  - [X] ix.io
  - [X] dpaste.com
- - [ ] sprunge.us
+ - [X] sprunge.us
  - [ ] dpaste.de
  - [ ] paste.pound-python.org
  - [ ] paste.debian.net
diff --git a/webpaste.el b/webpaste.el
index 52b5f0c..9f2429c 100644
--- a/webpaste.el
+++ b/webpaste.el
@@ -116,6 +116,17 @@ Usage:
                        (webpaste-return-url
                         (replace-regexp-in-string "\n$" "" data)))))))
 
+    ("sprunge.us" .
+     (webpaste-provider
+      :domain "http://sprunge.us/";
+      :parser 'buffer-string
+      :post-field "sprunge"
+      :success
+      (cl-function (lambda (&key data &allow-other-keys)
+                     (when data
+                       (webpaste-return-url
+                        (replace-regexp-in-string "\n$" "" data)))))))
+
     ("dpaste.com" .
      (webpaste-provider
       :domain "http://dpaste.com/api/v2/";