Add "tiny ..." trigger

2 files changed, 13 insertions, 2 deletions

diff --git a/src/main.lisp b/src/main.lisp
index 9dfdc85..2e01411 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -9,7 +9,7 @@
   (:import-from :ukkoclot/db :with-db)
   (:import-from :ukkoclot/serializing :fixup-value)
   (:import-from :ukkoclot/state :make-bot :bot-config :bot-power-on)
-  (:import-from :ukkoclot/strings :escape-xml :is-tg-whitespace-str :starts-with :starts-with-ignore-case)
+  (:import-from :ukkoclot/strings :escape-xml :is-tg-whitespace :is-tg-whitespace-str :starts-with :starts-with-ignore-case)
   (:local-nicknames
    (:jzon :com.inuoe.jzon))
   (:export :main))
@@ -200,6 +200,16 @@
              (unless (is-tg-whitespace-str the-text)
                (reply-message bot msg the-text))))
 
+          ((starts-with-ignore-case text "tiny ")
+           (let ((the-text (subseq text 5)))
+             (unless (is-tg-whitespace-str the-text)
+               (reply-message bot msg
+                              (map 'string #'(lambda (ch)
+                                               (if (is-tg-whitespace ch)
+                                                   ch
+                                                   #\.))
+                                   the-text)))))
+
           ((string-equal text "uwu")
            (reply-message bot msg "OwO"))
 
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)