1 files changed, 32 insertions, 0 deletions

diff --git a/src/tg/keyboard-button.lisp b/src/tg/keyboard-button.lisp
new file mode 100644
index 0000000..79c87d6
--- /dev/null
+++ b/src/tg/keyboard-button.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
+  (:use
+   :c2cl
+   :ukkoclot/tg/keyboard-button-poll-type
+   :ukkoclot/tg/keyboard-button-request-chat
+   :ukkoclot/tg/keyboard-button-request-users
+   :ukkoclot/tg/macros
+   :ukkoclot/tg/web-app-info)
+  (:export
+   #:keyboard-button
+   #:make-keyboard-button
+   #:keyboard-button-p
+   #:copy-keyboard-button
+   #:keyboard-button-text
+   #:keyboard-button-request-users
+   #:keyboard-button-request-chat
+   #:keyboard-button-request-contact
+   #:keyboard-button-request-location
+   #:keyboard-button-request-poll
+   #:keyboard-button-web-app))
+(in-package :ukkoclot/tg/keyboard-button)
+
+(define-tg-type keyboard-button
+  (text string)
+  (request-users (or keyboard-button-request-users null) nil)
+  (request-chat (or keyboard-button-request-chat null) nil)
+  (request-contact boolean nil)
+  (request-location boolean nil)
+  (request-poll (or keyboard-button-poll-type null) nil)
+  (web-app (or web-app-info null) nil))