AI agent skills related to using social media
Clarify which bluesky scripts are implemented
+3
-3
+3
-3
bluesky/open-app.rkt
+3
-3
bluesky/open-app.rkt
···
25
25
(define agent-name (bluesky-lookup-name (agent-atproto-did) (agent-atproto-app-password)))
26
26
(printf "You are ~a on Bluesky. Choose an action:\n" agent-name)
27
27
(newline)
28
-
(printf " - Open your notifications ~a(`bluesky_open_notifications`)\n" (unread-notifications-badge))
29
-
(printf " - Open your DMs ~a(`bluesky_open_dms`)\n" (unread-dms-badge))
28
+
(printf " - Open your notifications ~a(`bluesky_open_notifications` **RACKET SCRIPT NOT IMPLEMENTED**)\n" (unread-notifications-badge))
29
+
(printf " - Open your DMs ~a(`bluesky_open_dms` **RACKET SCRIPT NOT IMPLEMENTED**)\n" (unread-dms-badge))
30
30
(print-feeds))
31
31
32
32
···
42
42
(define feed-url (hash-ref feed 'value))
43
43
(define feed-response (agent-xrpc-get "app.bsky.feed.getFeedGenerator" (hash 'feed feed-url)))
44
44
(define feed-view (hash-ref feed-response 'view))
45
-
(printf " - Read your ~a feed (~a) (`bluesky_read_feed ~a`)\n"
45
+
(printf " - Read your ~a feed (~a) (`bluesky_read_feed ~a` **RACKET SCRIPT NOT IMPLEMENTED**)\n"
46
46
(hash-ref feed-view 'displayName)
47
47
(hash-ref feed-view 'description)
48
48
feed-url)]