summaryrefslogtreecommitdiff
path: root/src/tg-types/link-preview-options.lisp
diff options
context:
space:
mode:
authorGravatar Uko Kokņevičs2025-10-09 21:58:43 +0300
committerGravatar Uko Kokņevičs2025-10-09 21:58:43 +0300
commit4da3ad1f569832845b58c3ce35149633a2bb665c (patch)
tree5a09a0de66df7ec2e77f0fc9cc68ccbabc190934 /src/tg-types/link-preview-options.lisp
downloadukkoclot-4da3ad1f569832845b58c3ce35149633a2bb665c.tar.gz
ukkoclot-4da3ad1f569832845b58c3ce35149633a2bb665c.tar.xz
ukkoclot-4da3ad1f569832845b58c3ce35149633a2bb665c.zip
Initial commit
Diffstat (limited to 'src/tg-types/link-preview-options.lisp')
-rw-r--r--src/tg-types/link-preview-options.lisp25
1 files changed, 25 insertions, 0 deletions
diff --git a/src/tg-types/link-preview-options.lisp b/src/tg-types/link-preview-options.lisp
new file mode 100644
index 0000000..66b7d83
--- /dev/null
+++ b/src/tg-types/link-preview-options.lisp
@@ -0,0 +1,25 @@
1;; SPDX-License-Identifier: EUPL-1.2
2;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
3(defpackage :ukkoclot/tg-types/link-preview-options
4 (:use :c2cl :ukkoclot/tg-types/macros)
5 (:export
6 link-preview-options
7 make-link-preview-options
8 link-preview-options-p
9 copy-link-preview-options
10 link-preview-options-is-disabled
11 link-preview-options-url
12 link-preview-options-prefer-small-media
13 link-preview-options-prefer-large-media
14 link-preview-options-show-above-text
15
16 hash->link-preview-options
17 parse-link-preview-options-array))
18(in-package :ukkoclot/tg-types/link-preview-options)
19
20(define-tg-type link-preview-options
21 (is-disabled boolean nil)
22 (url (or string null) nil)
23 (prefer-small-media boolean nil)
24 (prefer-large-media boolean nil)
25 (show-above-text boolean nil))