diff options
| author | Masaya Tojo <masaya@tojo.tokyo> | 2020-07-08 10:05:05 +0900 |
|---|---|---|
| committer | Masaya Tojo <masaya@tojo.tokyo> | 2020-07-08 10:05:05 +0900 |
| commit | 1a47a0dbc7b110763d8d8d3eec776db5efdd30a8 (patch) | |
| tree | 98db2bde22bb9aece8db2c44ebebbd9d2d1229a9 | |
| parent | 6ded583d3df053144f0b9e3087ec4bd3ad45c12f (diff) | |
qkbox: toot: Fix post procedure.
* qkbox/toot.scm[post]: Rename keyword from 'sensitive' to 'sensitive?'.
| -rw-r--r-- | qkbox/toot.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/qkbox/toot.scm b/qkbox/toot.scm index 796d9c1..a90389b 100644 --- a/qkbox/toot.scm +++ b/qkbox/toot.scm @@ -17,13 +17,13 @@ #:key spoiler-text visibility - sensitive + sensitive? reply-to) (define-values (res body) (/api/v1/statuses #:status status #:spoiler-text spoiler-text #:visibility visibility - #:sensitive sensitive + #:sensitive? sensitive? #:reply-to reply-to)) (case (response-code res) ((200) @@ -35,7 +35,7 @@ status spoiler-text visibility - sensitive + sensitive? reply-to media-ids) (post-json @@ -55,7 +55,7 @@ (else (error "post: invalid visibility (must be one of: public unlisted private direct)"))) '()) - ,@(if sensitive `((sensitive . (if sensitive #t #f))) + ,@(if sensitive? `((sensitive . (if sensitive? #t #f))) '()) ,@(if reply-to `((in_reply_to_id . ,reply-to)) |