blob: 060f9291acd1efdbf6999c1d094a5910225b0e9d (
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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
;;; wasp-user --- User data -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:
(require 's)
(require 'wasp-utils)
(require 'wasp-db)
(defvar w/user-whitelist nil)
(defvar w/user-current-name nil)
(defvar w/user-current nil)
(defun w/user-db-key (nm)
"Return the database key for user NM."
(s-concat "user:" (s-downcase nm)))
(defun w/user-get (nm k)
"Fetch user data for user NM.
Pass the resulting Lisp form to K."
(when (and nm (stringp nm) (functionp k))
(w/db-get
(w/user-db-key nm)
(lambda (d)
(if-let*
((d)
(stringp d)
(res (w/read-sexp d)))
(funcall k res)
(funcall k nil))))))
(defun w/user-set (nm d)
"Save the Lisp form D as the user data for NM."
(when (and nm (stringp nm) d)
(w/db-set
(w/user-db-key nm)
(format "%S" d))))
(defun w/user-bind (nm k)
"Bind the data for user NM to `w/user-current' during K.
Save it back to the database after K returns."
(w/user-get
nm
(lambda (d)
(let ((w/user-current d)
(w/user-current-name nm))
(funcall k)
(w/user-set nm w/user-current)))))
(defun w/user-authorized ()
"Return non-nil if the current user is authorized to use advanced techniques."
(let ((boost (alist-get :boost w/user-current)))
(or (and boost (> boost 2))
(and boost (< boost -2))
(-contains? w/user-whitelist w/user-current-name))))
(defun w/user-boost (user)
"Increase USER's boost power by 1."
(w/user-get
user
(lambda (d)
(cl-incf (alist-get :boost d 0))
(w/user-set user d))))
(defun w/user-tsoob (user)
"Decrement USER's boost power by 1."
(w/user-get
user
(lambda (d)
(cl-decf (alist-get :boost d 0))
(w/user-set user d))))
(defun w/user-add-bookrec (user book)
"Add a recommendation for BOOK from USER."
(w/user-get
"__books__"
(lambda (b)
(w/user-set "__books__" (cons (cons book user) b)))))
(defun w/user-add-quote (user q)
"Add a recommendation for BOOK from USER."
(w/user-get
"__quotes__"
(lambda (qs)
(w/user-set "__quotes__" (cons (cons q user) qs)))))
(provide 'wasp-user)
;;; wasp-user.el ends here
|
