summaryrefslogtreecommitdiff
path: root/qkbox
diff options
context:
space:
mode:
authorMasaya Tojo <masaya@tojo.tokyo>2020-07-10 05:10:08 +0900
committerMasaya Tojo <masaya@tojo.tokyo>2020-07-10 05:10:08 +0900
commita11ad62be3bd49ca1fea1d32bb98e3772f538f48 (patch)
treecda08212d5d5c54dce7f313e24339ce9e8500e1f /qkbox
parent1b03cb958212a816b4224ac7d170745caa2d615f (diff)
qkbox: toot: Update status-visibility.
Diffstat (limited to 'qkbox')
-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)