diff options
| author |  Uko Kokņevičs | 2025-10-09 21:58:43 +0300 |
|---|---|---|
| committer | Uko Kokņevičs | 2025-10-09 21:58:43 +0300 |
| commit | 4da3ad1f569832845b58c3ce35149633a2bb665c (patch) | |
| tree | 5a09a0de66df7ec2e77f0fc9cc68ccbabc190934 /src/tg-types/inline-keyboard-markup.lisp | |
| download | ukkoclot-4da3ad1f569832845b58c3ce35149633a2bb665c.tar.gz ukkoclot-4da3ad1f569832845b58c3ce35149633a2bb665c.tar.xz ukkoclot-4da3ad1f569832845b58c3ce35149633a2bb665c.zip | |
Initial commit
Diffstat (limited to 'src/tg-types/inline-keyboard-markup.lisp')
| -rw-r--r-- | src/tg-types/inline-keyboard-markup.lisp | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/src/tg-types/inline-keyboard-markup.lisp b/src/tg-types/inline-keyboard-markup.lisp new file mode 100644 index 0000000..1f17f6c --- /dev/null +++ b/src/tg-types/inline-keyboard-markup.lisp | |||
| @@ -0,0 +1,17 @@ | |||
| 1 | ;; SPDX-License-Identifier: EUPL-1.2 | ||
| 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> | ||
| 3 | (defpackage :ukkoclot/tg-types/inline-keyboard-markup | ||
| 4 | (:use :c2cl :ukkoclot/tg-types/inline-keyboard-button :ukkoclot/tg-types/macros) | ||
| 5 | (:export | ||
| 6 | inline-keyboard-markup | ||
| 7 | make-inline-keyboard-markup | ||
| 8 | inline-keyboard-markup-p | ||
| 9 | copy-inline-keyboard-markup | ||
| 10 | inline-keyboard-markup-inline-keyboard | ||
| 11 | |||
| 12 | hash->inline-keyboard-markup | ||
| 13 | parse-inline-keyboard-markup-array)) | ||
| 14 | (in-package :ukkoclot/tg-types/inline-keyboard-markup) | ||
| 15 | |||
| 16 | (define-tg-type inline-keyboard-markup | ||
| 17 | (inline-keyboard (array (array inline-keyboard-button)))) | ||