diff options
| -rw-r--r-- | qkbox/toot.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/qkbox/toot.scm b/qkbox/toot.scm index e4314bd..a917bef 100644 --- a/qkbox/toot.scm +++ b/qkbox/toot.scm @@ -126,7 +126,7 @@ (define (account-to-string account) (format #f "~{~a~} <~a> (account-id: ~s)" (insert-emoji-picts (account-emojis account) - (content-filter (account-display-name account))) + (sanitize (account-display-name account))) (account-acct account) (account-id account))) @@ -161,7 +161,7 @@ "~@[~a~%~]" (and (or (not (status-spoiler-text status)) display-cw?) - (content-filter + (sanitize (status-to-content-string status))) "~{~a~%~}" (map (lambda (att) @@ -214,7 +214,7 @@ (define-public (status-content status) (assoc-ref (status-json status) "content")) -(define (content-filter x) +(define (sanitize x) (string-delete (char-set #\x202d #\x202e) x)) (define (content->sxml content) |