diff options
author | Sean Allred <code@seanallred.com> | 2014-11-08 15:49:17 -0500 |
---|---|---|
committer | Sean Allred <code@seanallred.com> | 2014-11-08 15:49:17 -0500 |
commit | 6aa21b85ace92b01676c6da66372b409fe639920 (patch) | |
tree | fb536980c22a701ecabcdc8444504b1cae502d3c /sx-method.el | |
parent | 7c5cc6faf61f58cd1534dcab2c4dbb667c00476d (diff) |
Abstract out method calls
Keeping method calls within `sx-request.el' was causing circular
requirements.
This commit sorts through all of the requirements for each of the files
and ensures that this does not happen. Much of the content removed was
for `sx-request-default-keyword-arguments-alist' and related items. It
was unused, so it was pruned. If it is deemed necessary in the future,
it should be included in `sx-method.el'.
Diffstat (limited to 'sx-method.el')
-rw-r--r-- | sx-method.el | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/sx-method.el b/sx-method.el new file mode 100644 index 0000000..8dc5a65 --- /dev/null +++ b/sx-method.el @@ -0,0 +1,48 @@ +;;; sx-request.el --- requests for stack-mode + +;; Copyright (C) 2014 Sean Allred + +;; Author: Sean Allred <sallred@calamity.tcs.com> +;; Keywords: + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see <http://www.gnu.org/licenses/>. + +;;; Commentary: + +;; + +;;; Code: +(require 'json) +(require 'url) +(require 'sx) +(require 'sx-request) +(require 'sx-filter) + +(defun sx-method-call + (method &optional keyword-arguments filter silent) + "Call METHOD with KEYWORD-ARGUMENTS using FILTER. + +If SILENT is non-nil, no messages will be printed. + +Return the entire response as a complex alist." + (sx-request-make + method + (cons (cons 'filter + (sx-filter-get-var + (cond (filter filter) + ((boundp 'stack-filter) stack-filter)))) + keyword-arguments))) + +(provide 'sx-method) +;;; sx-request.el ends here |