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