UpdateHEADmaster

1 files changed, 164 insertions, 0 deletions

diff --git a/src/wasp-user-badges.el b/src/wasp-user-badges.el
new file mode 100644
index 00000000..d34a9fa6
--- /dev/null
+++ b/src/wasp-user-badges.el
@@ -0,0 +1,164 @@
+;;; wsp-user-badges --- badges -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+
+(require 'wasp-utils)
+(require 'wasp-db)
+
+(defvar w/badge-cache (ht-create))
+(defun w/badge-populate-cache ()
+  "Populate the `w/badge-cache' with all badges."
+  (message "Populating badge cache...")
+  (w/db-hgetall "badge:name"
+    (lambda (bnames)
+      (message "Retrieved names...")
+      (w/db-hgetall "badge:desc"
+        (lambda (bdescs)
+          (message "Retrieved descriptions...")
+          (w/db-hgetall "badge:mode"
+            (lambda (bmodes)
+              (message "Retrieved modes...")
+              (w/db-hgetall "badge:text"
+                (lambda (btexts)
+                  (message "Retrieved text...")
+                  (w/db-hgetall "badge:icon"
+                    (lambda (bicons)
+                      (message "Retrieved icons!")
+                      (ht-clear! w/badge-cache)
+                      (--each (ht-keys bnames)
+                        (message "Processing badge: %s" it)
+                        (ht-set! w/badge-cache it
+                          (ht<-alist
+                            `( (name . ,(ht-get bnames it))
+                               (desc . ,(ht-get bdescs it))
+                               (mode . ,(ht-get bmodes it))
+                               (text . ,(ht-get btexts it))
+                               (icon .
+                                 ,(when-let* ((data (ht-get bicons it)))
+                                    (create-image
+                                      (encode-coding-string data 'no-conversion)
+                                      nil t
+                                      :height 20
+                                      :ascent 'center))))))))))))))))))
+
+(defun w/user-badge-text (uid k)
+  "Pass a string of badges to attach to UID's messages to K."
+  (w/db-smembers (s-concat "user:badges:" uid)
+    (lambda (badges)
+      (funcall k
+        (s-join ""
+          (--map
+            (when-let* ((b (ht-get w/badge-cache it)))
+              (cond
+                ((s-equals? (ht-get b 'mode) "text")
+                  (ht-get b 'text))
+                ((s-equals? (ht-get b 'mode) "icon")
+                  (propertize "Q" 'display (ht-get b 'icon)))))
+            badges))))))
+
+(defun w/badge-create-text (bid name desc text)
+  "Create a new talent BID called NAME with DESC and TEXT."
+  (w/db-hset "badge:name" bid name)
+  (w/db-hset "badge:desc" bid desc)
+  (w/db-hset "badge:mode" bid "text")
+  (w/db-hset "badge:text" bid text))
+
+(defun w/badge-create-icon (bid name desc iconpath)
+  "Create a new talent BID called NAME with DESC and ICONPATH."
+  (let ((icon (or (f-read-bytes iconpath) (error "Failed to open icon path: %s" iconpath))))
+    (progn
+      (w/db-hset "badge:name" bid name)
+      (w/db-hset "badge:desc" bid desc)
+      (w/db-hset "badge:mode" bid "icon")
+      (w/db-hset "badge:icon" bid icon))))
+
+(defun w/badge-grant (uid bid)
+  "Give badge BID to user UID."
+  (w/db-sadd (s-concat "user:badges:" uid) bid))
+
+(defun w/badge-custom-equity-text (user text)
+  "Give badge TEXT to USER."
+  (let ((bid (w/uuid)))
+    (w/badge-create-text bid "Equity Lord" "This user holds Equity Lordship status, entitling them to a vote at the shareholders' meeting." text)
+    (w/user-id-from-name user
+      (lambda (uid)
+        (w/badge-grant uid bid)))))
+
+(defun w/badge-custom-equity-icon (user icon)
+  "Give badge ICON to USER."
+  (let ((bid (w/uuid)))
+    (w/badge-create-icon bid "Equity Lord" "This user holds Equity Lordship status, entitling them to a vote at the shareholders' meeting." icon)
+    (w/user-id-from-name user
+      (lambda (uid)
+        (w/badge-grant uid bid)))))
+
+(defun w/badge-default-equity (user)
+  "Give USER the default equity badge."
+  (w/user-id-from-name user
+    (lambda (uid)
+      (w/badge-grant 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"))
+;; (w/user-id-from-name "LCOLONQ"
+;;   (lambda (uid)
+;;     (w/badge-grant uid "equitylord")
+;;     (w/badge-grant uid "themale")
+;;     ))
+;; (w/user-id-from-name "acher0_" (lambda (uid) (w/badge-grant uid "slime")))
+;; (w/badge-custom-equity-text "bezelea" "♿")
+;; (w/badge-custom-equity-text "bezelea" "🔔")
+;; (w/badge-custom-equity-text "altovt" "📈")
+;; (w/badge-custom-equity-text "prodzpod" "🌠")
+;; (w/badge-custom-equity-text "prodzpod" "🌌")
+;; (w/badge-custom-equity-text "prodzpod" "🎑")
+;; (w/badge-custom-equity-text "faeliore" "😹")
+;; (w/badge-custom-equity-text "vasher_1025" "🕴")
+;; (w/badge-custom-equity-text "leadengin" "💈")
+;; (w/badge-default-equity "kettlestew")
+;; (w/badge-custom-equity-text "blazynights" "🀄")
+;; (w/badge-default-equity "must_broke_")
+;; (w/badge-custom-equity-text "bvnanana" "🧉")
+;; (w/badge-custom-equity-text "venorrak" "📺")
+;; (w/badge-custom-equity-text "venorrak" "📜")
+;; (w/badge-default-equity "tf_tokyo")
+;; (w/badge-custom-equity-text "devts_de" "∃")
+;; (w/badge-custom-equity-icon "trap_exit" (w/twitch-emote-path "emotesv2_dfc4c36ccd3b4994b8ca4f082230f053"))
+;; (w/badge-custom-equity-text "trap_exit" "☠")
+;; (w/badge-custom-equity-text "trap_exit" "💀")
+;; (w/badge-custom-equity-text "essento" "🥚")
+;; (w/badge-custom-equity-text "tyumici" "🤌")
+;; (w/badge-default-equity "liquidcake1")
+;; (w/badge-default-equity "loufbread")
+;; (w/badge-custom-equity-text "yellowberryhn" "🪴")
+;; (w/badge-default-equity "maradyne_")
+;; (w/badge-default-equity "sampie159")
+;; (w/badge-custom-equity-text "zamielpayne" "🦉")
+;; (w/badge-custom-equity-text "xorxavier" "🌸")
+;; (w/badge-custom-equity-text "6horntaurus" "⚰")
+;; (w/badge-custom-equity-icon "bytomancer" (w/twitch-emote-path "emotesv2_beb191005b81486c8b1c823931c88387"))
+;; (w/badge-default-equity "henriqmarq")
+;; (w/badge-default-equity "wyndupboy")
+;; (w/badge-custom-equity-text "steeledshield" "⛨")
+;; (w/badge-custom-equity-icon "asrael_io" (w/twitch-emote-path "emotesv2_a9dc5935824a4d6792f4b48f91031fcf"))
+;; (w/badge-custom-equity-text "nichepenguin" "💚")
+;; (w/badge-default-equity "h_ingles")
+;; (w/badge-default-equity "compilingjay")
+;; (w/badge-default-equity "watchmakering")
+;; (w/badge-custom-equity-text "the0x539" "︘")
+;; (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")
+;; (w/badge-default-equity "physbuzz")
+;; (w/badge-custom-equity-text "sundemoniac" "🌞")
+;; (w/badge-custom-equity-text "pralkewe67" "🌞")
+;; (w/badge-custom-equity-text "nichePenguin" "🍋‍🟩")
+;; (w/badge-custom-equity-icon "ellg" (w/twitch-emote-path "emotesv2_27a7f5d066144fb59490efae6c91820a"))
+
+(provide 'wasp-user-badges)
+;;; wasp-user-badges.el ends here