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/inline-keyboard-button.lisp | 28 +++++++++++++---------------
 1 file changed, 13 insertions(+), 15 deletions(-)

(limited to 'src/tg-types/inline-keyboard-button.lisp')

diff --git a/src/tg-types/inline-keyboard-button.lisp b/src/tg-types/inline-keyboard-button.lisp
index 3b76ade..e3b3533 100644
--- a/src/tg-types/inline-keyboard-button.lisp
+++ b/src/tg-types/inline-keyboard-button.lisp
@@ -1,28 +1,26 @@
 ;; SPDX-License-Identifier: EUPL-1.2
 ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
 (defpackage :ukkoclot/tg-types/inline-keyboard-button
-  (:use :c2cl :ukkoclot/tg-types/macros)
+  (:use :c2cl :ukkoclot/tg-types/macros :ukkoclot/tg-types/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-switch-inline-query
-   inline-keyboard-button-switch-inline-query-current-chat
-   inline-keyboard-button-pay
-
-   hash->inline-keyboard-button
-   parse-inline-keyboard-button-array))
+   #: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-types/inline-keyboard-button)
 
 (define-tg-type inline-keyboard-button
   (text string)
   (url (or string null) nil)
   (callback-data string)
-  ;; TODO: (web-app (or web-app-info null) nil)
+  (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)
-- 
cgit v1.2.3