summaryrefslogtreecommitdiff
path: root/qkbox/toot.scm
diff options
context:
space:
mode:
Diffstat (limited to 'qkbox/toot.scm')
-rw-r--r--qkbox/toot.scm62
1 files changed, 61 insertions, 1 deletions
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