diff options
| -rw-r--r-- | qkbox/toot.scm | 70 |
1 files changed, 35 insertions, 35 deletions
diff --git a/qkbox/toot.scm b/qkbox/toot.scm index 8f163c4..83c744e 100644 --- a/qkbox/toot.scm +++ b/qkbox/toot.scm @@ -59,12 +59,12 @@ (define (creation-time->string date) (date->string date "~4")) -(define*-public (post text - #:key - spoiler-text - visibility - sensitive? - reply-to) +(define* (post text + #:key + spoiler-text + visibility + sensitive? + reply-to) (receive (res body) (post-/api/v1/statuses #:status text #:spoiler-text spoiler-text @@ -172,7 +172,7 @@ (creation-time->string time)) (display-status (notification-status notification)))) -(define-public (status-public? status) +(define (status-public? status) (eq? 'public (status-visibility status))) (define (account-to-string account) @@ -182,12 +182,12 @@ (account-acct account) (account-id account))) -(define*-public (display-status status - #:key - (port (current-output-port)) - display-cw? - display-sensitive? - (display-id? #t)) +(define* (display-status status + #:key + (port (current-output-port)) + display-cw? + display-sensitive? + (display-id? #t)) (let ((status (or (status-reblog status) status)) (status/original status)) (let ((account (status-account status))) @@ -250,22 +250,22 @@ (scale status-pict 0.5))))) (else status-pict)))) -(define-public (status-id status) +(define (status-id status) (assoc-ref (status-json status) "id")) -(define-public (status-account status) +(define (status-account status) (make-account (assoc-ref (status-json status) "account"))) -(define-public (status-reblog status) +(define (status-reblog status) (let ((reblog/json (assoc-ref (status-json status) "reblog"))) (if (eq? reblog/json 'null) #f (make-status reblog/json)))) -(define-public (status-sensitive? status) +(define (status-sensitive? status) (assoc-ref (status-json status) "sensitive")) -(define-public (status-content status) +(define (status-content status) (assoc-ref (status-json status) "content")) (define (sanitize x) @@ -305,10 +305,10 @@ (append-map flatten x)) (else (list x)))) -(define-public (status-visibility status) +(define (status-visibility status) (string->symbol (assoc-ref (status-json status) "visibility"))) -(define-public (status-spoiler-text status) +(define (status-spoiler-text status) (let ((s (assoc-ref (status-json status) "spoiler_text"))) (if (zero? (string-length s)) #f @@ -325,7 +325,7 @@ "|") "):")) -(define-public (status-emojis status) +(define (status-emojis status) (map make-emoji (vector->list (assoc-ref (status-json status) "emojis")))) (define-record-type <attachment> @@ -349,7 +349,7 @@ (define (fetch-attachment-pict attachment) (fetch-pict (attachment-url attachment))) -(define-public (status-media-attachments status) +(define (status-media-attachments status) (let ((v (assoc-ref (status-json status) "media_attachments"))) (map make-attachment (vector->list v)))) @@ -416,19 +416,19 @@ (find (lambda (emoji) (equal? shortcode (emoji-shortcode emoji))) emojis)) -(define-public (account-id account) +(define (account-id account) (assoc-ref (account-json account) "id")) -(define-public (account-avatar-static account) +(define (account-avatar-static account) (assoc-ref (account-json account) "avatar_static")) -(define-public (account-acct account) +(define (account-acct account) (assoc-ref (account-json account) "acct")) -(define-public (account-display-name account) +(define (account-display-name account) (assoc-ref (account-json account) "display_name")) -(define-public (account-emojis account) +(define (account-emojis account) (map make-emoji (vector->list (assoc-ref (account-json account) "emojis")))) (define avatar-static-cache (make-hash-table)) @@ -480,7 +480,7 @@ (line 0 0 32 32 #:color "red") (line 0 32 32 0 #:color "red"))) -(define*-public (fetch-status id #:key (authorization? #t)) +(define* (fetch-status id #:key (authorization? #t)) (receive (res body) (get-/api/v1/statuses/:id id #:authorization? authorization?) (case (response-code res) @@ -494,7 +494,7 @@ (format #f "/api/v1/statuses/~a" id) #:authorization? authorization?)) -(define*-public (fetch-home-timeline #:key max-id since-id min-id limit local?) +(define* (fetch-home-timeline #:key max-id since-id min-id limit local?) (receive (res body) (get-/api/v1/timelines/home #:max-id max-id #:since-id since-id @@ -509,7 +509,7 @@ (else (error "fetch-home-timeline: failed" res body))))) -(define*-public (fetch-public-timeline #:key max-id since-id min-id limit local? remote? only-media?) +(define* (fetch-public-timeline #:key max-id since-id min-id limit local? remote? only-media?) (receive (res body) (get-/api/v1/timelines/public #:max-id max-id #:since-id since-id @@ -550,7 +550,7 @@ ,@(and/nil only-media? `((only_media . ,only-media?)))) #:authorization? #t)) -(define-public (favourite id) +(define (favourite id) (define-values (res body) (post-/api/v1/statuses/:id/favourite id)) (case (response-code res) @@ -564,7 +564,7 @@ (format #f "/api/v1/statuses/~a/favourite" id) #:authorization? #t)) -(define-public (unfavourite id) +(define (unfavourite id) (define-values (res body) (get-/api/v1/statuses/:id/unfavourite id)) (case (response-code res) @@ -578,7 +578,7 @@ (format #f "/api/v1/statuses/~a/unfavourite" id) #:authorization? #t)) -(define-public (reblog id) +(define (reblog id) (define-values (res body) (post-/api/v1/statuses/:id/reblog id)) (case (response-code res) @@ -592,7 +592,7 @@ (format #f "/api/v1/statuses/~a/reblog" id) #:authorization? #t)) -(define-public (unreblog id) +(define (unreblog id) (define-values (res body) (post-/api/v1/statuses/:id/unreblog id)) (case (response-code res) @@ -640,7 +640,7 @@ (values res (json-string->scm (utf8->string body))) (values res body)))) -(define*-public (fetch-account id) +(define* (fetch-account id) (receive (res body) (get-/api/v1/accounts/:id id) (case (response-code res) |