From 23cc4ab7b5695f77ffd15f5ee5e7cc414237642f Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Tue, 18 Aug 2026 03:04:31 -0400 Subject: Update --- src/wasp-user.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'src/wasp-user.el') diff --git a/src/wasp-user.el b/src/wasp-user.el index de5df6f8..778d4f4b 100644 --- a/src/wasp-user.el +++ b/src/wasp-user.el @@ -6,6 +6,7 @@ (require 'ht) (require 'wasp-utils) (require 'wasp-db) +(require 'wasp-leaderboard) (defvar w/user-whitelist nil) @@ -90,7 +91,9 @@ (lambda (scur) (when-let* ( (cur (or (w/read-sexp scur) 0)) (_ (integerp cur))) - (w/user-set-property uid "boost" (format "%s" (+ cur 1)))))))) + (let ((new (+ cur 1))) + (w/user-set-property uid "boost" (format "%s" new)) + (w/leaderboard-set-score "boost" uid new))))))) (defun w/user-tsoob (uid) "Decrement UID's boost power by 1." @@ -99,7 +102,9 @@ (lambda (scur) (when-let* ( (cur (or (w/read-sexp scur) 0)) (_ (integerp cur))) - (w/user-set-property uid "boost" (format "%s" (- cur 1)))))))) + (let ((new (- cur 1))) + (w/user-set-property uid "boost" (format "%s" new)) + (w/leaderboard-set-score "boost" uid new))))))) (defun w/user-avatar (user) "Return USER's avatar as a unibyte string." -- cgit v1.3.1