diff options
| author | Jonathan Leech-Pepin <jonathan.leechpepin@gmail.com> | 2014-11-20 13:18:44 -0500 |
|---|---|---|
| committer | Jonathan Leech-Pepin <jonathan.leechpepin@gmail.com> | 2014-11-20 13:18:44 -0500 |
| commit | e63d08fe75cff6e4b713a477408203351cc14e57 (patch) | |
| tree | 989a586aaab421ba17d701858ec1e572f5a4148b /sx-question.el | |
| parent | 6b94d5f8c2c5b187a458c1256d9b496a0378770f (diff) | |
Uses of `sx-method-call` have been updated to use new format.
sx-question now includes 2 authentication requiring parameters,
`question.upvoted` and `question.downvoted`. These will only be used if
access token exists.
sx-favorites still uses site-workaround pending #82.
Diffstat (limited to 'sx-question.el')
| -rw-r--r-- | sx-question.el | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/sx-question.el b/sx-question.el index 972e9d9..d040bad 100644 --- a/sx-question.el +++ b/sx-question.el @@ -35,6 +35,8 @@ question.last_editor question.accepted_answer_id question.link + question.upvoted + question.downvoted user.display_name comment.owner comment.body_markdown @@ -50,18 +52,18 @@ "Get the page PAGE of questions from SITE." (mapcar (lambda (question) (cons (cons 'site site) question)) - (sx-method-call - "questions" - `((site . ,site) - (page . ,page)) - sx-question-browse-filter))) + (sx-method-call 'questions + :keywords `((page . ,page)) + :site site + :auth t + :filter sx-question-browse-filter))) (defun sx-question-get-question (site id) "Get the question ID from SITE." - (let ((res (sx-method-call - (format "questions/%s" id) - `((site . ,site)) - sx-question-browse-filter))) + (let ((res (sx-method-call 'questions + :id id + :site site + :filter sx-question-browse-filter))) (if (vectorp res) (elt res 0) (error "Couldn't find question %S in %S" id site)))) |