blob: a0c16ca2269bfd37b6c6ff0a97c70d0ffbd19b33 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
;; SPDX-License-Identifier: EUPL-1.2
;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
(defpackage :ukkoclot/tg/reply-keyboard-markup
(:use :c2cl :ukkoclot/tg/keyboard-button :ukkoclot/tg/type-macros)
(:export
#:reply-keyboard-markup
#:make-reply-keyboard-markup
#:reply-keyboard-markup-p
#:copy-reply-keyboard-markup
#:reply-keyboard-markup-keyboard
#:reply-keyboard-markup-is-persistent
#:reply-keyboard-markup-resize-keyboard
#:reply-keyboard-markup-one-time-keyboard
#:reply-keyboard-markup-input-field-placeholder
#:reply-keyboard-markup-selective))
(in-package :ukkoclot/tg/reply-keyboard-markup)
(define-tg-type reply-keyboard-markup
(keyboard (array (array keyboard-button)))
(is-persistent boolean nil)
(resize-keyboard boolean nil)
(one-time-keyboard boolean nil)
(input-field-placeholder (or string null) nil)
(selective boolean nil))
|
