[nongnu] elpa/webpaste e12faa5 059/298: Added macro to create provider lambdas

[ELPA Syncer]

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

    Added macro to create provider lambdas
---
 webpaste.el | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)

diff --git a/webpaste.el b/webpaste.el
index 0222d8c..da1569a 100644
--- a/webpaste.el
+++ b/webpaste.el
@@ -59,6 +59,50 @@ if that variable is nil, it will use the list of names from 
‘webpaste-provider
 each run.")
 
 
+(cl-defmacro webpaste-provider
+    (&key (domain)
+          (type "POST")
+          (parser)
+          (post-data ())
+          (post-field)
+          (success))
+  "Macro to create the lambda function for a provider.
+
+This macro accepts the parameters :domain, :type, :parser, :post-data,
+:post-field and :success.
+
+Usage:
+  (webpaste-provider
+    [:keyword [option]]...)
+
+:domain      URL that we should do the request to to paste data.
+:type        HTTP Request type, defaults to POST.
+:parser      Defines how request.el parses the result. Look up :parser for
+             `request`.
+:post-data   Default post fields sent to service. Defaults to nil.
+:post-field  Name of the field to insert the code into.
+:success     Callback sent to `requset`, look up how to write these in the
+             documentation for `request`"
+  `(lambda (text)
+     "Paste TEXT to provider"
+
+     ;; Local variable post-data
+     (let ((post-data ,post-data))
+       ;; Push field with text to post-data
+       (cl-pushnew (cons ,post-field text) post-data)
+
+       ;; Do request
+       (request ,domain
+                :type ,type
+                :data post-data
+                :parser ,parser
+                :success ,success
+                :error
+                (cl-function (lambda (&key error-thrown &allow-other-keys)
+                               (message "Got error: %S" error-thrown))))
+       nil)))
+
+
 ;;; Define providers
 (defcustom webpaste-providers-alist
   '(("ix.io" .