blob: 4bd92b8c16d0bda1e3ad494d9aa04f0629474f45 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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
|
