1 files changed, 80 insertions, 0 deletions
diff --git a/src/gizmo/wasp-prod.el b/src/gizmo/wasp-prod.el
new file mode 100644
index 00000000..4ba6dd17
--- /dev/null
+++ b/src/gizmo/wasp-prod.el
@@ -0,0 +1,80 @@
+;;; wasp-prod --- prodzpod interface -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+
+(require 'dash)
+(require 's)
+(require 'f)
+(require 'ht)
+(require 'rx)
+(require 'cl-lib)
+(require 'request)
+(require 'dom)
+(require 'wasp-user)
+(require 'wasp-chat)
+(require 'wasp-twitch)
+(require 'wasp-biblicality)
+(require 'soundboard)
+
+(defcustom w/prod-server "https://prod.kr"
+  "Server URL for prodzpod."
+  :type '(string)
+  :group 'wasp)
+
+(defvar w/prod-last-response nil)
+
+(defun w/prod-get-raw (loc k)
+  "Get LOC from prodzpod, passing the returned string to K."
+  (setf request-message-level -1)
+  (request
+    (s-concat w/prod-server loc)
+    :type "GET"
+    :success
+    (cl-function
+     (lambda (&key data &allow-other-keys)
+       (setq w/prod-last-response data)
+       (funcall k data))))
+  t)
+
+(defun w/prod-get (loc k)
+  "Get LOC from prodzpod, passing the returned JSON to K."
+  (request
+    (s-concat w/prod-server loc)
+    :type "GET"
+    :parser #'json-parse-buffer
+    :success
+    (cl-function
+     (lambda (&key data &allow-other-keys)
+       (setq w/prod-last-response data)
+       (funcall k data))))
+  t)
+
+(defun w/prod-clone-respond (prompt)
+  "Pass PROMPT to the prodzpod clone and put the resulting response in chat room."
+  (w/prod-get
+   (s-concat "/api/clone?prompt=" (url-encode-url prompt))
+   (lambda (resp)
+     (when-let (((and resp (hash-table-p resp)))
+                (name (ht-get resp "name"))
+                (color (ht-get resp "color"))
+                (sigil (ht-get resp "sigil"))
+                (res (ht-get resp "res"))
+                ((and (stringp name) (stringp color) (stringp sigil) (stringp res))))
+       (let* ((trimmed (s-replace-regexp "^.+: " "" (s-replace "\n" " " (s-trim res))))
+              (text-colored-bible-res (w/bible-colorize-sentence trimmed))
+              (text-colored-bible (car text-colored-bible-res))
+              (bible-score (cdr text-colored-bible-res)))
+         (push (cons name trimmed) w/twitch-chat-history)
+         (unless (string-empty-p text-colored-bible)
+           (when (s-contains? "hexadiCoding" trimmed)
+             (soundboard//play-clip "developers.ogg"))
+             (w/write-chat-message
+              (w/make-chat-message
+               :user name
+               :text (w/twitch-add-7tv-emotes text-colored-bible)
+               :user-color color
+               :sigil sigil
+               :biblicality bible-score))))))))
+
+(provide 'wasp-prod)
+;;; wasp-prod.el ends here