summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--qkbox/toot.scm9
1 files changed, 5 insertions, 4 deletions
diff --git a/qkbox/toot.scm b/qkbox/toot.scm
index e35d027..7d42e65 100644
--- a/qkbox/toot.scm
+++ b/qkbox/toot.scm
@@ -103,7 +103,7 @@
(assoc-ref (status-json status) "content"))
(define (status-visibility status)
- (assoc-ref (status-json status) "visibility"))
+ (string->symbol (assoc-ref (status-json status) "visibility")))
(define (status-spoiler-text status)
(let ((s (assoc-ref (status-json status) "spoiler_text")))
@@ -152,9 +152,10 @@
(avatar-static->pict (status-avatar-static status))
(status-id status)
(status-acct status)
- (if (string=? (status-visibility status) "public")
- #f
- (status-visibility status))
+ (case (status-visibility status)
+ ((public) #f)
+ (else
+ (status-visibility status)))
(cond
((status-spoiler-text status) =>
(lambda (spoiler-text)