From fb01362a9dd816fc0d0e50052ab4764dd30e46f3 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Thu, 1 May 2025 17:06:41 -0400 Subject: You know we love updating with a horrendous commit message --- src/wasp-user.el | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) (limited to 'src/wasp-user.el') diff --git a/src/wasp-user.el b/src/wasp-user.el index 6694b2f2..08e5c971 100644 --- a/src/wasp-user.el +++ b/src/wasp-user.el @@ -123,5 +123,25 @@ Save it back to the database after K returns." (print u) (w/user-set user u)))) +(defun w/user-decrown (user) + "Decrement 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)))) + +(defun w/user-boost-compensation (user) + "Give USER a consolation BOOSTPOWER prize." + (w/user-get + user + (lambda (u) + (let ((old (or (alist-get :boost u) 0))) + (setf (alist-get :boost u) (+ old 20))) + (print u) + (w/user-set user u)))) + (provide 'wasp-user) ;;; wasp-user.el ends here -- cgit v1.2.3