diff options
| -rw-r--r-- | qkbox/toot.scm | 9 |
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) |