summaryrefslogtreecommitdiff
path: root/qkbox
diff options
context:
space:
mode:
authorMasaya Tojo <masaya@tojo.tokyo>2020-07-08 10:05:05 +0900
committerMasaya Tojo <masaya@tojo.tokyo>2020-07-08 10:05:05 +0900
commit1a47a0dbc7b110763d8d8d3eec776db5efdd30a8 (patch)
tree98db2bde22bb9aece8db2c44ebebbd9d2d1229a9 /qkbox
parent6ded583d3df053144f0b9e3087ec4bd3ad45c12f (diff)
qkbox: toot: Fix post procedure.
* qkbox/toot.scm[post]: Rename keyword from 'sensitive' to 'sensitive?'.
Diffstat (limited to 'qkbox')
-rw-r--r--qkbox/toot.scm8
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))