diff options
| author | Sean Allred <code@seanallred.com> | 2014-11-08 14:12:42 -0500 |
|---|---|---|
| committer | Sean Allred <code@seanallred.com> | 2014-11-08 14:12:42 -0500 |
| commit | 7ed29c4dc940a871562aaa802ac53ddee4c66a27 (patch) | |
| tree | 4656459efc90a16ad70a5f857630066a85805e11 /sx-request.el | |
| parent | b6043f63e5b3437633a53bcc191214bb8a7f936b (diff) | |
Re-work filtering and caching
* sx-auth.el
- Use new symbolic cache access
* sx-cache.el
- Implement symbolic cache access
* sx-filter.el
- Use symbolic cache access
- Compile and save filters on-demand
(more work to be done to this end)
* sx-question.el
- Symbolic filters
* sx-request.el
- Protection against infinitely recursing when compiling a filter
This will be re-worked into requests (a front-end function) and
'raw' requests (a back-end function). The front-end will add
convenience to the back-end.
* test/tests.el
Remove outdated tests
Diffstat (limited to 'sx-request.el')
| -rw-r--r-- | sx-request.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/sx-request.el b/sx-request.el index a62ee0e..8ca0314 100644 --- a/sx-request.el +++ b/sx-request.el @@ -26,6 +26,7 @@ (require 'json) (require 'url) (require 'sx) +(require 'sx-filter) (defcustom sx-request-silent-p t @@ -95,8 +96,11 @@ entire response as a complex alist." (call (sx-request--build method - (append `((filter . ,(cond (filter filter) - ((boundp 'stack-filter) stack-filter))) + (append `((filter . ,(unless (string-equal method "filter/create") + (sx-filter-get-var + (cond (filter filter) + ((boundp 'stack-filter) + stack-filter))))) (key . ,sx-request-api-key)) (if keyword-arguments keyword-arguments (sx-request--get-default-keyword-arguments method)))))) |