diff options
| author | 2025-10-10 12:30:46 +0300 | |
|---|---|---|
| committer | 2025-10-10 12:30:46 +0300 | |
| commit | b4c1f66e1631f40d8a7d0f80523470677a91381f (patch) | |
| tree | ef3aa478cfca05dc27e0777f9c42813d4268e54a /src/tg-types/inline-keyboard-button.lisp | |
| parent | Add a helper reply-message function (diff) | |
| download | ukkoclot-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.lisp | 28 |
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) |