UpdateHEADmaster

1 files changed, 157 insertions, 22 deletions

diff --git a/src/wasp-overlay.el b/src/wasp-overlay.el
index e902eb3d..b62550e7 100644
--- a/src/wasp-overlay.el
+++ b/src/wasp-overlay.el
@@ -3,56 +3,191 @@
 ;;; Code:
 
 (require 'wasp-utils)
-(require 'wasp-bus)
+(require 'wasp-bus-binary)
+
+(defun w/overlay-toggle (effect)
+  "Toggle EFFECT in the overlay."
+  (w/binary-pub "overlay toggle" effect))
+(defun w/overlay-toggle-set (effect)
+  "Turn on EFFECT in the overlay."
+  (w/binary-pub "overlay toggle set" effect))
+(defun w/overlay-toggle-unset (effect)
+  "Turn off EFFECT in the overlay."
+  (w/binary-pub "overlay toggle unset" effect))
 
 (defun w/overlay-shader (user shader)
   "Set the overlay shader to SHADER by USER."
-  (w/pub '(avatar overlay shader)
-    (list (w/encode-string user) (w/encode-string shader))))
+  (w/binary-pub "overlay shader"
+    (s-concat
+      (w/bus-binary-build-length-prefixed user)
+      (w/bus-binary-build-length-prefixed shader))))
 
 (defun w/overlay-chat (msg)
   "Update the overlay about chat MSG."
-  (w/pub '(avatar overlay chat)
-    (list
-      (w/encode-string (w/. user msg))
-      (w/encode-string (w/. text msg))
-      (format "%s" (w/unix-time))
-      (format "%s" (or (w/. biblicality msg) 0.0)))))
+  ;; (w/binary-pub "overlay chat"
+  ;;   (s-concat
+  ;;     (w/bus-binary-build-length-prefixed (w/. user msg))
+  ;;     (w/bus-binary-build-length-prefixed (w/. text msg))
+  ;;     (w/bus-binary-build-length-prefixed (format "%s" (w/unix-time)))
+  ;;     (w/bus-binary-build-length-prefixed (format "%s" (or (w/. biblicality msg) 0.0)))))
+  )
 
 (defun w/overlay-muzak (user song)
   "Update the overlay about Muzak SONG played by USER."
   (ignore song)
-  (w/pub '(avatar overlay muzak) (list (w/encode-string user))))
+  (w/binary-pub "overlay info credits music" user))
 
 (defun w/overlay-muzak-clear ()
   "Tell the overlay that there is no Muzak song playing."
-  (w/pub '(avatar overlay muzak clear) (list)))
+  (w/binary-pub "overlay info credits music clear" ""))
 
 (defvar w/overlay-last-cursor nil)
 (defun w/overlay-update-cursor ()
   "Inform the overlay about the current cursor position."
-  (when (and (process-live-p (get-process w/bus-process)))
+  (when (and (process-live-p (get-process w/bus-binary-process)))
     (when-let* ((pos (window-absolute-pixel-position)))
       (when (not (equal pos w/overlay-last-cursor))
         (setf w/overlay-last-cursor pos)
-        (w/pub '(avatar overlay cursor) (list (car pos) (cdr pos)))))))
+        (w/binary-pub "overlay info emacs cursor"
+          (s-concat
+            (w/bus-binary-build-length-prefixed (format "%s" (car pos)))
+            (w/bus-binary-build-length-prefixed (format "%s" (cdr pos)))))))))
 (add-hook 'post-command-hook #'w/overlay-update-cursor)
 
 (defun w/overlay-emacs ()
   "Update the overlay with miscellaneous data from Emacs."
-  (w/pub '(avatar overlay emacs)
-    (list
-      (w/get-heartrate)
-      )))
+  ;; (w/binary-pub "overlay info emacs" (w/bus-binary-build-int32le (w/heartrate)))
+  )
 
 (defun w/overlay-automata (user s &optional color)
   "Send a cellular automata S from USER in RLE format to the overlay.
 Optionally, make the cells be COLOR."
-  (w/pub '(avatar automata spawn)
-    (list
-      (w/encode-string s)
-      (w/encode-string user)
-      (w/encode-string (or color (w/random-color))))))
+  (w/binary-pub "overlay automata spawn"
+    (s-concat
+      (w/bus-binary-build-length-prefixed s)
+      (w/bus-binary-build-length-prefixed user)
+      (w/bus-binary-build-int32le (string-to-number (s-chop-prefix "#" (or color (w/random-color))) 16)))))
+
+;;;; Clippy
+(defun w/overlay-clippy-animate (anim)
+  "Set the Clippy animation to ANIM."
+  (w/binary-pub "overlay clippy animate"
+    (s-concat
+      (w/bus-binary-build-length-prefixed anim))))
+(defun w/overlay-clippy-border (border)
+  "Set the Clippy border state to BORDER."
+  (w/binary-pub
+    (if border
+      "overlay clippy border on"
+      "overlay clippy border off")
+    ""))
+
+(cl-defstruct (w/overlay-clippy-event (:constructor w/overlay-clippy-event-new))
+  timestamp
+  type)
+(define-derived-mode w/overlay-clippy-mode special-mode "Karl Klammer"
+  "Major mode for displaying Clippy dialogue."
+  :group 'wasp
+  (setq mode-line-format nil))
+(defface w/overlay-clippy-face
+  '((t
+      :foreground "black"
+      :font "Terminus (TTF):antialias=false:hinting=false:pixelsize=24"
+      ))
+  "Face for Clippy dialogue."
+  :group 'wasp)
+(defconst w/overlay-clippy-frame-buffer-name " *clippy-dialogue*")
+(defvar w/overlay-clippy-frame-background-color "#ffffcc")
+(defvar w/overlay-clippy-frame nil)
+(defvar w/overlay-clippy-last-event nil)
+(defvar w/overlay-clippy-speech-timer nil)
+(defun w/overlay-clippy-frame-buffer ()
+  "Return the buffer used to display Clippy dialogue."
+  (let ((name w/overlay-clippy-frame-buffer-name))
+    (unless (get-buffer name)
+      (with-current-buffer (get-buffer-create name)
+        (w/overlay-clippy-mode)))
+    (get-buffer name)))
+(defun w/overlay-clippy-frame-create ()
+  "Build a frame for displaying completion candidates."
+  (when (framep w/overlay-clippy-frame)
+    (delete-frame w/overlay-clippy-frame))
+  (setf
+    w/overlay-clippy-frame
+    (make-frame
+      (append
+        `((name . "clippy")
+           (unsplittable . t)
+           (undecorated . t)
+           (no-accept-focus . t)
+           (no-focus-on-map . t)
+           (override-redirect . t)
+           (user-size . t)
+           (width . 25)
+           (height . 8)
+           (user-position . t)
+           (left . 1600)
+           (top . 550)
+           (default-minibuffer-frame . ,(selected-frame))
+           (minibuffer . nil)
+           (left-fringe . 0)
+           (right-fringe . 0)
+           (cursor-type . nil)
+           (background-color . ,w/overlay-clippy-frame-background-color)))))
+  (make-frame-invisible w/overlay-clippy-frame)
+  (let ((window (frame-selected-window w/overlay-clippy-frame)))
+    (set-window-buffer window (w/overlay-clippy-frame-buffer))))
+(w/overlay-clippy-frame-create)
+(defun w/overlay-clippy-clear ()
+  "Clear the Clippy buffer."
+  (when w/overlay-clippy-frame
+    (modify-frame-parameters w/overlay-clippy-frame
+      `((background-color . ,w/overlay-clippy-frame-background-color))))
+  (with-current-buffer (w/overlay-clippy-frame-buffer)
+    (let ((inhibit-read-only t))
+      (erase-buffer))))
+(defun w/overlay-clippy-write (msg)
+  "Write MSG to the Clippy buffer."
+  (when w/overlay-clippy-frame
+    (modify-frame-parameters w/overlay-clippy-frame
+      `((background-color . ,w/overlay-clippy-frame-background-color))))
+  (let ((window (frame-selected-window w/overlay-clippy-frame)))
+    (set-window-buffer window (w/overlay-clippy-frame-buffer)))
+  (with-current-buffer (w/overlay-clippy-frame-buffer)
+    (let ((inhibit-read-only t))
+      (w/write-line msg 'w/overlay-clippy-face))))
+(defun w/overlay-clippy-say (msg)
+  "Have Clippy say MSG."
+  (w/overlay-clippy-clear)
+  (w/overlay-clippy-write msg)
+  (w/overlay-clippy-border t)
+  (w/show-frame w/overlay-clippy-frame t)
+  (raise-frame w/overlay-clippy-frame)
+  (w/overlay-clippy-animate "EXPLAIN")
+  (setf w/overlay-clippy-speech-timer 10))
+
+(defun w/overlay-clippy-check-events ()
+  "Check for events that Clippy should respond to."
+  )
+
+(defun w/overlay-clippy-update ()
+  "Update Clippy."
+  (when w/overlay-clippy-speech-timer
+    (cl-decf w/overlay-clippy-speech-timer)
+    (when (<= w/overlay-clippy-speech-timer 0)
+      (w/overlay-clippy-border nil)
+      (w/show-frame w/overlay-clippy-frame nil)
+      (setf w/overlay-clippy-speech-timer nil)))
+  (w/overlay-clippy-check-events))
+(defvar w/overlay-clippy-timer nil)
+(defun w/overlay-clippy-timer-run ()
+  "Run the gizmo update timer."
+  (when w/overlay-clippy-timer
+    (cancel-timer w/overlay-clippy-timer))
+  (w/overlay-clippy-update)
+  (setq
+    w/overlay-clippy-timer
+    (run-with-timer 1 nil #'w/overlay-clippy-timer-run)))
 
 (provide 'wasp-overlay)
 ;;; wasp-overlay.el ends here