Update :3

1 files changed, 72 insertions, 0 deletions

diff --git a/src/gizmo/wasp-uwoomfie.el b/src/gizmo/wasp-uwoomfie.el
new file mode 100644
index 00000000..1c5e32ee
--- /dev/null
+++ b/src/gizmo/wasp-uwoomfie.el
@@ -0,0 +1,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