summaryrefslogtreecommitdiff
path: root/qkbox
diff options
context:
space:
mode:
authorMasaya Tojo <masaya@tojo.tokyo>2020-07-09 05:34:43 +0900
committerMasaya Tojo <masaya@tojo.tokyo>2020-07-09 05:34:43 +0900
commit85382f4cef6c00d8c6e423a72fddcff0b3f47096 (patch)
tree0e2b68512d003c5f8e3bdfcb10e07f20dc7a71d7 /qkbox
parentfc87bd109afd0faeb8d83a9875ab17678c49ef0e (diff)
qkbox: toot: Make visivility visible.
Diffstat (limited to 'qkbox')
-rw-r--r--qkbox/toot.scm8
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)