diff options
author | Jonathan Leech-Pepin <jonathan.leechpepin@gmail.com> | 2014-11-21 12:11:11 -0500 |
---|---|---|
committer | Jonathan Leech-Pepin <jonathan.leechpepin@gmail.com> | 2014-11-21 12:11:11 -0500 |
commit | 06cd4215de8d2e8680de74546984d9bdbc47b1d3 (patch) | |
tree | 47ecf189670326365693586094e596772f89cb7c | |
parent | 1d4dd3d3171895e66ab16948d2320b22841f582e (diff) |
Whitespace fixup (spaces not tabs).
-rw-r--r-- | sx-method.el | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/sx-method.el b/sx-method.el index 3eea5d7..04d973d 100644 --- a/sx-method.el +++ b/sx-method.el @@ -69,41 +69,41 @@ treat 'warn as equivalent to t. Return the entire response as a complex alist." (declare (indent 1)) (let ((access-token (sx-cache-get 'auth)) - (method-auth (sx-auth--method-p method submethod)) - (filter-auth (sx-auth--filter-p filter)) - (full-method (concat (format "%s" method) - (when id - (format "/%s" id)) - (when submethod - (format "/%s" submethod)))) - (call 'sx-request-make)) + (method-auth (sx-auth--method-p method submethod)) + (filter-auth (sx-auth--filter-p filter)) + (full-method (concat (format "%s" method) + (when id + (format "/%s" id)) + (when submethod + (format "/%s" submethod)))) + (call 'sx-request-make)) (lwarn "sx-call-method" :debug "A: %S T: %S. M: %S,%s. F: %S" (equal 'warn auth) - access-token method-auth full-method filter-auth) + access-token method-auth full-method filter-auth) (unless access-token (cond ;; 1. Need auth and warn user (interactive use) ((and method-auth (equal 'warn auth)) - (user-error - "This request requires authentication. Please run `M-x sx-auth-authenticate' and try again.")) + (user-error + "This request requires authentication. Please run `M-x sx-auth-authenticate' and try again.")) ;; 2. Need auth to populate UI, cannot provide subset ((and method-auth auth) - (setq call 'sx-request-fallback)) + (setq call 'sx-request-fallback)) ;; 3. Need auth for type. Use auth-less filter. ((and filter-auth auth) - (setq filter filter-auth)) + (setq filter filter-auth)) ;; 4. Requires auth but no value set for auth ((and (or filter-auth method-auth) (not auth)) - (error "This request requires authentication.")))) + (error "This request requires authentication.")))) ;; Concatenate all parameters now that filter is ensured. (setq parameters - (cons `(site . ,site) - (cons (cons 'filter - (sx-filter-get-var filter)) - keywords))) + (cons `(site . ,site) + (cons (cons 'filter + (sx-filter-get-var filter)) + keywords))) (funcall call - full-method - parameters - url-method))) + full-method + parameters + url-method))) (provide 'sx-method) ;;; sx-method.el ends here |