1 files changed, 11 insertions, 1 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"))