blob: 1c5e32ee271a3abf441e8cc042f32d45eaa8e2e3 (
plain)
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
|
;;; wasp-uwoomfie --- Uwoomfie interface -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:
(require 'dash)
(require 's)
(require 'f)
(require 'ht)
(require 'rx)
(require 'cl-lib)
(require 'request)
(require 'dom)
(defcustom w/uwoomfie-server "https://uwoomfie.com"
"Server URL for Uwoomfie."
:type '(string)
:group 'wasp)
(defvar w/uwoomfie-last-response nil)
(defvar w/uwoomfie-honorary-viewers nil)
(defvar w/uwoomfie-cool-people nil)
(defun w/uwoomfie-get (loc k)
"Get LOC from Uwoomfie, passing the returned HTML to K."
(request
(s-concat w/uwoomfie-server loc)
:type "GET"
:parser (lambda () (libxml-parse-html-region (point-min) (point-max)))
:success
(cl-function
(lambda (&key data &allow-other-keys)
(setq w/uwoomfie-last-response data)
(funcall k data))))
t)
(defun w/uwoomfie-fetch-honorary-viewers (k)
"Fetch the list of Uwoomfie honorary viewers and pass them to K."
(w/uwoomfie-get
"/honoraryviewers.html"
(lambda (data)
(funcall
k
(--map (car (s-split " " (caddr it))) (dom-by-tag data 'h1))))))
(defun w/uwoomfie-fetch-cool-people (k)
"Fetch the list of Uwoomfie cool people and pass them to K."
(w/uwoomfie-get
"/coolpeople.html"
(lambda (data)
(funcall
k
(--map
(s-replace "@" "" (car (last (s-split "/" (cdaadr it)))))
(dom-by-tag data 'a))))))
(defun w/uwoomfie-get-status (user)
"Return the Uwoomfie status for USER."
(cond
((-contains? w/uwoomfie-cool-people user) 'cool)
((-contains? w/uwoomfie-honorary-viewers user) 'honored)
(t nil)))
(w/uwoomfie-fetch-honorary-viewers
(lambda (users)
(setf w/uwoomfie-honorary-viewers users)))
(w/uwoomfie-fetch-cool-people
(lambda (users)
(setf w/uwoomfie-cool-people (cons "Watchmakering" users))))
(provide 'wasp-uwoomfie)
;;; wasp-uwoomfie.el ends here
|
