diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-26 22:10:07 +0000 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-26 22:10:07 +0000 |
| commit | 185365628b3088f77713e569c3390898b7848c22 (patch) | |
| tree | c9611e1dc7bee5ce2d5e737ff28d021120d3036f | |
| parent | df6b6e57304c2415c111b4770608e81f4506fac9 (diff) | |
Make site a url argument
This addresses the apparent api bug which affected both the retrieval of
favorites and the site-switching. Se #82
As far as I can see, this issue affects ALL api calls, so it seems
reasonable that it should be fixed inside `sx-method-call`.
The usage of sx-method-call stays the same, only the internal has changed.
| -rw-r--r-- | sx-favorites.el | 3 | ||||
| -rw-r--r-- | sx-method.el | 10 |
2 files changed, 7 insertions, 6 deletions
diff --git a/sx-favorites.el b/sx-favorites.el index aaf2734..d957167 100644 --- a/sx-favorites.el +++ b/sx-favorites.el @@ -52,7 +52,8 @@ Added as hook to initialization." (defun sx-favorites--retrieve-favorites (site) "Obtain list of starred QUESTION_IDs for SITE." (sx-method-call 'me - :submethod (format "favorites?site=%s" site) + :submethod 'favorites + :site site :filter sx-favorite-list-filter :auth t)) diff --git a/sx-method.el b/sx-method.el index 4bd98a5..238f46a 100644 --- a/sx-method.el +++ b/sx-method.el @@ -75,7 +75,9 @@ Return the entire response as a complex alist." (when id (format "/%s" id)) (when submethod - (format "/%s" submethod)))) + (format "/%s" submethod)) + (when (stringp site) + (format "?site=%s" site)))) (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) @@ -96,10 +98,8 @@ 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)) (funcall call full-method parameters |