diff options
| author | Sean Allred <code@seanallred.com> | 2014-10-30 22:40:20 -0400 |
|---|---|---|
| committer | Sean Allred <code@seanallred.com> | 2014-10-30 22:40:20 -0400 |
| commit | 3a4af37c6fd4efee44a6189ae93608f671c80f82 (patch) | |
| tree | 412bd8f59bb207e3a8e9aa25f7979a5060acd3f6 /stack-core.el | |
| parent | bc483a2a41c69214a26c4d6d3eb073d9870168c5 (diff) | |
Implement question list retrieval
Diffstat (limited to 'stack-core.el')
| -rw-r--r-- | stack-core.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/stack-core.el b/stack-core.el index 8badc3a..93eafda 100644 --- a/stack-core.el +++ b/stack-core.el @@ -142,7 +142,7 @@ with the given KEYWORD-ARGUMENTS." base (concat base "?" args)))) -(defun stack-core-make-request (method &optional keyword-arguments) +(defun stack-core-make-request (method &optional keyword-arguments filter) "Make a request to the StackExchange API using METHOD and optional KEYWORD-ARGUMENTS. If no KEYWORD-ARGUMENTS are given, `stack-core-default-keyword-arguments-alist' is used. Return the @@ -151,8 +151,10 @@ entire response as a complex alist." (json-read-from-string (let ((call (stack-core-build-request method - (cons `(filter . ,(if (boundp 'stack-core-filter) - stack-core-filter)) + (cons `(filter . ,(cond + (filter filter) + ((boundp 'stack-filter) + stack-filter))) (if keyword-arguments keyword-arguments (stack-core-get-default-keyword-arguments method))))) |