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-model.el | 22 ++++++++++++++++------ 1 file changed, 16 insertions(+), 6 deletions(-) (limited to 'src/wasp-model.el') diff --git a/src/wasp-model.el b/src/wasp-model.el index 321f7dae..c38da58b 100644 --- a/src/wasp-model.el +++ b/src/wasp-model.el @@ -12,6 +12,18 @@ (require 'wasp-twitch) (require 'wasp-user) +(defun w/model-get-default-backgrounds (k) + "Retrieve the background playlist and pass it to K." + (w/db-get "modelbackgrounds" + (lambda (res) + (funcall k (if (s-present? res) (w/read-sexp res) nil))))) + +(defun w/model-add-default-background (url) + "Add URL to the background playlist." + (w/model-get-default-backgrounds + (lambda (cur) + (w/db-set "modelbackgrounds" (format "%S" (cons url cur)))))) + (defun w/model-frame-test () "Submit a test frame for the new model." (let ((data @@ -45,12 +57,10 @@ "Reset the model palette." (interactive) (w/pub '(avatar reset)) - ;; (w/model-region-color "eyes" (color-values "gold")) - ;; (w/model-region-word "eyes" "GOLDEN") - ;; (w/model-region-video "hair" "https://www.twitch.tv/kamijoan") - ;; (w/model-region-video "hair" "https://www.twitch.tv/kiwidancing") - (w/model-region-video "hair" "https://www.youtube.com/watch?v=FtutLA63Cp8") - ) + (w/model-get-default-backgrounds + (lambda (bgs) + (when bgs + (w/model-region-video "hair" (w/pick-random bgs)))))) (defun w/model-toggle (toggle) "Toggle TOGGLE on model." -- cgit v1.2.3