From 4da3ad1f569832845b58c3ce35149633a2bb665c Mon Sep 17 00:00:00 2001
From: Uko Kokņevičs
Date: Thu, 9 Oct 2025 21:58:43 +0300
Subject: Initial commit

---
 src/tg-types/callback-query.lisp | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 src/tg-types/callback-query.lisp

(limited to 'src/tg-types/callback-query.lisp')

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 @@
+;; SPDX-License-Identifier: EUPL-1.2
+;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
+(defpackage :ukkoclot/tg-types/callback-query
+  (:use :c2cl :ukkoclot/tg-types/macros)
+  (:use
+   :ukkoclot/tg-types/message
+   :ukkoclot/tg-types/user)
+  (:export
+   callback-query callback-query-p
+
+   hash->callback-query make-callback-query parse-callback-query-array
+
+   callback-query-id callback-query-from callback-query-message callback-query-inline-message-id
+   callback-query-chat-instance callback-query-data callback-query-game-short-name))
+(in-package :ukkoclot/tg-types/callback-query)
+
+(define-tg-type callback-query
+  (id string)
+  (from user)
+  (message (or message null) nil)
+  (inline-message-id (or string null) nil)
+  (chat-instance string)
+  (data (or string null) nil)
+  (game-short-name (or string null) nil))
-- 
cgit v1.2.3