diff options
Diffstat (limited to 'src/wasp-model.el')
| -rw-r--r-- | src/wasp-model.el | 38 |
1 files changed, 25 insertions, 13 deletions
diff --git a/src/wasp-model.el b/src/wasp-model.el index 183eeb87..dec8f5a3 100644 --- a/src/wasp-model.el +++ b/src/wasp-model.el @@ -41,14 +41,26 @@ (defun w/model-reset () "Reset the model palette." (interactive) + (w/binary-pub "overlay reset") (w/pub '(avatar reset)) - ;; (w/model-region-video "hair" "https://www.youtube.com/watch?v=PruiY9BJi84") - (w/model-region-word "eyes" "EYES") - (w/model-region-word "hair" "hair") - (w/model-region-word "highlight" "highlight") + ;; (w/model-region-word "hair" "🦁") + ;; (w/model-region-video "hair" "https://www.youtube.com/watch?v=FeXP7SxCKKE") + ;; (w/model-region-word "hair" "#") + ;; (w/model-region-color "eyes" (color-values "lightblue")) + ;; (w/model-region-word "eyes" "#") + ;; (w/model-region-word "eyes" "S") + ;; (w/model-region-color "hair" (color-values "black")) + ;; (w/model-region-color "eyes" (color-values "yellow")) + ;; (w/model-region-word "highlight" "slug") + ;; (w/model-region-color "highlight" (color-values "brown")) + ;; (w/model-region-word "hair" "⠀⢀⡴⣄⠀⠀⠀⢀⡴⣄⠀⠀⠀⢀⡴⣄⠀⠀⠀⢀⡴⣄⠀⠀⠀⢀⡴⣄⠀⠀⠀⢀⡴⣄⠀⠀⠀⢀⡴⣄⠀⠀⠀⢀⡴⣄⠀⠀⠀⢀⡴⣄⠀⠀⠀⢀⡴⣄⠀⠀⠀⢀⡴⣄⠀⠀⠀⢀⡴⣄⠀⠀⠀⢀⡴⣄⠀⠀⠀⢀⡴⣄⠀⠀⠀⢀⡴⣄⠀⠀⠀⢀⡴⣄⠀⠀⠀⢀⡴⣄⠀⠀⠀⢀⡴⣄⠀⠀⠀⢀⡴⣄⠀⠀⠀⢀⡴⣄⠀⠀⠀⢀⡴⣄⠀⠀⠀⢀⠀⠴⡕⡵⠄⠀⠀⠴⡕⡵⠄⠀⠀⠴⡕⡵⠄⠀⠀⠴⡕⡵⠄⠀⠀⠴⡕⡵⠄⠀⠀⠴⡕⡵⠄⠀⠀⠴⡕⡵⠄⠀⠀⠴⡕⡵⠄⠀⠀⠴⡕⡵⠄⠀⠀⠴⡕⡵⠄⠀⠀⠴⡕⡵⠄⠀⠀⠴⡕⡵⠄⠀⠀⠴⡕⡵⠄⠀⠀⠴⡕⡵⠄⠀⠀⠴⡕⡵⠄⠀⠀⠴⡕⡵⠄⠀⠀⠴⡕⡵⠄⠀⠀⠴⡕⡵⠄⠀⠀⠴⡕⡵⠄⠀⠀⠴⡕⡵⠄⠀⠀⠴⡕⡵⠄⠀⠀⠴⠚⠚⢺⠚⠚⠂⠚⠚⢺⠚⠚⠂⠚⠚⢺⠚⠚⠂⠚⠚⢺⠚⠚⠂⠚⠚⢺⠚⠚⠂⠚⠚⢺⠚⠚⠂⠚⠚⢺⠚⠚⠂⠚⠚⢺⠚⠚⠂⠚⠚⢺⠚⠚⠂⠚⠚⢺⠚⠚⠂⠚⠚⢺⠚⠚⠂⠚⠚⢺⠚⠚⠂⠚⠚⢺⠚⠚⠂⠚⠚⢺⠚⠚⠂⠚⠚⢺⠚⠚⠂⠚⠚⢺⠚⠚⠂⠚⠚⢺⠚⠚⠂⠚⠚⢺⠚⠚⠂⠚⠚⢺⠚⠚⠂⠚⠚⢺⠚⠚⠂⠚⠚⢺⠚⠚⠂⠚⠚") + ;; (w/model-region-color "hair" (color-values "LightGreen")) + ;; (w/model-region-word "highlight" "ho") + ;; (w/model-region-color "highlight" (color-values "DarkGreen")) + ;; (w/model-region-word "skin" "hcolonw") ;; (w/model-region-color "hat" (color-values "#FF7518")) - (w/model-region-word "hat" "ISPUMPKIN") - (w/irish-reset) + ;; (w/model-region-word "hat" "ISPUMPKIN") + ;; (w/irish-reset) (w/model-get-default-backgrounds (lambda (bgs) (when bgs @@ -163,19 +175,19 @@ (defun w/model-handle-redeem-region-swap (type) "Return a redeem callback for region swap of TYPE. If the color is unspecified, use DEFCOLOR." - (lambda (user inp) - (let ((splinp (s-split-up-to " " (s-trim inp) 1)) - (auth (w/user-authorized))) + (lambda (uid user inp) + (let ((splinp (s-split-up-to " " (s-trim inp) 1))) (w/model-string-to-color-source (car splinp) (lambda (cs) (let ((text (if cs (cadr splinp) (s-join " " splinp)))) + (w/overlay-clippy-animate "GETARTSY") (w/chat-write-event (format "%s changes my %s to %s" user type inp)) (when cs - (if (or auth - (not (eq 'video-url (w/model-color-source-type cs)))) - (w/model-region-color-source type cs) - (w/chat-write-event (format "%s is not authorized to play video, boost harder" user)))) + (if (eq 'video-url (w/model-color-source-type cs)) + (w/user-when-authorized uid + (lambda () (w/model-region-color-source type cs))) + (w/model-region-color-source type cs))) (when text (w/model-region-word type text)))))))) |