From 1321b087545c721766690086e08be4c88e95102b Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Wed, 15 Jul 2020 05:51:01 +0900 Subject: qkbox: toot: Export identifiers. --- qkbox/toot.scm | 62 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++- 1 file changed, 61 insertions(+), 1 deletion(-) diff --git a/qkbox/toot.scm b/qkbox/toot.scm index f2602ea..0043fb8 100644 --- a/qkbox/toot.scm +++ b/qkbox/toot.scm @@ -38,7 +38,67 @@ #:select (foldt)) #:use-module ((sxml xpath) #:select (sxpath)) - #:use-module (rnrs io ports)) + #:use-module (rnrs io ports) + #:export (;; config + current-mastodon-host + current-mastodon-access-token + + ;; get + fetch-status + fetch-account + fetch-home-timeline + fetch-public-timeline + + ;; post + post + favourite + unfavourite + reblog + unreblog + + ;; streaming + streaming-user + streaming-public + + ;; status + status? + status-id + status-emojis + status-reblog + status-account + status-content + status-public? + status-sensitive? + status-visibility + status-spoiler-text + status-creation-time + status-in-reply-to-id + status-in-reply-to-account-id + display-status + + ;; notification + notification? + notification-id + notification-type + notification-status + notification-account + notification-creation-time + display-notification + + ;; emoji + emoji? + emoji-shortcode + emoji-static-url + emoji-visible-in-picker? + + ;; account + account? + account-id + account-acct + account-emojis + account-display-name + account-avatar-static + )) (define-syntax-rule (and/nil test expr) (if test -- cgit v1.2.3