diff options
Diffstat (limited to 'src/tg-types/callback-query.lisp')
| -rw-r--r-- | src/tg-types/callback-query.lisp | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/src/tg-types/callback-query.lisp b/src/tg-types/callback-query.lisp new file mode 100644 index 0000000..bb1b4e7 --- /dev/null +++ b/src/tg-types/callback-query.lisp | |||
| @@ -0,0 +1,24 @@ | |||
| 1 | ;; SPDX-License-Identifier: EUPL-1.2 | ||
| 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> | ||
| 3 | (defpackage :ukkoclot/tg-types/callback-query | ||
| 4 | (:use :c2cl :ukkoclot/tg-types/macros) | ||
| 5 | (:use | ||
| 6 | :ukkoclot/tg-types/message | ||
| 7 | :ukkoclot/tg-types/user) | ||
| 8 | (:export | ||
| 9 | callback-query callback-query-p | ||
| 10 | |||
| 11 | hash->callback-query make-callback-query parse-callback-query-array | ||
| 12 | |||
| 13 | callback-query-id callback-query-from callback-query-message callback-query-inline-message-id | ||
| 14 | callback-query-chat-instance callback-query-data callback-query-game-short-name)) | ||
| 15 | (in-package :ukkoclot/tg-types/callback-query) | ||
| 16 | |||
| 17 | (define-tg-type callback-query | ||
| 18 | (id string) | ||
| 19 | (from user) | ||
| 20 | (message (or message null) nil) | ||
| 21 | (inline-message-id (or string null) nil) | ||
| 22 | (chat-instance string) | ||
| 23 | (data (or string null) nil) | ||
| 24 | (game-short-name (or string null) nil)) | ||