;; 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))