summaryrefslogtreecommitdiff
path: root/src/tg-types/callback-query.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/tg-types/callback-query.lisp')
-rw-r--r--src/tg-types/callback-query.lisp24
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))