From ca5fa17e4c21a45f1e3910fb9543c1dd26667e4f Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Sun, 12 Jul 2020 23:54:49 +0900 Subject: qkbox: toot: Rename from content-filter to sanitize. --- qkbox/toot.scm | 6 +++--- 1 file 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) -- cgit v1.2.3