Rename tg-types to just tg

1 files changed, 24 insertions, 0 deletions

diff --git a/src/tg/keyboard-button-request-users.lisp b/src/tg/keyboard-button-request-users.lisp
new file mode 100644
index 0000000..82b9151
--- /dev/null
+++ b/src/tg/keyboard-button-request-users.lisp
@@ -0,0 +1,24 @@
+;; SPDX-License-Identifier: EUPL-1.2
+;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
+(defpackage :ukkoclot/tg/keyboard-button-request-users
+  (:use :c2cl :ukkoclot/tg/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/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))