blob: 82b9151526bd6ae4f35d53f4c8eb540450d8d5b6 (
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/keyboard-button-request-users
(:use :c2cl :ukkoclot/tg/macros)
(:export
#:keyboard-button-request-users
#:make-keyboard-button-request-users
#:keyboard-button-request-users-p
#:copy-keyboard-button-request-users
#:keyboard-button-request-users-request-id
#:keyboard-button-request-users-max-quantity
#:keyboard-button-request-users-request-name
#:keyboard-button-request-users-request-username
#:keyboard-button-request-users-request-photo))
(in-package :ukkoclot/tg/keyboard-button-request-users)
(define-tg-type keyboard-button-request-users
(request-id integer)
;; TODO: (user-is-bot ternary nil)
;; TODO: (user-is-premium ternary nil)
(max-quantity integer 1)
(request-name boolean nil)
(request-username boolean nil)
(request-photo boolean nil))
|
