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-reading.el | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 src/gizmo/wasp-friend-reading.el (limited to 'src/gizmo/wasp-friend-reading.el') diff --git a/src/gizmo/wasp-friend-reading.el b/src/gizmo/wasp-friend-reading.el new file mode 100644 index 00000000..7859b2e8 --- /dev/null +++ b/src/gizmo/wasp-friend-reading.el @@ -0,0 +1,15 @@ +;;; wasp-friend-reading --- "friend" can read pages -*- lexical-binding: t; -*- +;;; Commentary: +;;; Code: +(require 'wasp-friend) +(require 'wasp-wikipedia) + +(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))))) + +(provide 'wasp-friend-reading) +;;; wasp-friend-reading.el ends here -- cgit v1.2.3