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/gizmo/wasp-friend-eating.el | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 src/gizmo/wasp-friend-eating.el (limited to 'src/gizmo/wasp-friend-eating.el') diff --git a/src/gizmo/wasp-friend-eating.el b/src/gizmo/wasp-friend-eating.el new file mode 100644 index 00000000..4bd92b8c --- /dev/null +++ b/src/gizmo/wasp-friend-eating.el @@ -0,0 +1,18 @@ +;;; wasp-friend-eating --- "friend" can eat -*- lexical-binding: t; -*- +;;; Commentary: +;;; Code: +(require 'wasp-friend) + +(defvar w/friend-tastes " You love eating cranberries and lemons.") + +(defun w/friend-feed (user food) + "Call when USER fed FOOD to \"friend\"." + (w/friend-personality + (format "%s fed you %s" user food) + (lambda (msg) + (w/friend-say msg) + (w/friend-set-state 'eating 6)) + w/friend-tastes)) + +(provide 'wasp-friend-eating) +;;; wasp-friend-eating.el ends here -- cgit v1.2.3