summaryrefslogtreecommitdiff
path: root/src/tg/callback-query.lisp
blob: 984955a6ff93affd4bfc2a79f8467a6596086acc (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
;; SPDX-License-Identifier: EUPL-1.2
;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
(defpackage :ukkoclot/src/tg/callback-query
  (:documentation "CallbackQuery Telegram type")
  (:use :c2cl :ukkoclot/src/tg/type-macros)
  (:use
   :ukkoclot/src/tg/message
   :ukkoclot/src/tg/user)
  (:export
   #:callback-query
   #:make-callback-query
   #:callback-query-p
   #:copy-callback-query
   #: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/src/tg/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))