Construct post data correctly

master
Elis Axelsson 10 years ago
parent 61f369e292
commit 183b1a7010
  1. 8
      webpaste.el

@ -66,14 +66,18 @@
(defun webpaste-providers-ix.io (text) (defun webpaste-providers-ix.io (text)
"Paste TEXT to http://ix.io/." "Paste TEXT to http://ix.io/."
(let ((post-data '()))
;; Construct post data
(add-to-list 'post-data (cons "f:1" text))
;; Use request.el to do request to ix.io to submit data ;; Use request.el to do request to ix.io to submit data
(request "http://ix.io/" (request "http://ix.io/"
:type "POST" :type "POST"
:data '(("f:1" . text)) :data post-data
:parser 'buffer-string :parser 'buffer-string
:success (function* (lambda (&key data &allow-other-keys) :success (function* (lambda (&key data &allow-other-keys)
(when data (when data
(webpaste-return-url data))))) (webpaste-return-url data))))))
nil) nil)

Loading…
Cancel
Save