qkbox: toot: Rename from content-filter to sanitize.

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)