[nongnu] elpa/request e77d005 1/7: fix S-exp format as (declare (indent 1))

[ELPA Syncer]

branch: elpa/request
commit e77d005f9fbc9e04ad2c06fd06cd2693f979ac06
Author: Naoya Yamashita <conao3@gmail.com>
Commit: Naoya Yamashita <conao3@gmail.com>

    fix S-exp format as (declare (indent 1))
---
 README.rst | 205 +++++++++++++++++++++++++++++--------------------------------
 1 file changed, 97 insertions(+), 108 deletions(-)

diff --git a/README.rst b/README.rst
index 28e2b7d..78fd58a 100644
--- a/README.rst
+++ b/README.rst
@@ -29,38 +29,35 @@ GET:
 
 .. code:: emacs-lisp
 
-  (request
-   "http://httpbin.org/get";
-   :params '(("key" . "value") ("key2" . "value2"))
-   :parser 'json-read
-   :success (cl-function
-             (lambda (&key data &allow-other-keys)
-               (message "I sent: %S" (assoc-default 'args data)))))
+  (request "http://httpbin.org/get";
+    :params '(("key" . "value") ("key2" . "value2"))
+    :parser 'json-read
+    :success (cl-function
+              (lambda (&key data &allow-other-keys)
+                (message "I sent: %S" (assoc-default 'args data)))))
 
 POST:
 
 .. code:: emacs-lisp
 
-  (request
-   "http://httpbin.org/post";
-   :type "POST"
-   :data '(("key" . "value") ("key2" . "value2"))
-   ;; :data "key=value&key2=value2"  ; this is equivalent
-   :parser 'json-read
-   :success (cl-function
-             (lambda (&key data &allow-other-keys)
-               (message "I sent: %S" (assoc-default 'form data)))))
+  (request "http://httpbin.org/post";
+    :type "POST"
+    :data '(("key" . "value") ("key2" . "value2"))
+    ;; :data "key=value&key2=value2"  ; this is equivalent
+    :parser 'json-read
+    :success (cl-function
+              (lambda (&key data &allow-other-keys)
+                (message "I sent: %S" (assoc-default 'form data)))))
 
 Block until completion:
 
 .. code:: emacs-lisp
 
-  (request
-   "http://httpbin.org/get";
-   :sync t
-   :complete (cl-function
-             (lambda (&key response &allow-other-keys)
-               (message "Done: %s" (request-response-status-code response)))))
+  (request "http://httpbin.org/get";
+    :sync t
+    :complete (cl-function
+              (lambda (&key response &allow-other-keys)
+                (message "Done: %s" (request-response-status-code response)))))
 
 Curl authentication:
 
@@ -77,99 +74,93 @@ Request binary data:
 
 .. code:: emacs-lisp
 
-  (request
-   "http://httpbin.org/get";
-   :encoding 'binary
-   :complete (cl-function
-              (lambda (&key response &allow-other-keys)
-                (message "Done: %s" (request-response-status-code response)))))
+  (request "http://httpbin.org/get";
+    :encoding 'binary
+    :complete (cl-function
+               (lambda (&key response &allow-other-keys)
+                 (message "Done: %s" (request-response-status-code 
response)))))
 
 POST file (**WARNING**: it will send the contents of the current buffer!):
 
 .. code:: emacs-lisp
 
-  (request
-   "http://httpbin.org/post";
-   :type "POST"
-   :files `(("current buffer" . ,(current-buffer)))
-   :parser 'json-read
-   :success (cl-function
-             (lambda (&key data &allow-other-keys)
-               (message "I sent: %S" (assoc-default 'files data)))))
+  (request "http://httpbin.org/post";
+    :type "POST"
+    :files `(("current buffer" . ,(current-buffer)))
+    :parser 'json-read
+    :success (cl-function
+              (lambda (&key data &allow-other-keys)
+                (message "I sent: %S" (assoc-default 'files data)))))
 
 Rich callback dispatch (like `jQuery.ajax`):
 
 .. code:: emacs-lisp
 
-  (request
-   "http://httpbin.org/status/418";     ; try other codes, for example:
-   ;; "http://httpbin.org/status/200";  ; success callback will be called.
-   ;; "http://httpbin.org/status/400";  ; you will see "Got 400."
-   :parser 'buffer-string
-   :success
-   (cl-function (lambda (&key data &allow-other-keys)
-                  (when data
-                    (with-current-buffer (get-buffer-create "*request demo*")
-                      (erase-buffer)
-                      (insert data)
-                      (pop-to-buffer (current-buffer))))))
-   :error
-   (cl-function (lambda (&rest args &key error-thrown &allow-other-keys)
-                  (message "Got error: %S" error-thrown)))
-   :complete (lambda (&rest _) (message "Finished!"))
-   :status-code '((400 . (lambda (&rest _) (message "Got 400.")))
-                  (418 . (lambda (&rest _) (message "Got 418.")))))
+  (request "http://httpbin.org/status/418";     ; try other codes, for example:
+    ;; "http://httpbin.org/status/200";  ; success callback will be called.
+    ;; "http://httpbin.org/status/400";  ; you will see "Got 400."
+    :parser 'buffer-string
+    :success
+    (cl-function (lambda (&key data &allow-other-keys)
+                   (when data
+                     (with-current-buffer (get-buffer-create "*request demo*")
+                       (erase-buffer)
+                       (insert data)
+                       (pop-to-buffer (current-buffer))))))
+    :error
+    (cl-function (lambda (&rest args &key error-thrown &allow-other-keys)
+                   (message "Got error: %S" error-thrown)))
+    :complete (lambda (&rest _) (message "Finished!"))
+    :status-code '((400 . (lambda (&rest _) (message "Got 400.")))
+                   (418 . (lambda (&rest _) (message "Got 418.")))))
 
 Flexible PARSER option:
 
 .. code:: emacs-lisp
 
-  (request
-   "https://github.com/tkf/emacs-request/commits/master.atom";
-   ;; Parse XML in response body:
-   :parser (lambda () (libxml-parse-xml-region (point) (point-max)))
-   :success (cl-function
-             (lambda (&key data &allow-other-keys)
-               ;; Just don't look at this function....
-               (let ((get (lambda (node &rest names)
-                            (if names
-                                (apply get
-                                       (first (xml-get-children
-                                               node (car names)))
-                                       (cdr names))
-                              (first (xml-node-children node))))))
-                 (message "Latest commit: %s (by %s)"
-                          (funcall get data 'entry 'title)
-                          (funcall get data 'entry 'author 'name))))))
+  (request "https://github.com/tkf/emacs-request/commits/master.atom";
+    ;; Parse XML in response body:
+    :parser (lambda () (libxml-parse-xml-region (point) (point-max)))
+    :success (cl-function
+              (lambda (&key data &allow-other-keys)
+                ;; Just don't look at this function....
+                (let ((get (lambda (node &rest names)
+                             (if names
+                                 (apply get
+                                        (first (xml-get-children
+                                                node (car names)))
+                                        (cdr names))
+                               (first (xml-node-children node))))))
+                  (message "Latest commit: %s (by %s)"
+                           (funcall get data 'entry 'title)
+                           (funcall get data 'entry 'author 'name))))))
 
 PUT JSON data:
 
 .. code:: emacs-lisp
 
-  (request
-   "http://httpbin.org/put";
-   :type "PUT"
-   :data (json-encode '(("key" . "value") ("key2" . "value2")))
-   :headers '(("Content-Type" . "application/json"))
-   :parser 'json-read
-   :success (cl-function
-             (lambda (&key data &allow-other-keys)
-               (message "I sent: %S" (assoc-default 'json data)))))
+  (request "http://httpbin.org/put";
+    :type "PUT"
+    :data (json-encode '(("key" . "value") ("key2" . "value2")))
+    :headers '(("Content-Type" . "application/json"))
+    :parser 'json-read
+    :success (cl-function
+              (lambda (&key data &allow-other-keys)
+                (message "I sent: %S" (assoc-default 'json data)))))
 
 PUT JSON data including non-ascii strings:
 
 .. code:: emacs-lisp
 
-  (request
-   "http://httpbin.org/put";
-   :type "PUT"
-   :data (json-encode '(("key" . "値1") ("key2" . "値2")))
-   :headers '(("Content-Type" . "application/json"))
-   :parser 'json-read
-   :encoding 'utf-8
-   :success (cl-function
-             (lambda (&key data &allow-other-keys)
-               (message "I sent: %S" (assoc-default 'json data)))))
+  (request "http://httpbin.org/put";
+    :type "PUT"
+    :data (json-encode '(("key" . "値1") ("key2" . "値2")))
+    :headers '(("Content-Type" . "application/json"))
+    :parser 'json-read
+    :encoding 'utf-8
+    :success (cl-function
+              (lambda (&key data &allow-other-keys)
+                (message "I sent: %S" (assoc-default 'json data)))))
 
 Another PUT JSON example (nested JSON using alist structure, how to represent 
a boolean & how to selectively evaluate lisp):
 
@@ -179,29 +170,27 @@ Another PUT JSON example (nested JSON using alist 
structure, how to represent a
   ;;     to allow elisp evaluation of selected elements prefixed with a comma 
(,)
   ;; (2) This value is expected as a boolean so use the nil / t elisp alist 
denotation
   ;; (3) The function will be evaluated as it has been prefixed with a comma 
(,)
-  (request
-   "http://httpbin.org/put";
-   :type "PUT"
-   :data (json-encode `(("jsonArray" . (("item1" . "value 1") ;; (1)
-                                        ("item2" . t)         ;; (2)
-                                        ("item3" . 
,(your-custom-elisp-function)))))) ;; (3)
-   :headers '(("Content-Type" . "application/json"))
-   :parser 'json-read
-   :success (cl-function
-             (lambda (&key data &allow-other-keys)
-               (message "I sent: %S" (assoc-default 'json data)))))
+  (request "http://httpbin.org/put";
+    :type "PUT"
+    :data (json-encode `(("jsonArray" . (("item1" . "value 1") ;; (1)
+                                         ("item2" . t)         ;; (2)
+                                         ("item3" . 
,(your-custom-elisp-function)))))) ;; (3)
+    :headers '(("Content-Type" . "application/json"))
+    :parser 'json-read
+    :success (cl-function
+              (lambda (&key data &allow-other-keys)
+                (message "I sent: %S" (assoc-default 'json data)))))
 
 GET with Unix domain socket data:
 
 .. code:: emacs-lisp
 
-  (request
-   "http:/hello.txt"
-   :unix-socket "/tmp/app.sock"
-   :parser (lambda () (buffer-string))
-   :success (cl-function
-             (lambda (&key data &allow-other-keys)
-               (message "Got: %s" data))))
+  (request "http:/hello.txt"
+    :unix-socket "/tmp/app.sock"
+    :parser (lambda () (buffer-string))
+    :success (cl-function
+              (lambda (&key data &allow-other-keys)
+                (message "Got: %s" data))))
 
 
 Legacy documentation