summaryrefslogtreecommitdiff
path: root/qkbox/toot.scm
diff options
context:
space:
mode:
Diffstat (limited to 'qkbox/toot.scm')
-rw-r--r--qkbox/toot.scm8
1 files changed, 7 insertions, 1 deletions
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)