diff options
| author |  Uko Kokņevičs | 2025-10-12 22:19:41 +0300 |
|---|---|---|
| committer | Uko Kokņevičs | 2025-10-12 22:19:41 +0300 |
| commit | 116c700741c7d43b68a926ac8a4acc2672d66e26 (patch) | |
| tree | 920f939329a0b7f359bb730119eae851674dc765 /src/main.lisp | |
| parent | Introduce enums and a pretty parse-mode type (diff) | |
| download | ukkoclot-116c700741c7d43b68a926ac8a4acc2672d66e26.tar.gz ukkoclot-116c700741c7d43b68a926ac8a4acc2672d66e26.tar.xz ukkoclot-116c700741c7d43b68a926ac8a4acc2672d66e26.zip | |
Introduce chat-type enum
Diffstat (limited to 'src/main.lisp')
| -rw-r--r-- | src/main.lisp | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/src/main.lisp b/src/main.lisp index 4b05ee2..4db0425 100644 --- a/src/main.lisp +++ b/src/main.lisp | |||
| @@ -102,7 +102,6 @@ | |||
| 102 | (on-new-member bot msg new-chat-member))))) | 102 | (on-new-member bot msg new-chat-member))))) |
| 103 | 103 | ||
| 104 | (defun on-new-member (bot msg new-member) | 104 | (defun on-new-member (bot msg new-member) |
| 105 | ;; TODO: Rule 10 have fun and enjoy your time on user entry | ||
| 106 | (if (= (user-id new-member) (bot-id bot)) | 105 | (if (= (user-id new-member) (bot-id bot)) |
| 107 | (reply-animation bot msg #P"blob/rule-11.mp4" | 106 | (reply-animation bot msg #P"blob/rule-11.mp4" |
| 108 | :allow-sending-without-reply t) | 107 | :allow-sending-without-reply t) |