aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJonathan Leech-Pepin <jonathan.leechpepin@gmail.com>2014-11-17 17:47:20 -0500
committerJonathan Leech-Pepin <jonathan.leechpepin@gmail.com>2014-11-17 17:47:20 -0500
commit49ccfdc2202cb8d71638e115509fc20d487a0da1 (patch)
treee4a43a76070687dacda9c9aa72b814e25826c10c
parent7e6d1a3663b2d9fb21c104c8cc145cb9bf65c85d (diff)
Fix mistakes:
- sx-network--user-information is a var not a function - remember to setq sx-network--user-sites.
-rw-r--r--sx-networks.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/sx-networks.el b/sx-networks.el
index 5e6a96d..3a33f1a 100644
--- a/sx-networks.el
+++ b/sx-networks.el
@@ -76,7 +76,8 @@ This should be called during initialization."
(or (sx-network--get-associated)
(sx-network--update)))
((not sx-network--user-sites)
- (sx-network--map-site-url-to-site-api))))
+ (setq sx-network--user-sites
+ (sx-network--map-site-url-to-site-api)))))
(defun sx-network--map-site-url-to-site-api ()
"Convert `me/associations' to a set of `api_site_parameter's.
@@ -93,7 +94,7 @@ list of sites the user is active on."
(let ((u-site (cdr (assoc 'site_url loc))))
(when (member u-site (mapcar 'car sites-info))
(cdr (assoc u-site sites-info)))))
- (sx-network--user-information))))
+ sx-network--user-information)))
(defvar sx-network--user-information nil
"User information for the various sites.")