1 files changed, 32 insertions, 0 deletions

diff --git a/src/tg/keyboard-button-request-chat.lisp b/src/tg/keyboard-button-request-chat.lisp
new file mode 100644
index 0000000..07f0d27
--- /dev/null
+++ b/src/tg/keyboard-button-request-chat.lisp
@@ -0,0 +1,32 @@
+;; SPDX-License-Identifier: EUPL-1.2
+;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
+(defpackage :ukkoclot/tg/keyboard-button-request-chat
+  (:use :c2cl :ukkoclot/tg/chat-administrator-rights :ukkoclot/tg/macros)
+  (:export
+   #:keyboard-button-request-chat
+   #:make-keyboard-button-request-chat
+   #:keyboard-button-request-chat-p
+   #:copy-keyboard-button-request-chat
+   #:keyboard-button-request-chat-request-id
+   #:keyboard-button-request-chat-chat-is-channel
+   #:keyboard-button-request-chat-chat-is-created
+   #:keyboard-button-request-chat-user-administrator-rights
+   #:keyboard-button-request-chat-bot-administrator-rights
+   #:keyboard-button-request-chat-bot-is-member
+   #:keyboard-button-request-chat-request-title
+   #:keyboard-button-request-chat-request-username
+   #:keyboard-button-request-chat-request-photo))
+(in-package :ukkoclot/tg/keyboard-button-request-chat)
+
+(define-tg-type keyboard-button-request-chat
+  (request-id integer)
+  (chat-is-channel boolean)
+  ;; TODO: (chat-is-forum ternary nil)
+  ;; TODO: (chat-has-username ternary nil)
+  (chat-is-created boolean nil)
+  (user-administrator-rights (or chat-administrator-rights null) nil)
+  (bot-administrator-rights (or chat-administrator-rights null) nil)
+  (bot-is-member boolean nil)
+  (request-title boolean nil)
+  (request-username boolean nil)
+  (request-photo boolean nil))