summaryrefslogtreecommitdiff
path: root/src/tg-types/inline-keyboard-button.lisp
diff options
context:
space:
mode:
authorGravatar Uko Kokņevičs2025-10-13 00:05:43 +0300
committerGravatar Uko Kokņevičs2025-10-13 00:05:43 +0300
commit5a941f218b918ca3b301d661942f0911c5153a12 (patch)
tree2846be6d3428342d1a1f9f1cd7bc5058a4d4fe1a /src/tg-types/inline-keyboard-button.lisp
parentSome more TG types (diff)
downloadukkoclot-5a941f218b918ca3b301d661942f0911c5153a12.tar.gz
ukkoclot-5a941f218b918ca3b301d661942f0911c5153a12.tar.xz
ukkoclot-5a941f218b918ca3b301d661942f0911c5153a12.zip
Rename tg-types to just tg
Diffstat (limited to 'src/tg-types/inline-keyboard-button.lisp')
-rw-r--r--src/tg-types/inline-keyboard-button.lisp30
1 files changed, 0 insertions, 30 deletions
diff --git a/src/tg-types/inline-keyboard-button.lisp b/src/tg-types/inline-keyboard-button.lisp
deleted file mode 100644
index e3b3533..0000000
--- a/src/tg-types/inline-keyboard-button.lisp
+++ /dev/null
@@ -1,30 +0,0 @@
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-button
4 (:use :c2cl :ukkoclot/tg-types/macros :ukkoclot/tg-types/web-app-info)
5 (:export
6 #:inline-keyboard-button
7 #:make-inline-keyboard-button
8 #:inline-keyboard-button-p
9 #:copy-inline-keyboard-button
10 #:inline-keyboard-button-text
11 #:inline-keyboard-button-url
12 #:inline-keyboard-button-callback-data
13 #:inline-keyboard-button-web-app
14 #:inline-keyboard-button-switch-inline-query
15 #:inline-keyboard-button-switch-inline-query-current-chat
16 #:inline-keyboard-button-pay))
17(in-package :ukkoclot/tg-types/inline-keyboard-button)
18
19(define-tg-type inline-keyboard-button
20 (text string)
21 (url (or string null) nil)
22 (callback-data string)
23 (web-app (or web-app-info null) nil)
24 ;; TODO: (login-url (or login-url null) nil)
25 (switch-inline-query (or string null) nil)
26 (switch-inline-query-current-chat (or string null) nil)
27 ;; TODO: (switch-inline-query-chosen-chat (or switch-inline-query-chosen-chat null) nil)
28 ;; TODO: (copy-text (or copy-text-button null) nil)
29 ;; TODO: (callback-game (or callback-game null) nil)
30 (pay boolean nil))