summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMasaya Tojo <masaya@tojo.tokyo>2020-07-15 05:51:01 +0900
committerMasaya Tojo <masaya@tojo.tokyo>2020-07-15 05:51:01 +0900
commit1321b087545c721766690086e08be4c88e95102b (patch)
tree9866beff3c9f304742ac6debeb8ab572f5630e21
parentd561025b6c686d279df491d2e898c827d8c180ab (diff)
qkbox: toot: Export identifiers.
-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