qkbox: toot: Use define-public.

1 files changed, 31 insertions, 37 deletions

diff --git a/qkbox/toot.scm b/qkbox/toot.scm
index 6d83e92..57964b4 100644
--- a/qkbox/toot.scm
+++ b/qkbox/toot.scm
@@ -35,13 +35,7 @@
   #:use-module ((sxml fold)
                 #:select (foldt))
   #:use-module ((sxml xpath)
-                #:select (sxpath))
-  #:export (post
-            timeline
-            favourite
-            unfavourite
-            reblog
-            unreblog))
+                #:select (sxpath)))
 
 (define current-mastodon-host
   (make-parameter (getenv "MASTODON_HOST")))
@@ -49,12 +43,12 @@
 (define current-mastodon-access-token
   (make-parameter (getenv "MASTODON_ACCESS_TOKEN")))
 
-(define* (post text
-               #:key
-               spoiler-text
-               visibility
-               sensitive?
-               reply-to)
+(define*-public (post text
+                      #:key
+                      spoiler-text
+                      visibility
+                      sensitive?
+                      reply-to)
   (define-values (res body)
     (/api/v1/statuses #:status text
                       #:spoiler-text spoiler-text
@@ -125,13 +119,13 @@
             (account-id account)
             (account-acct account))))
 
-(define (status-public? status)
+(define-public (status-public? status)
   (eq? 'public (status-visibility status)))
 
-(define* (display-status status
-                         #:key
-                         (port (current-output-port))
-                         display-cw?)
+(define*-public (display-status status
+                                #:key
+                                (port (current-output-port))
+                                display-cw?)
   (let ((account (status-account status)))
     (format port "~s ~a ~a ~s~@[ ~:@(~a~)~]~%"
             (fetch-avatar-static (account-avatar-static account))
@@ -152,19 +146,19 @@
       (display-content (status-content status)
                        port)))))
 
-(define (status-id status)
+(define-public (status-id status)
   (assoc-ref (status-json status) "id"))
 
-(define (status-account status)
+(define-public (status-account status)
   (make-account (assoc-ref (status-json status) "account")))
 
-(define (status-reblog status)
+(define-public (status-reblog status)
   (let ((reblog/json (assoc-ref (status-json status) "reblog")))
     (if (eq? reblog/json 'null)
         #f
         (make-status reblog/json))))
 
-(define (status-content status)
+(define-public (status-content status)
   (assoc-ref (status-json status) "content"))
 
 (define (content->sxml content)
@@ -176,7 +170,7 @@
                               'pre "<br/>" 'post)
     "</status>")))
 
-(define* (display-content content #:optional (port (current-output-port)))
+(define*-public (display-content content #:optional (port (current-output-port)))
   (for-each (lambda (x) (display x port))
             (flatten
              (foldt (lambda (xs)
@@ -196,31 +190,31 @@
     (append-map flatten x))
    (else (list x))))
 
-(define (status-visibility status)
+(define-public (status-visibility status)
   (string->symbol (assoc-ref (status-json status) "visibility")))
 
-(define (status-spoiler-text status)
+(define-public (status-spoiler-text status)
   (let ((s (assoc-ref (status-json status) "spoiler_text")))
     (if (zero? (string-length s))
         #f
         s)))
 
-(define (status-media-attachments status)
+(define-public (status-media-attachments status)
   (let ((v (assoc-ref (status-json status) "media_attachments")))
     (if (zero? (vector-length v))
         #f
         (vector->list v))))
 
-(define (account-id account)
+(define-public (account-id account)
   (assoc-ref (account-json account) "id"))
 
-(define (account-avatar-static account)
+(define-public (account-avatar-static account)
   (assoc-ref (account-json account) "avatar_static"))
 
-(define (account-acct account)
+(define-public (account-acct account)
   (assoc-ref (account-json account) "acct"))
 
-(define (account-display-name account)
+(define-public (account-display-name account)
   (assoc-ref (account-json account) "display_name"))
 
 (define avatar-static-hash (make-hash-table))
@@ -253,7 +247,7 @@
       (hash-set! avatar-static-hash url pict)
       pict))))
 
-(define* (status id #:key (authorization? #t))
+(define*-public (status id #:key (authorization? #t))
   (define-values (res body)
     (/api/v1/statuses/:id id #:authorization? authorization?))
   (case (response-code res)
@@ -267,7 +261,7 @@
    (format #f "/api/v1/statuses/~a" id)
    #:authorization? authorization?))
 
-(define* (timeline #:key max-id since-id min-id limit local?)
+(define*-public (timeline #:key max-id since-id min-id limit local?)
   (define-values (res body)
     (/api/v1/timelines/home #:max-id max-id
                             #:since-id since-id
@@ -294,7 +288,7 @@
      ,@(if local? `((local . ,local?)) '()))
    #:authorization? #t))
 
-(define (favourite id)
+(define-public (favourite id)
   (define-values (res body)
     (/api/v1/statuses/:id/favourite id))
   (case (response-code res)
@@ -308,7 +302,7 @@
    (format #f "/api/v1/statuses/~a/favourite" id)
    #:authorization? #t))
 
-(define (unfavourite id)
+(define-public (unfavourite id)
   (define-values (res body)
     (/api/v1/statuses/:id/unfavourite id))
   (case (response-code res)
@@ -322,7 +316,7 @@
    (format #f "/api/v1/statuses/~a/unfavourite" id)
    #:authorization? #t))
 
-(define (reblog id)
+(define-public (reblog id)
   (define-values (res body)
     (/api/v1/statuses/:id/reblog id))
   (case (response-code res)
@@ -336,7 +330,7 @@
    (format #f "/api/v1/statuses/~a/reblog" id)
    #:authorization? #t))
 
-(define (unreblog id)
+(define-public (unreblog id)
   (define-values (res body)
     (/api/v1/statuses/:id/unreblog id))
   (case (response-code res)
@@ -385,7 +379,7 @@
         (values res (json-string->scm (utf8->string body)))
         (values res body))))
 
-(define* (account id)
+(define*-public (account id)
   (define-values (res body)
     (/api/v1/accounts/:id id))
   (case (response-code res)