blob: e4660af4b34c4c77cd6d96f105e5a0a75ecc8c85 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
;;; sx-networks.el --- user network information -*- lexical-binding: t; -*-
;; Copyright (C) 2014 Sean Allred
;; Author: Sean Allred <code@seanallred.com>
;; 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 <http://www.gnu.org/licenses/>.
;;; Commentary:
;;; Code:
(require 'sx-method)
(require 'sx-cache)
(require 'sx-site)
(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))
(defun sx-network--get-associated ()
"Retrieve cached information for network user.
If cache is not available, retrieve current data."
(or (and (setq sx-network--user-information (sx-cache-get 'network-user)
sx-network--user-sites
(sx-network--map-site-url-to-site-api)))
(sx-network--update)))
(defun sx-network--update ()
"Update user information.
Sets cache and then uses `sx-network--get-associated' to update
the variables."
(sx-cache-set 'network-user
(sx-method-call 'me
:submethod 'associated
:keywords '((types . (main_site meta_site)))
:filter sx-network--user-filter
:auth t))
(sx-network--get-associated))
(defun sx-network--initialize ()
"Ensure network-user cache is available.
Added as hook to initialization."
;; Cache was not retrieved, retrieve it.
(sx-network--get-associated))
(add-hook 'sx-init--internal-hook #'sx-network--initialize)
(defun sx-network--map-site-url-to-site-api ()
"Convert `me/associations' to a set of `api_site_parameter's.
`me/associations' does not return `api_site_parameter' so cannot
be directly used to retrieve content per site. This creates a
list of sites the user is active on."
(let ((sites-info (mapcar (lambda (x)
(cons (cdr (assoc 'site_url x))
(cdr (assoc 'api_site_parameter
x))))
(sx-site--get-site-list))))
(mapcar (lambda (loc)
(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)))
(defvar sx-network--user-information nil
"User information for the various sites.")
(defvar sx-network--user-sites nil
"List of sites where user already has an account.")
(provide 'sx-networks)
;;; sx-networks.el ends here
;; Local Variables:
;; indent-tabs-mode: nil
;; End:
|
