|
@@ -32,7 +32,7 @@
|
|
|
(defun nalunch/recent (login pass &optional cookies)
|
|
(defun nalunch/recent (login pass &optional cookies)
|
|
|
(let ((cookies (or cookies (make-instance 'drakma:cookie-jar))))
|
|
(let ((cookies (or cookies (make-instance 'drakma:cookie-jar))))
|
|
|
(multiple-value-bind (body status headers uri)
|
|
(multiple-value-bind (body status headers uri)
|
|
|
- (drakma:http-request +nalunch/mobile-uri+ :cookie-jar cookies :user-agent +mobile-ua+)
|
|
|
|
|
|
|
+ (drakma:http-request +nalunch/mobile-uri+ :cookie-jar cookies :user-agent +nalunch/mobile-ua+)
|
|
|
(declare (ignore status headers))
|
|
(declare (ignore status headers))
|
|
|
(let* ((body (if (puri:uri= uri (puri:uri +nalunch/mobile-uri+))
|
|
(let* ((body (if (puri:uri= uri (puri:uri +nalunch/mobile-uri+))
|
|
|
body
|
|
body
|
