diff options
Diffstat (limited to 'qkbox')
| -rw-r--r-- | qkbox/toot.scm | 62 | 
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 | 
