[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] scratch/with-url 954aecf 2/7: Actually send over the HTTP
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] scratch/with-url 954aecf 2/7: Actually send over the HTTP headers |
Date: |
Sat, 21 Jan 2017 23:08:22 +0000 (UTC) |
branch: scratch/with-url
commit 954aecfad3826c181b3dc075271ca5e6861314af
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Actually send over the HTTP headers
---
lisp/url/with-url.el | 13 +++++++++----
1 file changed, 9 insertions(+), 4 deletions(-)
diff --git a/lisp/url/with-url.el b/lisp/url/with-url.el
index 541d932..dbd95d5 100644
--- a/lisp/url/with-url.el
+++ b/lisp/url/with-url.el
@@ -41,6 +41,9 @@
url parsed-url process
response-size start-time last-read-time timer)
+(defvar with-url-debug nil
+ "If non-nil, record all actions in the \"*url-debug*\" buffer.")
+
(defvar with-url--headers nil)
(defvar with-url--status nil)
@@ -152,7 +155,7 @@ and `base64'."
:timeout ,timeout
:read-timeout ,read-timeout
:verbose ,verbose
- :debug ,debug
+ :debug ,(or with-url-debug debug)
:cookies ,cookies
:cache ,cache
:headers ',headers
@@ -164,6 +167,7 @@ and `base64'."
:start-time (current-time)
:last-read-time (current-time)
:redirect-times 0)))
+ (message "Foo %s" ,method)
,(if wait
`(progn
(with-url--fetch ,requestv)
@@ -294,7 +298,7 @@ If given, return the value in BUFFER instead."
(with-url--callback (url-request-process req) '(500 "Timer expired")))))
(defun with-url--sentinel (process change)
- (message "%s %s" process change)
+ (message "%s %s %s" process change (process-status process))
(cond
((equal change "open\n")
(with-url--send-request process))
@@ -339,10 +343,10 @@ If given, return the value in BUFFER instead."
when (and (not (cl-assoc name (url-request-headers req)
:test #'cl-equalp))
value)
- do (format "%s: %s\n\r" name value))
+ do (insert (format "%s: %s\r\n" name value)))
(cl-loop for (name value) in (url-request-headers req)
when value
- do (format "%s: %s\n\r" name value))
+ do (insert (format "%s: %s\r\n" name value)))
(insert "\r\n")
(when data
(insert (caddr data)))
@@ -352,6 +356,7 @@ If given, return the value in BUFFER instead."
(defun with-url--debug (type string)
(with-current-buffer (get-buffer-create "*url-debug*")
+ (goto-char (point-max))
(insert (if (eq type 'request)
">>> "
"<<< ")
- [Emacs-diffs] scratch/with-url updated (7355274 -> f74e07b), Lars Ingebrigtsen, 2017/01/21
- [Emacs-diffs] scratch/with-url b4ee883 4/7: Get the HTML redirect right (for duck duck go)., Lars Ingebrigtsen, 2017/01/21
- [Emacs-diffs] scratch/with-url 954aecf 2/7: Actually send over the HTTP headers,
Lars Ingebrigtsen <=
- [Emacs-diffs] scratch/with-url f74e07b 7/7: Get the "peer closes connection first" case right, Lars Ingebrigtsen, 2017/01/21
- [Emacs-diffs] scratch/with-url e331a03 6/7: Remove debugging, Lars Ingebrigtsen, 2017/01/21
- [Emacs-diffs] scratch/with-url 94b1d02 3/7: Decompress compressed data, Lars Ingebrigtsen, 2017/01/21
- [Emacs-diffs] scratch/with-url 2ca3815 1/7: Convert to with-url, Lars Ingebrigtsen, 2017/01/21
- [Emacs-diffs] scratch/with-url 41f9cda 5/7: Allow a global debugging switch for easier debugging, Lars Ingebrigtsen, 2017/01/21