From 0b95071fe628d91238549b062961e724088d3b8b Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Tue, 26 Nov 2024 03:23:31 -0500 Subject: Update :4 --- src/wasp-user.el | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'src/wasp-user.el') diff --git a/src/wasp-user.el b/src/wasp-user.el index d5231ae1..6694b2f2 100644 --- a/src/wasp-user.el +++ b/src/wasp-user.el @@ -113,5 +113,15 @@ Save it back to the database after K returns." (lambda (qs) (w/user-set "__quotes__" (cons (cons q user) qs))))) +(defun w/user-crown (user) + "Increment USER's equity status." + (w/user-get + user + (lambda (u) + (let ((old (or (alist-get :equity u) 0))) + (setf (alist-get :equity u) (+ old 1))) + (print u) + (w/user-set user u)))) + (provide 'wasp-user) ;;; wasp-user.el ends here -- cgit v1.2.3