diff options
| author | Masaya Tojo <masaya@tojo.tokyo> | 2020-07-10 05:10:08 +0900 |
|---|---|---|
| committer | Masaya Tojo <masaya@tojo.tokyo> | 2020-07-10 05:10:08 +0900 |
| commit | a11ad62be3bd49ca1fea1d32bb98e3772f538f48 (patch) | |
| tree | cda08212d5d5c54dce7f313e24339ce9e8500e1f | |
| parent | 1b03cb958212a816b4224ac7d170745caa2d615f (diff) | |
qkbox: toot: Update status-visibility.
| -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) |