diff options
| author | Sean Allred <code@seanallred.com> | 2014-11-27 12:57:25 -0500 |
|---|---|---|
| committer | Sean Allred <code@seanallred.com> | 2014-11-27 12:57:25 -0500 |
| commit | 2576521ee0ecb2831356fb21c9eb4698832d82cc (patch) | |
| tree | 1a8b112503e49732f6f8efd4c5b303ae0e8a9da5 /sx-method.el | |
| parent | d5a68d158bb9a73dcf3cb6ee178422173f6023af (diff) | |
| parent | 686ff49e2f9ec57e7c5a712f7e934fa9f7099b0d (diff) | |
Merge branch 'master' into hotfix
Diffstat (limited to 'sx-method.el')
| -rw-r--r-- | sx-method.el | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/sx-method.el b/sx-method.el index 4bd98a5..1b20cbf 100644 --- a/sx-method.el +++ b/sx-method.el @@ -75,8 +75,14 @@ Return the entire response as a complex alist." (when id (format "/%s" id)) (when submethod - (format "/%s" submethod)))) - (call 'sx-request-make)) + (format "/%s" submethod)) + ;; On GET methods site is buggy, so we + ;; need to provide it as a url argument. + (when (and site (string= url-method "GET")) + (prog1 + (format "?site=%s" site) + (setq site nil))))) + (call #'sx-request-make)) (lwarn "sx-call-method" :debug "A: %S T: %S. M: %S,%s. F: %S" (equal 'warn auth) access-token method-auth full-method filter-auth) (unless access-token @@ -96,10 +102,10 @@ Return the entire response as a complex alist." (error "This request requires authentication.")))) ;; Concatenate all parameters now that filter is ensured. (setq parameters - (cons `(site . ,site) - (cons (cons 'filter - (sx-filter-get-var filter)) - keywords))) + (cons (cons 'filter (sx-filter-get-var filter)) + keywords)) + (when site + (setq parameters (cons (cons 'site site) parameters))) (funcall call full-method parameters |