From 85382f4cef6c00d8c6e423a72fddcff0b3f47096 Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Thu, 9 Jul 2020 05:34:43 +0900
Subject: qkbox: toot: Make visivility visible.

---
 qkbox/toot.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/qkbox/toot.scm b/qkbox/toot.scm
index de5dd19..ab55863 100644
--- a/qkbox/toot.scm
+++ b/qkbox/toot.scm
@@ -102,6 +102,9 @@
 (define (status-content status)
   (assoc-ref (status-json status) "content") )
 
+(define (status-visibility status)
+  (assoc-ref (status-json status) "visibility"))
+
 (define (status-spoiler-text status)
   (let ((s (assoc-ref (status-json status) "spoiler_text")))
     (if (zero? (string-length s))
@@ -145,10 +148,13 @@
                 reblog)))
      (else
       (format port
-              "#<~s ~s ~a ~a>"
+              "#<~s ~s ~a~@[ ~:@(~a~)~] ~a>"
               (avatar-static->pict (status-avatar-static status))
               (status-id status)
               (status-acct status)
+              (if (string=? (status-visibility status) "public")
+                  #f
+                  (status-visibility status))
               (cond
                ((status-spoiler-text status) =>
                 (lambda (spoiler-text)
-- 
cgit v1.2.3