;; SPDX-License-Identifier: EUPL-1.2
;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
(defpackage :ukkoclot/src/tg/keyboard-button-request-chat
  (:use :c2cl :ukkoclot/src/tg/chat-administrator-rights :ukkoclot/src/tg/type-macros)
  (:export
   #:keyboard-button-request-chat
   #:make-keyboard-button-request-chat
   #:keyboard-button-request-chat-p
   #:copy-keyboard-button-request-chat
   #:keyboard-button-request-chat-request-id
   #:keyboard-button-request-chat-chat-is-channel
   #:keyboard-button-request-chat-chat-is-created
   #:keyboard-button-request-chat-user-administrator-rights
   #:keyboard-button-request-chat-bot-administrator-rights
   #:keyboard-button-request-chat-bot-is-member
   #:keyboard-button-request-chat-request-title
   #:keyboard-button-request-chat-request-username
   #:keyboard-button-request-chat-request-photo))
(in-package :ukkoclot/src/tg/keyboard-button-request-chat)

(define-tg-type keyboard-button-request-chat
  (request-id integer)
  (chat-is-channel boolean)
  ;; TODO: (chat-is-forum ternary nil)
  ;; TODO: (chat-has-username ternary nil)
  (chat-is-created boolean nil)
  (user-administrator-rights (or chat-administrator-rights null) nil)
  (bot-administrator-rights (or chat-administrator-rights null) nil)
  (bot-is-member boolean nil)
  (request-title boolean nil)
  (request-username boolean nil)
  (request-photo boolean nil))