diff options
| author |  Uko Kokņevičs | 2025-10-18 02:24:10 +0300 |
|---|---|---|
| committer | Uko Kokņevičs | 2025-10-18 02:24:10 +0300 |
| commit | 2d3341295e7c505f34e8717acb8ce8bcd907c5f4 (patch) | |
| tree | 657b3ecce99110589247523118e88b1e8db4f47c /src/strings.lisp | |
| parent | Fix an infinite recursion... (diff) | |
| download | ukkoclot-2d3341295e7c505f34e8717acb8ce8bcd907c5f4.tar.gz ukkoclot-2d3341295e7c505f34e8717acb8ce8bcd907c5f4.tar.xz ukkoclot-2d3341295e7c505f34e8717acb8ce8bcd907c5f4.zip | |
Add "tiny ..." trigger
Diffstat (limited to '')
| -rw-r--r-- | src/strings.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
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 @@ | |||
| 6 | (:export | 6 | (:export |
| 7 | :ends-with | 7 | :ends-with |
| 8 | :escape-xml | 8 | :escape-xml |
| 9 | :is-tg-whitespace | ||
| 9 | :is-tg-whitespace-str | 10 | :is-tg-whitespace-str |
| 10 | :lisp->camel-case | 11 | :lisp->camel-case |
| 11 | :lisp->snake-case | 12 | :lisp->snake-case |
| @@ -41,7 +42,7 @@ | |||
| 41 | (string= gc "Zl") ; Separator, line | 42 | (string= gc "Zl") ; Separator, line |
| 42 | (string= gc "Zp") ; Separator, paragraph | 43 | (string= gc "Zp") ; Separator, paragraph |
| 43 | (string= gc "Cc") ; Other, control | 44 | (string= gc "Cc") ; Other, control |
| 44 | (= (char-code ch) #x2800) ; BRAILLE PATTERN BLANK | 45 | (= (char-code ch) #x2800) ; BRAILLE PATTERN BLANK |
| 45 | ))) | 46 | ))) |
| 46 | 47 | ||
| 47 | (defun is-tg-whitespace-str (str) | 48 | (defun is-tg-whitespace-str (str) |