summaryrefslogtreecommitdiff
path: root/src/tg-types/inline-keyboard-button.lisp
diff options
context:
space:
mode:
authorGravatar Uko Kokņevičs2025-10-10 12:30:46 +0300
committerGravatar Uko Kokņevičs2025-10-10 12:30:46 +0300
commitb4c1f66e1631f40d8a7d0f80523470677a91381f (patch)
treeef3aa478cfca05dc27e0777f9c42813d4268e54a /src/tg-types/inline-keyboard-button.lisp
parentAdd a helper reply-message function (diff)
downloadukkoclot-b4c1f66e1631f40d8a7d0f80523470677a91381f.tar.gz
ukkoclot-b4c1f66e1631f40d8a7d0f80523470677a91381f.tar.xz
ukkoclot-b4c1f66e1631f40d8a7d0f80523470677a91381f.zip
Bunch of changes
- Animations - Rewrite of serialization deserialization - Bunch of new TG types
Diffstat (limited to 'src/tg-types/inline-keyboard-button.lisp')
-rw-r--r--src/tg-types/inline-keyboard-button.lisp28
1 files changed, 13 insertions, 15 deletions
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 @@
1;; SPDX-License-Identifier: EUPL-1.2 1;; SPDX-License-Identifier: EUPL-1.2
2;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> 2;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
3(defpackage :ukkoclot/tg-types/inline-keyboard-button 3(defpackage :ukkoclot/tg-types/inline-keyboard-button
4 (:use :c2cl :ukkoclot/tg-types/macros) 4 (:use :c2cl :ukkoclot/tg-types/macros :ukkoclot/tg-types/web-app-info)
5 (:export 5 (:export
6 inline-keyboard-button 6 #:inline-keyboard-button
7 make-inline-keyboard-button 7 #:make-inline-keyboard-button
8 inline-keyboard-button-p 8 #:inline-keyboard-button-p
9 copy-inline-keyboard-button 9 #:copy-inline-keyboard-button
10 inline-keyboard-button-text 10 #:inline-keyboard-button-text
11 inline-keyboard-button-url 11 #:inline-keyboard-button-url
12 inline-keyboard-button-callback-data 12 #:inline-keyboard-button-callback-data
13 inline-keyboard-button-switch-inline-query 13 #:inline-keyboard-button-web-app
14 inline-keyboard-button-switch-inline-query-current-chat 14 #:inline-keyboard-button-switch-inline-query
15 inline-keyboard-button-pay 15 #:inline-keyboard-button-switch-inline-query-current-chat
16 16 #:inline-keyboard-button-pay))
17 hash->inline-keyboard-button
18 parse-inline-keyboard-button-array))
19(in-package :ukkoclot/tg-types/inline-keyboard-button) 17(in-package :ukkoclot/tg-types/inline-keyboard-button)
20 18
21(define-tg-type inline-keyboard-button 19(define-tg-type inline-keyboard-button
22 (text string) 20 (text string)
23 (url (or string null) nil) 21 (url (or string null) nil)
24 (callback-data string) 22 (callback-data string)
25 ;; TODO: (web-app (or web-app-info null) nil) 23 (web-app (or web-app-info null) nil)
26 ;; TODO: (login-url (or login-url null) nil) 24 ;; TODO: (login-url (or login-url null) nil)
27 (switch-inline-query (or string null) nil) 25 (switch-inline-query (or string null) nil)
28 (switch-inline-query-current-chat (or string null) nil) 26 (switch-inline-query-current-chat (or string null) nil)