Rename tg-types to just tg

1 files changed, 30 insertions, 0 deletions

diff --git a/src/tg/inline-keyboard-button.lisp b/src/tg/inline-keyboard-button.lisp
new file mode 100644
index 0000000..e403f2a
--- /dev/null
+++ b/src/tg/inline-keyboard-button.lisp
@@ -0,0 +1,30 @@
+;; SPDX-License-Identifier: EUPL-1.2
+;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
+(defpackage :ukkoclot/tg/inline-keyboard-button
+  (:use :c2cl :ukkoclot/tg/macros :ukkoclot/tg/web-app-info)
+  (:export
+   #:inline-keyboard-button
+   #:make-inline-keyboard-button
+   #:inline-keyboard-button-p
+   #:copy-inline-keyboard-button
+   #:inline-keyboard-button-text
+   #:inline-keyboard-button-url
+   #:inline-keyboard-button-callback-data
+   #:inline-keyboard-button-web-app
+   #:inline-keyboard-button-switch-inline-query
+   #:inline-keyboard-button-switch-inline-query-current-chat
+   #:inline-keyboard-button-pay))
+(in-package :ukkoclot/tg/inline-keyboard-button)
+
+(define-tg-type inline-keyboard-button
+  (text string)
+  (url (or string null) nil)
+  (callback-data string)
+  (web-app (or web-app-info null) nil)
+  ;; TODO: (login-url (or login-url null) nil)
+  (switch-inline-query (or string null) nil)
+  (switch-inline-query-current-chat (or string null) nil)
+  ;; TODO: (switch-inline-query-chosen-chat (or switch-inline-query-chosen-chat null) nil)
+  ;; TODO: (copy-text (or copy-text-button null) nil)
+  ;; TODO: (callback-game (or callback-game null) nil)
+  (pay boolean nil))