diff options
Diffstat (limited to 'src/tg/message-entity-type.lisp')
| -rw-r--r-- | src/tg/message-entity-type.lisp | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/src/tg/message-entity-type.lisp b/src/tg/message-entity-type.lisp new file mode 100644 index 0000000..f904509 --- /dev/null +++ b/src/tg/message-entity-type.lisp | |||
| @@ -0,0 +1,47 @@ | |||
| 1 | ;; SPDX-License-Identifier: EUPL-1.2 | ||
| 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> | ||
| 3 | (defpackage :ukkoclot/tg/message-entity-type | ||
| 4 | (:use :c2cl :ukkoclot/enum) | ||
| 5 | (:export | ||
| 6 | :message-entity-type | ||
| 7 | :mention | ||
| 8 | :hashtag | ||
| 9 | :cashtag | ||
| 10 | :bot-command | ||
| 11 | :url-entity | ||
| 12 | |||
| 13 | :phone-number | ||
| 14 | :bold | ||
| 15 | :italic | ||
| 16 | :underline | ||
| 17 | :strikethrough | ||
| 18 | :spoiler | ||
| 19 | :blockquote | ||
| 20 | :expandable-blockquote | ||
| 21 | :code | ||
| 22 | :pre | ||
| 23 | :text-link | ||
| 24 | :text-mention | ||
| 25 | :custom-emoji)) | ||
| 26 | (in-package :ukkoclot/tg/message-entity-type) | ||
| 27 | |||
| 28 | (define-enum message-entity-type | ||
| 29 | (mention "mention") | ||
| 30 | (hashtag "hashtag") | ||
| 31 | (cashtag "cashtag") | ||
| 32 | (bot-command "bot_command") | ||
| 33 | (url-entity "url") | ||
| 34 | (email "email") | ||
| 35 | (phone-number "phone_number") | ||
| 36 | (bold "bold") | ||
| 37 | (italic "italic") | ||
| 38 | (underline "underline") | ||
| 39 | (strikethrough "strikethrough") | ||
| 40 | (spoiler "spoiler") | ||
| 41 | (blockquote "blockquote") | ||
| 42 | (expandable-blockquote "expandable_blockquote") | ||
| 43 | (code "code") | ||
| 44 | (pre "pre") | ||
| 45 | (text-link "text_link") | ||
| 46 | (text-mention "text_mention") | ||
| 47 | (custom-emoji "custom_emoji")) | ||