hiro/emacs-ipython-notebook
1
0
Fork 0
mirror of https://github.com/vale981/emacs-ipython-notebook synced 2025-03-06 09:31:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge branch 'request-login' into request

Browse source
This commit is contained in:
Takafumi Arakaki 2013-01-10 22:01:07 +01:00
commit 382ce21631
2 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/request

@ -1 +1 @@
Subproject commit e3b02b3a7dffafac7179ede82cc06296f3188df5
Subproject commit 23547740903063ccc145e021c1ca3a6bfbd1c9f6

16
lisp/ein-notebooklist.el
View file

@ -481,8 +481,7 @@ FIMXE: document how to use `ein:notebooklist-find-file-callback'
(defun ein:notebooklist-login--parser ()
(goto-char (point-min))
(list :has-cookie (search-forward "Set-Cookie" nil t)
:bad-page (re-search-forward "<input type=.?password" nil t)))
(list :bad-page (re-search-forward "<input type=.?password" nil t)))
(defun ein:notebooklist-login--success-1 (url-or-port)
(ein:log 'info "Login to %s complete. \
@ -506,10 +505,15 @@ Now you can open notebook list by `ein:notebooklist-open'." url-or-port))
&allow-other-keys
&aux
(response-status (request-response-status-code response)))
(if (and (eq symbol-status 'timeout)
response-status
(= response-status 302)
(plist-get data :has-cookie))
(if (or
;; workaround for url-retrieve backend
(and (eq symbol-status 'timeout)
(equal response-status 302)
(request-response-header response "set-cookie"))
;; workaround for curl backend
(and (equal response-status 405)
(ein:aand (car (request-response-history response))
(request-response-header it "set-cookie"))))
(ein:notebooklist-login--success-1 url-or-port)
(ein:notebooklist-login--error-1 url-or-port)))