From 1a47a0dbc7b110763d8d8d3eec776db5efdd30a8 Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Wed, 8 Jul 2020 10:05:05 +0900
Subject: qkbox: toot: Fix post procedure.

* qkbox/toot.scm[post]: Rename keyword from 'sensitive' to 'sensitive?'.
---
 qkbox/toot.scm | 8 ++++----
 1 file 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))
-- 
cgit v1.2.3