diff options
Diffstat (limited to 'src/gizmo/wasp-friend.el')
| -rw-r--r-- | src/gizmo/wasp-friend.el | 580 |
1 files changed, 580 insertions, 0 deletions
diff --git a/src/gizmo/wasp-friend.el b/src/gizmo/wasp-friend.el new file mode 100644 index 00000000..bdbf0818 --- /dev/null +++ b/src/gizmo/wasp-friend.el @@ -0,0 +1,580 @@ +;;; wasp-friend --- "friend" -*- lexical-binding: t; -*- +;;; Commentary: +;;; Code: + +(require 'dash) +(require 's) +(require 'flycheck) +(require 'wasp-utils) +(require 'wasp-audio) +(require 'wasp-ai) +(require 'wasp-chat) +(require 'wasp-twitch) +(require 'wasp-newspaper) + +(defcustom w/friend-buffer "*wasp-friend*" + "Name of buffer used to display \"friend\"." + :type '(string) + :group 'wasp) + +(define-derived-mode w/friend-mode special-mode "\"friend\"'s lair" + "Major mode for displaying \"friend\"'s lair." + :group 'wasp + (message "hi i'm \"friend\"") + (setq-local cursor-type nil)) + +(defun w/get-friend-buffer () + "Return the \"friend\" buffer." + (unless (get-buffer w/friend-buffer) + (with-current-buffer (get-buffer-create w/friend-buffer) + (w/friend-mode))) + (get-buffer w/friend-buffer)) + +(defun w/friend-journalism-input () + "Collect an input for \"friend\"'s journalism based on recent activities." + (s-join + "\n" + (cons + (format "LCOLONQ: %s" (s-trim w/last-stream-transcription)) + (--map + (format "%s: %s" (car it) (cdr it)) + (reverse (-take 5 w/twitch-chat-history)))))) + +(defun w/friend-journalism (author headline) + "Retrieve \"friend\"'s opinion on current events related to HEADLINE. +AUTHOR was a contributing author btw." + (w/ai + (s-concat + "Headline: " headline "\n\n" + (w/friend-journalism-input)) + (lambda (resp) + (when resp + (w/write-chat-event (format "\"friend\" finished writing about: %s" headline)) + (push + (w/make-newspaper-article + :headline headline + :author (format "\"friend\" and %s" author) + :content (s-trim resp)) + w/newspaper-todays-articles))) + "You are the personality of a desktop buddy named \"friend\". \"friend\" is irreverant but kind, and only speaks in lowercase. You are kind of dumb in a cute way and silly like a virtual pet. You live in the corner of LCOLONQ's stream and provide commentary on events. You like people, video games, emojis, learning, and food. Given a headline of a newspaper article and a summary of recent user activity, please do your best journalist impression and produce a one paragraph article about the situation that fits the headline." + )) + +(defconst w/friend-grapheme-phonemes + '((("b" "bb") . "bug") (("d" "dd" "ed") . "dad") + (("f" "ff" "ph" "gh" "lf" "ft") . "fat") + (("g" "gg" "gh" "gu" "gue") . "gun") (("h" "wh") . "hop") + (("j" "ge" "g" "dge" "di" "gg") . "jam") + (("k" "c" "ch" "cc" "lk" "qu" "q" "ck" "x") . "kit") + (("l" "ll") . "live") (("m" "mm" "mb" "mn" "lm") . "man") + (("n" "nn" "kn" "gn" "pn" "mn") . "net") (("p" "pp") . "pin") + (("r" "rr" "wr" "rh") . "run") + (("s" "ss" "c" "sc" "ps" "st" "ce" "se") . "sit") + (("t" "tt" "th" "ed") . "tip") (("v" "f" "ph" "ve") . "vine") + (("w" "wh" "u" "o") . "wit") + (("z" "zz" "s" "ss" "x" "ze" "se") . "zed") + (("s" "si" "z") . "treasure") (("ch" "tch" "tu" "te") . "chip") + (("sh" "ce" "s" "ci" "si" "ch" "sci" "ti") . "sham") + (("th ") . "thongs") (("th") . "leather") + (("ng" "n" "ngue") . "ring") (("y" "i" "j") . "you") + (("a" "ai" "au") . "cat") + (("a" "ai" "eigh" "aigh" "ay" "er" "et" "ei" "au" "ea" "ey") . "bay") + (("e" "ea" "u" "ie" "ai" "a" "eo" "ei" "ae") . "end") + (("e" "ee" "ea" "y" "ey" "oe" "ie" "i" "ei" "eo" "ay") . "be") + (("i" "e" "o" "u" "ui" "y" "ie") . "it") + (("i" "y" "igh" "ie" "uy" "ye" "ai" "is" "eigh") . "spider") + (("a" "ho" "au" "aw" "ough") . "swan") + (("o" "oa" "oe" "ow" "ough" "eau" "oo" "ew") . "open") + (("o" "oo" "u" "ou") . "wolf") (("u" "o" "oo" "ou") . "lug") + (("o" "oo" "ew" "ue" "oe" "ough" "ui" "oew" "ou") . "who") + (("oi" "oy" "uoy") . "join") (("ow" "ou" "ough") . "now") + (("a" "er" "i" "ar" "our" "ur") . "about") + (("air" "are" "ear" "ere" "eir" "ayer") . "chair") (("a") . "arm ") + (("ir" "er" "ur" "ear" "or" "our" "yr") . "bird") + (("aw" "a" "or" "oor" "ore" "oar" "our" "augh" "ar" "ough" "au") . "paw") + (("ear" "eer" "ere" "ier") . "ear") (("ure" "our") . "cure"))) + +(defconst w/friend-phonemes + (-sort + (-on #'> (lambda (x) (length (car x)))) + (--mapcat + (-map (lambda (g) (cons g (cdr it))) (car it)) + w/friend-grapheme-phonemes))) + +(defun w/friend-replace-graphemes (str) + "Replace all graphemes with phoneme words in STR." + (let* ((phoneme-codes (--map-indexed (cons (cdr it) (format "%s," it-index)) w/friend-grapheme-phonemes)) + (grapheme-codes (--map (cons (car it) (alist-get (cdr it) phoneme-codes nil nil #'s-equals?)) w/friend-phonemes)) + (cleaned (s-downcase (replace-regexp-in-string "[^[:alpha:]]" "" str)))) + (--map (car (nth (string-to-number it) phoneme-codes)) (-filter #'s-present? (s-split "," (s-replace-all grapheme-codes cleaned)))))) + +(defun w/friend-phoneme-path (ph) + "Return a randomly chosen path to the given PH." + (let ((samples (f--entries (w/asset "friendvoice/") (s-contains? ph it) t))) + (nth (random (length samples)) samples))) +(defun w/friend-pronounce-phonemes (ph) + "Say PH." + (let ((files (-map #'w/friend-phoneme-path ph))) + (apply + #'start-process + "phoneme-say" nil "playphonemes" + files))) + +;; (defun w/get-friend-expensive-tastes (k) +;; "Pass non-nil to K if \"friend\" has expensive tastes this stream. +;; Also update the cached Amazon stock price for next stream." +;; (fig//load-db2-entry +;; "LCOLONQ" :amzn-price +;; (lambda (price) +;; (let ((prev (or price 0)) +;; (cur (fig//stock-price "AMZN"))) +;; (fig//update-db-number "LCOLONQ" :amzn-price (lambda (_) cur)) +;; (funcall k (> cur prev)))))) + +(defvar w/friend-tastes " You love eating ectoplasm and blood and stuff and assorted other spooky things because you are currently a ghost.") +;; (fig//get-friend-expensive-tastes +;; (lambda (expensive) +;; (let ((moon (car (lunar-phase-for-date (calendar-current-date))))) +;; (setf +;; fig//friend-tastes +;; (s-concat +;; (cond +;; ((-contains? '("New" "Waxing Crescent") moon) " You prefer warm foods like soups.") +;; ((-contains? '("First Quarter" "Waxing Gibbous") moon) " You prefer to eat leafy greens and fruits.") +;; ((-contains? '("Full" "Waning Gibbous") moon) " You prefer to eat barbeque and grilled meats.") +;; ((-contains? '("Last Quarter" "Waning Crescent") moon) " You prefer to eat corn beans and squash.") +;; (t "") +;; ) +;; (if expensive " You have expensive taste in food and dislike any food that can be obtained cheaply." "")))))) + +;; states: +;; default +;; jumping +;; eating, eating0, eating1, eating2 +;; chatting, chatting0 +(defvar w/friend-state 'default) +(defvar w/friend-emotion "neutral") +(defvar w/friend-message-cache nil) +(defvar w/friend-state-timer 0) + +(defvar w/friend-animation 1) +(defvar w/friend-speech "") +(defvar w/friend-speech-timer 0) + +(defconst w/friend-composition-examples + '(("My Life Is Like A Video Game" . "A/A/c/c/c/dcc/c///a/a/a/f/g/f/f///a/a/a/a/g/g/ga//f//") + ("Super Idol" . "gg[g#]gfg[CD#cG#][D#][CG#f][Cd#][Cc]C[Cd#]/[DFfd][FA#][DA#f]D[Dg][A#f][Dd#a#]f[GBgd]B[Gd#][GDc][Gd#]G[Gd#]/[D#Gc]G[D#cg][D#g][D#g#][dg][D#f][d#d#][D#Ggc]f[D#][D#Gg][D#c][D#][D#c][d#][DFdA#]F[DA#d][Dd][Dg]/[Da#g]/[D#d#][D#][D#][D#][D#][FD#][GA#][fd#][gA#]") + ("Reindeer" . "FG/FD/B/A/G/////GAGAG/c/B///////FG/FD/B/A/G/////GAGAG/d/c/////|C4~~~G3~~~C4~~~G3~~~C~~~E3~D#3~D3~~~~~~~G3~~~D3~~~G3~~~D3~~~G3~~D3G3~B3/C4"))) + +(defun w/friend-compose-song (theme) + "Compose a song about THEME to play on the bells." + (w/ai + theme + (lambda (res) + (let* ((sp (s-split ":" (s-trim res))) + (name (s-trim (car sp))) + (song (s-trim (cadr sp)))) + (when (and (stringp name) (stringp song)) + (w/friend-respond + (format "You just composed a song about %s called %s! Say something about it!" theme name) + (lambda () + (w/write-chat-event (format "The song is called %s: %s" name song)) + (muzak//add-song (s-concat "friend's " name) song) + (muzak/play-tracks song)))))) + "Please compose a song about the provided theme. The format for the song is a sequence of characters with meanings as follows: / represents a rest, uppercase letters A through G indicate semitones, octaves are specified with a number following a semitone, ~ extends the duration of a note, square brackets like [] group notes together into a chord. The pipe character | separates tracks. Respond only with the song's name followed by a colon folowed by the song notes. Do not explain yourself. The song should ideally be 20 to 30 notes long." + (-map #'car w/friend-composition-examples) + (--map (format "%s: %s" (car it) (cdr it)) w/friend-composition-examples))) + +(defun w/friend-personality (msg k) + "Given MSG, pass a string with more personality to K." + (let ((call (s-concat w/friend-emotion " | " msg))) + (w/ai + call + (lambda (new) + (let ((sp (s-split "|" (s-trim new)))) + (if (= 2 (length sp)) + (progn + (when (stringp (car sp)) + (setf w/friend-emotion (s-trim (car sp)))) + (when (stringp (cadr sp)) + (let ((resp (s-trim (cadr sp)))) + (push (cons call (s-trim new)) w/friend-message-cache) + (funcall k resp)))) + (let ((resp (s-trim new))) + (push (cons call (s-trim new)) w/friend-message-cache) + (funcall k resp))))) + (s-concat + "You are the personality of a desktop buddy named \"friend\". \"friend\" is irreverant but kind, and only speaks in lowercase. You are kind of dumb in a cute way and silly like a virtual pet. You live in the corner of LCOLONQ's stream and provide commentary on events. Given an emotional state and a description of an event that happened to you, please respond with a new emotional state and a short message in response considering your emotional state. The message should only be one clause. You like people, video games, emojis, learning, and food." + "The theme of LCOLONQ's stream today is " (s-trim (w/slurp "~/today.txt")) " " + "The title of LCOLONQ's stream today is " w/twitch-current-stream-title " " + w/friend-tastes + ) + (cons "neutral | Mimeyu fed you an apple." (reverse (-take 5 (-map #'car w/friend-message-cache)))) + (cons "happy | yum apple so good" (reverse (-take 5 (-map #'cdr w/friend-message-cache)))) + ))) + +(defun w/enemy-personality (msg k) + "Given MSG, pass a string with more personality (enemy mode) to K." + (w/ai + (s-concat w/friend-emotion " | " msg) + (lambda (new) + (let ((sp (s-split "|" (s-trim new)))) + (when (= 2 (length sp)) + (when (stringp (car sp)) + (setf w/friend-emotion (s-trim (car sp)))) + (when (stringp (cadr sp)) + (funcall k (s-trim (cadr sp))))))) + (s-concat + "You are the personality of a desktop buddy named \"enemy\". \"enemy\" is irreverant and rude. You are very intelligent in a cute way and mean like a snake. You live in the corner of LCOLONQ's stream and provide commentary on events. Given an emotional state and a description of an event that happened to you, please respond with a new emotional state and a short message in response considering your emotional state. The message should only be one clause." + w/friend-tastes + ) + "neutral | notgeiser fed you bone hurting juice." + "disdainful | I really dislike you strongly, notgeiser." + )) + +(defun w/friend-set-state (st &optional time) + "Set \"friend\"'s state to ST for TIME seconds." + (setf w/friend-state st) + (setf w/friend-state-timer (or time 5))) + +(defun w/friend-set-speech (msg &optional time) + "Have \"friend\" say MSG for TIME." + (w/write-chat-event (s-concat "Friend says: " msg)) + (setf w/friend-speech msg) + (setf w/friend-speech-timer (or time 5))) + +(defun w/friend-say (msg) + "Have \"friend\" say MSG." + (w/friend-pronounce-phonemes (w/friend-replace-graphemes msg)) + (w/friend-set-speech msg 10) + (w/friend-set-state 'chatting 10)) + +(defun w/friend-feed (user food) + "Call when USER fed FOOD to \"friend\"." + (if (s-equals? "imgeiser" user) + (w/enemy-personality + (format "You dislike %s and they are your enemy. %s fed you %s" user user food) + (lambda (msg) + (w/friend-set-speech msg 6) + (w/friend-set-state 'eating 6))) + (w/friend-personality + (format "%s fed you %s" user food) + (lambda (msg) + (w/friend-set-speech msg 6) + (w/friend-set-state 'eating 6))))) + +(defun w/friend-respond (ev &optional k) + "Call when an event EV happens to \"friend\". +If K is specified, call it after the response." + (w/friend-personality + ev + (lambda (msg) + (w/friend-say msg) + (when k + (funcall k))))) + +(defun w/friend-chat (user msg) + "Call when USER sends MSG to \"friend\"." + (if (s-equals? user "imgeiser") + (w/enemy-personality + (format "You dislike %s and they are your enemy. %s says: %s" user user msg) + (lambda (msg) + (w/friend-set-speech msg 10) + (w/friend-set-state 'chatting 10))) + (w/friend-respond (format "%s says: %s" user msg)))) + +(defun w/friend-gift (user gift) + "Call when USER gave GIFT to \"friend\"." + (if (s-equals? user "imgeiser") + (w/enemy-personality + (format "You dislike %s and they are your enemy. %s gave you %s as a Christmas present." user user gift) + (lambda (msg) + (w/friend-set-speech msg 6))) + (w/friend-personality + (format "%s gave you %s as a Christmas present." user gift) + (lambda (msg) + (w/friend-set-speech msg 6))))) + +(defun w/friend-tfig (user tfig) + "Call when USER took TFIG from \"friend\"." + (if (not (s-equals? "imgeiser" user)) + (w/enemy-personality + (format "You dislike %s and they are your enemy. %s took away %s from you and stole your Christmas present." user user tfig) + (lambda (msg) + (w/friend-set-speech msg 6))) + (w/friend-personality + (format "%s took away %s from you and stole your Christmas present." user tfig) + (lambda (msg) + (w/friend-set-speech msg 6))))) + +;; (defun w/friend-react-wikipedia (user page) +;; "Call when USER asks \"friend\" to react to PAGE on Wikipedia." +;; (w/fetch-wikipedia +;; page +;; (lambda (sum) +;; (w/friend-respond (format "%s asks you to react to the Wikipedia page for %s. The page summary is: %s" user page sum))))) + +(defun w/callout-flycheck-error () + "Call to respond to a random Flycheck error in the current buffer." + (when-let* ((errs (--filter (eq (flycheck-error-level it) 'error) flycheck-current-errors)) + (err (nth (random (length errs)) errs))) + (w/friend-respond + (s-concat + "LCOLONQ made an error while programming: " + (flycheck-error-message err))))) + +(defun w/callout-holiday () + "Call to respond to the current holiday." + (w/friend-respond "It's currently that weird period between Christmas and New Years! Say something about it please!")) + +;; (defun fig//callout-hexamedia () +;; "Call to respond to a random recent chatter's Hexamedia card collection." +;; (let* ((users (-filter #'cdr (--map (cons (car it) (fig//load-db-entry (car it) :hexamedia-cards)) (-take 10 fig//incoming-chat-history)))) +;; (user (and users (nth (random (length users)) users))) +;; (cards (cdr user)) +;; (coll (and cards (nth (random (length cards)) cards)))) +;; (when coll +;; (fig//friend-respond +;; (format +;; "%s has collected %s out of 20 cards in the %s collection. Please mention the collection name and the person collecting." +;; (car user) +;; (cdr coll) +;; (car coll)))))) + +;; (defun fig//callout-copfish () +;; "Call to respond to a random recent chatter's Copfish ratio." +;; (let* ((users (-filter #'cdr (--map (cons (car it) (fig//load-db-entry (car it) :copfish-ratio)) (-take 10 fig//incoming-chat-history)))) +;; (user (and users (nth (random (length users)) users)))) +;; (when user +;; (fig//friend-respond +;; (format +;; "%s has collected %s out of %s fish in the Copfish fish catching collection. Please mention the collection name and the person collecting." +;; (car user) +;; (cadr user) +;; (cddr user)))))) + +;; (defun fig//callout-uwoomfie () +;; "Call to respond to a random recent chatter's Uwoomfie status." +;; (let* ((users +;; (-filter +;; #'cdr +;; (--map +;; (cons (car it) (fig//get-uwoomfie-status (car it))) +;; (-take 10 fig//incoming-chat-history)))) +;; (user (and users (nth (random (length users)) users)))) +;; (cl-case (cdr user) +;; (cool (fig//friend-respond (format "According to uwu_to_owo, %s is a very cool person. Make sure to mention their username." (car user)))) +;; (honored (fig//friend-respond (format "According to uwu_to_owo, %s is an honorary viewer. Make sure to mention their username." (car user)))) +;; (t nil)))) + +;; (defun fig//callout-shindaggers () +;; "Call to respond to a random recent chatter's Shindaggers knife collection." +;; (let* ((users (-filter #'cdr (--map (cons (car it) (fig//load-db-entry (car it) :shindaggers-knives)) (-take 10 fig//incoming-chat-history)))) +;; (user (and users (nth (random (length users)) users))) +;; (knives (cdr user)) +;; (knife (and knives (nth (random (length knives)) knives)))) +;; (when knife +;; (fig//friend-respond +;; (format +;; "%s has collected the %s from shindig's Shindaggers knife collection. Please mention the collection name and the person collecting and the knife." +;; (car user) +;; knife))))) + +;; (defun fig//callout-aoc () +;; "Call to respond to a random recent chatter's Advent of Code completion." +;; (let* ((users (-filter #'cdr (--map (cons (car it) (fig//lookup-aoc-stars (car it))) (-take 10 fig//incoming-chat-history)))) +;; (user (and users (nth (random (length users)) users)))) +;; (fig//friend-respond +;; (format +;; "%s has been doing Advent of Code this year, and they've completed %d out of %d problems so far." +;; (car user) +;; (cdr user) +;; (fig//max-aoc-stars))))) + +;; (defun fig//callout-gcp () +;; "Call to respond to the current GCP dot." +;; (fig//gcp-dot +;; (lambda (d) +;; (fig//friend-respond +;; (format +;; "The Global Consciousness Project indicator is currently as follows: %s" +;; (fig//gcp-describe d)))))) + +;; (defun fig//callout-resolution () +;; "Call to respond to a random recent chatter's resolve." +;; (let* ((users (-filter #'cdr (--map (cons (car it) (fig//load-db-entry (car it) :resolution)) (-take 10 fig//incoming-chat-history)))) +;; (user (and users (nth (random (length users)) users)))) +;; (if (s-match (rx (one-or-more digit) (zero-or-more space) "x" (zero-or-more space) (one-or-more digit)) (cdr user)) +;; (fig//friend-respond +;; (format +;; "%s snarkily said that their New Year's resolution was a screen resolution. What do you think about this?" (car user))) +;; (fig//friend-respond +;; (format +;; "%s made a New Year's resolution to %s. Ask them how it's going!" +;; (car user) +;; (cdr user)))))) + +;; (defun fig//callout-dew () +;; "Call to respond to The Dew Situation." +;; (fig//friend-respond +;; "Someone just gave you a delicious bottle of Mountain Dew and you really like it a lot.")) + +(defun w/get-friend-offset () + "Return the number of newlines to print before \"friend\"." + (if (-contains? '(jumping) w/friend-state) + w/friend-animation + 1)) + +(defun w/get-friend-face () + "Return the eyes and mouth for \"friend\" as a list of strings." + (cl-case w/friend-state + (jumping (list "^" "^" "ww")) + + (eating (list "v" "v" "<>")) + (eating0 (list "v" "v" "<>")) + (eating1 (list "-" "-" "mw")) + (eating2 (list "-" "-" "wm")) + + (chatting (list ">" ">" "oo")) + (chatting0 (list ">" ">" "~~")) + + (t (list "-" "-" "ww")))) + +(defun w/get-friend-bubble () + "Return the text bubble for \"friend\"." + (if (> w/friend-speech-timer 0) + w/friend-speech + nil)) + +(defun w/friend-random-event () + "Activate a random \"friend\" event." + (cl-case (random 10) + ;; (0 (fig//callout-flycheck-error)) + ;; (1 (fig//callout-gcp)) + ;; (2 (fig//callout-hexamedia)) + ;; (3 (fig//callout-uwoomfie)) + ;; (4 (fig//callout-shindaggers)) + ;; (5 (fig//callout-copfish)) + ;; (6 (fig//callout-resolution)) + ;; (29 (fig/ldq)) + (t (w/friend-set-state 'jumping)))) + +(defun w/update-friend () + "Update \"friend\"'s state per tick." + (setf w/friend-animation (% (+ w/friend-animation 1) 2)) + (if (> w/friend-state-timer 0) + (cl-decf w/friend-state-timer) + (setf w/friend-state 'default)) + (if (> w/friend-speech-timer 0) + (cl-decf w/friend-speech-timer)) + (when (= (random 120) 0) + (w/friend-random-event)) + (cl-case w/friend-state + (eating (setf w/friend-state 'eating0)) + (eating0 (setf w/friend-state 'eating1)) + (eating1 (setf w/friend-state 'eating2)) + (eating2 (setf w/friend-state 'eating1)) + + (chatting (setf w/friend-state 'chatting0)) + (chatting0 (setf w/friend-state 'chatting)) + )) + +(defun w/render-friend () + "Render the \"friend\" buffer." + (save-excursion + (with-current-buffer (w/get-friend-buffer) + (setq-local cursor-type nil) + (let* + ((inhibit-read-only t) + (face (w/get-friend-face)) + (bubble (w/get-friend-bubble))) + (erase-buffer) + (w/write + (format-spec + "%a\ + /----\\ + / %l %r \\ + \\ %m / + +----+\ +" +;; "%a\ +;; ---- +;; / \\ +;; ---------- +;; / %l %r \\ +;; \\ %m / +;; +----+\ +;; " +;; "%a\ +;; oooooo +;; oooooooo +;; oo/----\\oo +;; o/ %l %r \\o +;; \\ %m / +;; +----+\ +;; " +;; "%a\ +;; /\\ +;; /\\/\\ +;; / \\ +;; / \\ +;; ~~~~~~~~~~ +;; ~~~~~~~~~~ +;; / %l %r \\ +;; \\ %m / +;; +----+\ +;; " +;; "%a\ +;; /\\ +;; / *\\ +;; / * \\ +;; / * * \\ +;; ---------- +;; / %l %r \\ +;; \\ %m / +;; +----+\ +;; " +;; "%a\ +;; --- +;; / \\ +;; / [=] \\ +;; ----------- +;; / %l %r \\ +;; \\ %m / +;; +----+\ +;; " + `((?a . ,(s-repeat (w/get-friend-offset) " \n")) + (?l . ,(car face)) + (?r . ,(cadr face)) + (?m . ,(caddr face))))) + (goto-char (point-min)) + (end-of-line) + (w/write (or bubble "")) + (forward-line) + (end-of-line) + (w/write (if bubble "/" "")) + )))) + +(defvar w/friend-timer nil) +(defun w/run-friend-timer () + "Run the \"friend\" timer." + (when w/friend-timer + (cancel-timer w/friend-timer)) + (w/update-friend) + (w/render-friend) + (setq + w/friend-timer + (run-with-timer 1 nil #'w/run-friend-timer))) + +(defun w/start-friend () + "Launch \"friend\"." + (interactive) + (w/run-friend-timer)) + +(defun w/stop-friend () + "Stop \"friend\"." + (interactive) + (cancel-timer w/friend-timer) + (message "\"friend\" is going to sleep!")) + +(provide 'wasp-friend) +;;; wasp-friend.el ends here |