From 2d3341295e7c505f34e8717acb8ce8bcd907c5f4 Mon Sep 17 00:00:00 2001 From: Uko Kokņevičs Date: Sat, 18 Oct 2025 02:24:10 +0300 Subject: Add "tiny ..." trigger --- src/strings.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/strings.lisp') diff --git a/src/strings.lisp b/src/strings.lisp index b11c31c..635762c 100644 --- a/src/strings.lisp +++ b/src/strings.lisp @@ -6,6 +6,7 @@ (:export :ends-with :escape-xml + :is-tg-whitespace :is-tg-whitespace-str :lisp->camel-case :lisp->snake-case @@ -41,7 +42,7 @@ (string= gc "Zl") ; Separator, line (string= gc "Zp") ; Separator, paragraph (string= gc "Cc") ; Other, control - (= (char-code ch) #x2800) ; BRAILLE PATTERN BLANK + (= (char-code ch) #x2800) ; BRAILLE PATTERN BLANK ))) (defun is-tg-whitespace-str (str) -- cgit v1.2.3