UpdateHEADmaster

1 files changed, 13 insertions, 1 deletions

diff --git a/src/wasp-user-badges.el b/src/wasp-user-badges.el
index 4c7fdb93..2144074c 100644
--- a/src/wasp-user-badges.el
+++ b/src/wasp-user-badges.el
@@ -76,6 +76,10 @@
   "Give badge BID to user UID."
   (w/db-sadd (s-concat "user:badges:" uid) bid))
 
+(defun w/badge-revoke (uid bid)
+  "Revoke badge BID from user UID."
+  (w/db-srem (s-concat "user:badges:" uid) bid))
+
 (defun w/badge-custom-equity-text (user text)
   "Give badge TEXT to USER."
   (let ((bid (w/uuid)))
@@ -98,6 +102,12 @@
     (lambda (uid)
       (w/badge-grant uid "equitylord"))))
 
+(defun w/badge-undefault-equity (user)
+  "Give USER the default equity badge."
+  (w/user-id-from-name user
+    (lambda (uid)
+      (w/badge-revoke uid "equitylord"))))
+
 ;; (w/badge-create-icon "equitylord" "Equity Lord" "This user holds Equity Lordship status, entitling them to a vote at the shareholders' meeting." (w/asset "badges/equitylord.png"))
 ;; (w/badge-create-text "themale" "MALE" "This user is known as \"The Male\" by some." "🧍‍♂️")
 ;; (w/badge-create-icon "slime" "Slime" "This user is \"slime\"." (w/asset "badges/slime.png"))
@@ -150,7 +160,6 @@
 ;; (w/badge-custom-equity-text "colinahscopy_" "⚜")
 ;; (w/badge-default-equity "eighteyedsixwingedseraph")
 ;; (w/badge-default-equity "a_tension_span")
-;; (w/badge-default-equity "tomaterr")
 ;; (w/badge-custom-equity-icon "realnaesten" (w/twitch-emote-path "emotesv2_4d2812c659c14c64a9a4044c3eff6d30"))
 ;; (w/badge-default-equity "fmega")
 ;; (w/badge-default-equity "cr4zyk1tty")
@@ -164,6 +173,9 @@
 ;; (w/badge-custom-equity-text "bigbookofbug" "(✿╹◡╹)ﾉ☆.｡ ₀:*ﾟ")
 ;; (w/badge-custom-equity-text "peetseater" "🍕")
 ;; (w/badge-custom-equity-text "remblanc" "💸")
+;; (w/badge-custom-equity-text "pwfff" "☉")
+;; (w/badge-custom-equity-text "tomaterr" "🍅")
+;; (w/badge-custom-equity-text "slowpvke" "Φ")
 
 (provide 'wasp-user-badges)
 ;;; wasp-user-badges.el ends here