From 0b8fd6291719c4913f64a9e322abcb025fbf5e40 Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Fri, 7 Nov 2014 17:37:29 -0500 Subject: Rename sx-network to sx-site According to the documentation, it's the appropriate terminology. --- sx-site.el | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 sx-site.el (limited to 'sx-site.el') diff --git a/sx-site.el b/sx-site.el new file mode 100644 index 0000000..8d78e8a --- /dev/null +++ b/sx-site.el @@ -0,0 +1,36 @@ +;;; sx-site.el --- browsing sites -*- lexical-binding: t; -*- + +;; Copyright (C) 2014 Sean Allred + +;; Author: Sean Allred + +;; 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 . + +;;; Commentary: + +;; + +;;; Code: + +(require 'sx-request) + +(defun sx-site-get-sites () + (sx-request-make "sites")) + +(provide 'sx-site) +;;; stack-site.el ends here + +;; Local Variables: +;; indent-tabs-mode: nil +;; End: -- cgit v1.2.3 From 60a07cd274e80d9dfbb37f4d87a51e7b1d8af536 Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Mon, 10 Nov 2014 23:10:23 -0500 Subject: Use narrow filter for site list --- sx-site.el | 20 ++++++++++++++++++-- 1 file changed, 18 insertions(+), 2 deletions(-) (limited to 'sx-site.el') diff --git a/sx-site.el b/sx-site.el index 8d78e8a..3c326e4 100644 --- a/sx-site.el +++ b/sx-site.el @@ -23,10 +23,26 @@ ;;; Code: -(require 'sx-request) +(require 'sx-method) + +(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) + nil + none)) (defun sx-site-get-sites () - (sx-request-make "sites")) + (sx-method-call "sites" nil sx-site-browse-filter)) (provide 'sx-site) ;;; stack-site.el ends here -- cgit v1.2.3 From 768dc0e2a4d924bdb3d4908233e27de236861005 Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Tue, 11 Nov 2014 12:44:29 -0500 Subject: Include more fields in the sites filter --- sx-site.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'sx-site.el') diff --git a/sx-site.el b/sx-site.el index 3c326e4..fcdc383 100644 --- a/sx-site.el +++ b/sx-site.el @@ -37,7 +37,10 @@ site.site_type site.name site.site_url - site.api_site_parameter) + site.api_site_parameter + site.related_sites + related_site.api_site_parameter + related_site.relation) nil none)) -- cgit v1.2.3 From 9f679fdadce15381efba781e8561d4cdc172319c Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Tue, 11 Nov 2014 12:44:42 -0500 Subject: Add favorite sites customization --- sx-site.el | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'sx-site.el') diff --git a/sx-site.el b/sx-site.el index fcdc383..840bbca 100644 --- a/sx-site.el +++ b/sx-site.el @@ -47,6 +47,11 @@ (defun sx-site-get-sites () (sx-method-call "sites" nil sx-site-browse-filter)) +(defcustom sx-site-favorites + nil + "Favorite sites." + :group 'sx-site) + (provide 'sx-site) ;;; stack-site.el ends here -- cgit v1.2.3 From 403c021d92bb036be5d95735bc1403056db3780b Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Tue, 11 Nov 2014 12:46:13 -0500 Subject: Use smart caching --- sx-site.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'sx-site.el') 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 From 7881572c09281785c1d0303d13305b583b3803cd Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Fri, 14 Nov 2014 17:44:55 -0500 Subject: Fix comment --- 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 2243fa8..6bef91f 100644 --- a/sx-site.el +++ b/sx-site.el @@ -64,7 +64,7 @@ (sx-site--get-site-list))) (provide 'sx-site) -;;; stack-site.el ends here +;;; sx-site.el ends here ;; Local Variables: ;; indent-tabs-mode: nil -- cgit v1.2.3