diff options
| author | Sean Allred <code@seanallred.com> | 2014-11-06 07:39:31 -0500 |
|---|---|---|
| committer | Sean Allred <code@seanallred.com> | 2014-11-06 07:39:31 -0500 |
| commit | 26010d45be880baccfc846bc45879834be9b020e (patch) | |
| tree | f65c128058929f6195e1ce1d228d979407f96a29 | |
| parent | 1dc6aa668bd42113c14397cea26b2e1785c7804f (diff) | |
| parent | 3de729e9ce6a66c215cc0b4d9593511dad225d5d (diff) | |
Merge branch 'master' into auth
Conflicts:
stack-core.el
| -rw-r--r-- | stack-core.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/stack-core.el b/stack-core.el index 6c5e7fa..496533e 100644 --- a/stack-core.el +++ b/stack-core.el @@ -63,6 +63,10 @@ Do not change this unless you know what you are doing!") +(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") @@ -173,8 +177,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 |