Added dpaste.de as provider

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 [3/6]
+** TODO Providers to implement [4/6]
  - [X] ix.io
  - [X] dpaste.com
  - [X] sprunge.us
- - [ ] dpaste.de
+ - [X] dpaste.de
  - [ ] paste.pound-python.org
  - [ ] paste.debian.net

webpaste.el

@@ -140,7 +140,21 @@ Usage:
       :success
       (cl-function (lambda (&key response &allow-other-keys)
                      (webpaste-return-url
-                      (request-response-header response "Location")))))))
+                      (request-response-header response "Location"))))))
+
+    ("dpaste.de" .
+     (webpaste-provider
+      :domain "https://dpaste.de/api/"
+      :parser 'buffer-string
+      :post-data '(("lexer" . "text")
+                   ("format" . "url")
+                   ("expires" . 86400))
+      :post-field "content"
+      :success
+      (cl-function (lambda (&key data &allow-other-keys)
+                     (when data
+                       (webpaste-return-url
+                        (replace-regexp-in-string "\n$" "" data))))))))
 
   "Define all webpaste.el providers.
 Consists of provider name and lambda function to do the actuall call to the