[nongnu] elpa/webpaste 2dc2206 126/298: Added github anonymous gists as provider. This fixes #8.

[ELPA Syncer]

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

    Added github anonymous gists as provider. This fixes #8.
---
 README.org  |  3 ++-
 webpaste.el | 22 +++++++++++++++++++---
 2 files changed, 21 insertions(+), 4 deletions(-)

diff --git a/README.org b/README.org
index 760b1e3..b1c8b0c 100644
--- a/README.org
+++ b/README.org
@@ -22,7 +22,7 @@ easiest way to install and configure packages.
            ("C-c C-p C-r" . webpaste-paste-region)))
 #+END_SRC
 
-** TODO Providers to implement [5/8]
+** TODO Providers to implement [6/9]
  - [X] ptpb.pw
  - [X] ix.io
  - [X] dpaste.com
@@ -31,3 +31,4 @@ easiest way to install and configure packages.
  - [ ] paste.pound-python.org
  - [ ] paste.debian.net
  - [ ] bpaste.net
+ - [X] gist.github.com
diff --git a/webpaste.el b/webpaste.el
index 70320f5..b2053aa 100644
--- a/webpaste.el
+++ b/webpaste.el
@@ -7,7 +7,7 @@
 ;; Package-Version: 1.2.1
 ;; Version: 1.2.1
 ;; Keywords: convenience, comm, paste
-;; Package-Requires: ((emacs "24.4") (request "0.2.0") (cl-lib "0.5"))
+;; Package-Requires: ((emacs "24.4") (request "0.2.0") (cl-lib "0.5") (json 
"1.4"))
 
 ;;; Commentary:
 
@@ -36,6 +36,7 @@
 ;;; Code:
 (require 'request)
 (require 'cl-lib)
+(require 'json)
 
 
 
@@ -98,7 +99,6 @@ each run.")
     post-data)
   "Predefined lambda for building post fields.")
 
-
 
 
 (cl-defun webpaste-provider (&key uri
@@ -196,7 +196,23 @@ Optional params:
                     ("format" . "url")
                     ("expires" . 86400))
        :post-field "content"
-       :success-lambda webpaste/providers-success-returned-string)))
+       :success-lambda webpaste/providers-success-returned-string))
+
+    ("gist.github.com"
+     ,(webpaste-provider
+       :uri "https://api.github.com/gists";
+       :post-field nil
+       :post-field-lambda (lambda (text post-field post-data)
+                            (json-encode `(("description" . "Pasted from Emacs 
with webpaste.el")
+                                           ("public" . "true")
+                                           ("files" .
+                                            (("file.txt" .
+                                              (("content" . ,text))))))))
+       :success-lambda (cl-function (lambda (&key data &allow-other-keys)
+                                      (message "fubar")
+                                      (when data
+                                        (webpaste-return-url
+                                         (cdr (assoc 'html_url 
(json-read-from-string data))))))))))
 
   "Define all webpaste.el providers.
 Consists of provider name and lambda function to do the actuall call to the