From 6fa49e57f7313aad8852ce2721c2fcf7d0cec030 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Fri, 26 Apr 2024 01:53:24 -0400 Subject: Updates --- src/wasp-user.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'src/wasp-user.el') diff --git a/src/wasp-user.el b/src/wasp-user.el index fa07e752..060f9291 100644 --- a/src/wasp-user.el +++ b/src/wasp-user.el @@ -70,5 +70,19 @@ Save it back to the database after K returns." (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 -- cgit v1.2.3