From eeb327e3af94e1118218c129916b8f7165e835ef Mon Sep 17 00:00:00 2001
From: Sean Allred <code@seanallred.com>
Date: Sat, 3 Jan 2015 22:51:45 -0500
Subject: Introduce :page and :pagesize into sx-method-call

Default page size is 100 to reduce number of overall requests made.

Fixes #190.
---
 sx-site.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'sx-site.el')

diff --git a/sx-site.el b/sx-site.el
index 8bd4fc0..1402bb9 100644
--- a/sx-site.el
+++ b/sx-site.el
@@ -49,7 +49,7 @@
   (sx-cache-get
    'site-list
    '(sx-method-call 'sites
-      :keywords '((pagesize . 999))
+      :pagesize 999
       :filter sx-site-browse-filter)))
 
 (defcustom sx-site-favorites
-- 
cgit v1.2.3


From 066469bead9f8d4536e56a7ba08adb169e299893 Mon Sep 17 00:00:00 2001
From: Sean Allred <code@seanallred.com>
Date: Sat, 3 Jan 2015 23:01:14 -0500
Subject: Use new `sx-filter-from-nil' macro

---
 sx-favorites.el | 10 +++-------
 sx-networks.el  | 38 +++++++++++++++-----------------------
 sx-site.el      | 25 ++++++++-----------------
 sx.el           |  1 +
 4 files changed, 27 insertions(+), 47 deletions(-)

(limited to 'sx-site.el')

diff --git a/sx-favorites.el b/sx-favorites.el
index d957167..e86e521 100644
--- a/sx-favorites.el
+++ b/sx-favorites.el
@@ -25,15 +25,11 @@
 (require 'sx-cache)
 (require 'sx-site)
 (require 'sx-networks)
+(require 'sx-filter)
 
 (defvar sx-favorite-list-filter
-  '((.backoff
-     .items
-     .quota_max
-     .quota_remaining
-     question.question_id)
-    nil
-    none))
+  (sx-filter-from-nil
+   (question.question_id)))
 
 (defvar sx-favorites--user-favorite-list nil
   "Alist of questions favorited by the user.
diff --git a/sx-networks.el b/sx-networks.el
index e4660af..20ac65c 100644
--- a/sx-networks.el
+++ b/sx-networks.el
@@ -24,31 +24,23 @@
 (require 'sx-method)
 (require 'sx-cache)
 (require 'sx-site)
+(require 'sx-filter)
 
 (defvar sx-network--user-filter
-  '((.backoff
-     .error_id
-     .error_message
-     .error_name
-     .has_more
-     .items
-     .quota_max
-     .quota_remaining
-     badge_count.bronze
-     badge_count.silver
-     badge_count.gold
-     network_user.account_id
-     network_user.answer_count
-     network_user.badge_counts
-     network_user.creation_date
-     network_user.last_access_date
-     network_user.reputation
-     network_user.site_name
-     network_user.site_url
-     network_user.user_id
-     network_user.user_type)
-    nil
-    none))
+  (sx-filter-from-nil
+   (badge_count.bronze
+    badge_count.silver
+    badge_count.gold
+    network_user.account_id
+    network_user.answer_count
+    network_user.badge_counts
+    network_user.creation_date
+    network_user.last_access_date
+    network_user.reputation
+    network_user.site_name
+    network_user.site_url
+    network_user.user_id
+    network_user.user_type)))
 
 (defun sx-network--get-associated ()
   "Retrieve cached information for network user.
diff --git a/sx-site.el b/sx-site.el
index 1402bb9..1bc86a6 100644
--- a/sx-site.el
+++ b/sx-site.el
@@ -23,25 +23,16 @@
 
 (require 'sx-method)
 (require 'sx-cache)
+(require 'sx-filter)
 
 (defvar sx-site-browse-filter
-  '((.backoff
-     .error_id
-     .error_message
-     .error_name
-     .has_more
-     .items
-     .quota_max
-     .quota_remaining
-     site.site_type
-     site.name
-     site.site_url
-     site.api_site_parameter
-     site.related_sites
-     related_site.api_site_parameter
-     related_site.relation)
-    nil
-    none)
+  (sx-filter-from-nil
+   (site.site_type
+    site.name
+    site.api_site_parameter
+    site.related_sites
+    related_site.api_site_parameter
+    related_site.relation))
   "Filter for browsing sites.")
 
 (defun sx-site--get-site-list ()
diff --git a/sx.el b/sx.el
index 48a7edc..948b8ae 100644
--- a/sx.el
+++ b/sx.el
@@ -145,6 +145,7 @@ If ALIST doesn't have a `site' property, one is created using the
 
 ;;; Browsing filter
 (defvar sx-browse-filter
+  ;; @TODO: Use `sx-filter-from-nil'
   '((question.body_markdown
      question.comments
      question.answers
-- 
cgit v1.2.3