From 9cb376361983742f0a15775b233fc194d61b3ea7 Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Wed, 5 Nov 2014 19:55:24 -0500 Subject: Add API key to requests --- stack-core.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'stack-core.el') diff --git a/stack-core.el b/stack-core.el index c78c316..197a7e4 100644 --- a/stack-core.el +++ b/stack-core.el @@ -57,6 +57,10 @@ (format "http://api.stackexchange.com/%s/" stack-core-api-version) "The base URL to make requests from.") +(defconst stack-core-api-key + "0TE6s1tveCpP9K5r5JNDNQ((" + "When passed, this key provides a higher request quota.") + (defcustom stack-core-default-keyword-arguments-alist '(("filters/create") ("sites") @@ -164,8 +168,9 @@ entire response as a complex alist." (call (stack-core-build-request method - (cons `(filter . ,(cond (filter filter) - ((boundp 'stack-filter) stack-filter))) + (append `((filter . ,(cond (filter filter) + ((boundp 'stack-filter) stack-filter))) + (key . ,stack-core-api-key)) (if keyword-arguments keyword-arguments (stack-core-get-default-keyword-arguments method)))))) ;; TODO: url-retrieve-synchronously can return nil if the call is -- cgit v1.2.3