diff options
| -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) |