From 403c021d92bb036be5d95735bc1403056db3780b Mon Sep 17 00:00:00 2001
From: Sean Allred <code@seanallred.com>
Date: Tue, 11 Nov 2014 12:46:13 -0500
Subject: Use smart caching

---
 sx-site.el | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/sx-site.el b/sx-site.el
index 840bbca..c8de938 100644
--- a/sx-site.el
+++ b/sx-site.el
@@ -24,6 +24,7 @@
 ;;; Code:
 
 (require 'sx-method)
+(require 'sx-cache)
 
 (defvar sx-site-browse-filter
   '((.backoff
@@ -44,8 +45,14 @@
     nil
     none))
 
-(defun sx-site-get-sites ()
-  (sx-method-call "sites" nil sx-site-browse-filter))
+(defun sx-site-get-sites ())
+
+(defun sx-site--get-site-list ()
+  (sx-cache-get
+   'site-list
+   '(sx-method-call
+     "sites" '((pagesize . 999))
+     sx-site-browse-filter)))
 
 (defcustom sx-site-favorites
   nil
-- 
cgit v1.2.3