diff options
| author | 2025-10-13 00:05:43 +0300 | |
|---|---|---|
| committer | 2025-10-13 00:05:43 +0300 | |
| commit | 5a941f218b918ca3b301d661942f0911c5153a12 (patch) | |
| tree | 2846be6d3428342d1a1f9f1cd7bc5058a4d4fe1a /src/tg/callback-query.lisp | |
| parent | Some more TG types (diff) | |
| download | ukkoclot-5a941f218b918ca3b301d661942f0911c5153a12.tar.gz ukkoclot-5a941f218b918ca3b301d661942f0911c5153a12.tar.xz ukkoclot-5a941f218b918ca3b301d661942f0911c5153a12.zip | |
Rename tg-types to just tg
Diffstat (limited to 'src/tg/callback-query.lisp')
| -rw-r--r-- | src/tg/callback-query.lisp | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/src/tg/callback-query.lisp b/src/tg/callback-query.lisp new file mode 100644 index 0000000..6b89755 --- /dev/null +++ b/src/tg/callback-query.lisp | |||
| @@ -0,0 +1,29 @@ | |||
| 1 | ;; SPDX-License-Identifier: EUPL-1.2 | ||
| 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> | ||
| 3 | (defpackage :ukkoclot/tg/callback-query | ||
| 4 | (:use :c2cl :ukkoclot/tg/macros) | ||
| 5 | (:use | ||
| 6 | :ukkoclot/tg/message | ||
| 7 | :ukkoclot/tg/user) | ||
| 8 | (:export | ||
| 9 | #:callback-query | ||
| 10 | #:make-callback-query | ||
| 11 | #:callback-query-p | ||
| 12 | #:copy-callback-query | ||
| 13 | #:callback-query-id | ||
| 14 | #:callback-query-from | ||
| 15 | #:callback-query-message | ||
| 16 | #:callback-query-inline-message-id | ||
| 17 | #:callback-query-chat-instance | ||
| 18 | #:callback-query-data | ||
| 19 | #:callback-query-game-short-name)) | ||
| 20 | (in-package :ukkoclot/tg/callback-query) | ||
| 21 | |||
| 22 | (define-tg-type callback-query | ||
| 23 | (id string) | ||
| 24 | (from user) | ||
| 25 | (message (or message null) nil) | ||
| 26 | (inline-message-id (or string null) nil) | ||
| 27 | (chat-instance string) | ||
| 28 | (data (or string null) nil) | ||
| 29 | (game-short-name (or string null) nil)) | ||