From b4c1f66e1631f40d8a7d0f80523470677a91381f Mon Sep 17 00:00:00 2001 From: Uko Kokņevičs Date: Fri, 10 Oct 2025 12:30:46 +0300 Subject: Bunch of changes - Animations - Rewrite of serialization deserialization - Bunch of new TG types --- src/tg-types/keyboard-button-request-users.lisp | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 src/tg-types/keyboard-button-request-users.lisp (limited to 'src/tg-types/keyboard-button-request-users.lisp') diff --git a/src/tg-types/keyboard-button-request-users.lisp b/src/tg-types/keyboard-button-request-users.lisp new file mode 100644 index 0000000..9b20c3d --- /dev/null +++ b/src/tg-types/keyboard-button-request-users.lisp @@ -0,0 +1,24 @@ +;; SPDX-License-Identifier: EUPL-1.2 +;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs +(defpackage :ukkoclot/tg-types/keyboard-button-request-users + (:use :c2cl :ukkoclot/tg-types/macros) + (:export + #:keyboard-button-request-users + #:make-keyboard-button-request-users + #:keyboard-button-request-users-p + #:copy-keyboard-button-request-users + #:keyboard-button-request-users-request-id + #:keyboard-button-request-users-max-quantity + #:keyboard-button-request-users-request-name + #:keyboard-button-request-users-request-username + #:keyboard-button-request-users-request-photo)) +(in-package :ukkoclot/tg-types/keyboard-button-request-users) + +(define-tg-type keyboard-button-request-users + (request-id integer) + ;; TODO: (user-is-bot ternary nil) + ;; TODO: (user-is-premium ternary nil) + (max-quantity integer 1) + (request-name boolean nil) + (request-username boolean nil) + (request-photo boolean nil)) -- cgit v1.2.3