diff options
| author | Masaya Tojo <masaya@tojo.tokyo> | 2020-07-09 05:34:43 +0900 |
|---|---|---|
| committer | Masaya Tojo <masaya@tojo.tokyo> | 2020-07-09 05:34:43 +0900 |
| commit | 85382f4cef6c00d8c6e423a72fddcff0b3f47096 (patch) | |
| tree | 0e2b68512d003c5f8e3bdfcb10e07f20dc7a71d7 | |
| parent | fc87bd109afd0faeb8d83a9875ab17678c49ef0e (diff) | |
qkbox: toot: Make visivility visible.
| -rw-r--r-- | qkbox/toot.scm | 8 |
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) |