diff options
Diffstat (limited to 'src/wasp-model.el')
| -rw-r--r-- | src/wasp-model.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/wasp-model.el b/src/wasp-model.el index 02bd64cb..521b3686 100644 --- a/src/wasp-model.el +++ b/src/wasp-model.el @@ -12,6 +12,14 @@ (require 'wasp-twitch) (require 'wasp-user) +(defun w/model-frame-test () + "Submit a test frame for the new model." + (let ((data + (seq-mapcat #'byte-to-string (apply #'seq-concatenate 'list (seq-into (caddr (u/load-image-png "/home/llll/mrgreenbig.png")) 'list)) 'string) + ;; (seq-mapcat #'byte-to-string (--mapcat (list 0 255 0) (-iota (* 64 64))) 'string) + )) + (w/pub '(avatar frame) (list (base64-encode-string data t))))) + (defun w/color-value-to-html-code (cval) "Convert color value CVAL to an HTML color code." (and |