aboutsummaryrefslogtreecommitdiff
path: root/sx-request.el
diff options
context:
space:
mode:
authorSean Allred <code@seanallred.com>2014-11-14 17:25:27 -0500
committerSean Allred <code@seanallred.com>2014-11-14 17:30:21 -0500
commit1e859ea6d9b5365f69f8dea5d690e6bee8350e7a (patch)
tree7f7da64a833f8c1c783b6d4977fc79f06d227d1d /sx-request.el
parent403c021d92bb036be5d95735bc1403056db3780b (diff)
parent22cc1b1b959761cda2ff2048dbaeba99cc094930 (diff)
Merge branch 'master' into network-list
Conflicts: sx-filter.el sx-question.el
Diffstat (limited to 'sx-request.el')
-rw-r--r--sx-request.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/sx-request.el b/sx-request.el
index 56362fc..6dc54e7 100644
--- a/sx-request.el
+++ b/sx-request.el
@@ -41,7 +41,7 @@
"The current version of the API.")
(defconst sx-request-api-root
- (format "http://api.stackexchange.com/%s/" sx-request-api-version)
+ (format "https://api.stackexchange.com/%s/" sx-request-api-version)
"The base URL to make requests from.")
(defcustom sx-request-silent-p
@@ -107,15 +107,15 @@ number of requests left every time it finishes a call.")
(error "Response could not be read by `json-read-from-string'"))
;; If we get here, the response is a valid data structure
(sx-assoc-let response
- (when error_id
+ (when .error_id
(error "Request failed: (%s) [%i %s] %S"
- method error_id error_name error_message))
+ .method .error_id .error_name .error_message))
(when (< (setq sx-request-remaining-api-requests
- quota_remaining)
+ .quota_remaining)
sx-request-remaining-api-requests-message-threshold)
(sx-message "%d API requests reamining"
sx-request-remaining-api-requests))
- items)))))))
+ (sx-encoding-clean-content-deep .items))))))))
;;; Support Functions