summaryrefslogtreecommitdiff
path: root/src/tg/link-preview-options.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/tg/link-preview-options.lisp')
-rw-r--r--src/tg/link-preview-options.lisp22
1 files changed, 22 insertions, 0 deletions
diff --git a/src/tg/link-preview-options.lisp b/src/tg/link-preview-options.lisp
new file mode 100644
index 0000000..7ed4859
--- /dev/null
+++ b/src/tg/link-preview-options.lisp
@@ -0,0 +1,22 @@
1;; SPDX-License-Identifier: EUPL-1.2
2;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
3(defpackage :ukkoclot/tg/link-preview-options
4 (:use :c2cl :ukkoclot/tg/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(in-package :ukkoclot/tg/link-preview-options)
16
17(define-tg-type link-preview-options
18 (is-disabled boolean nil)
19 (url (or string null) nil)
20 (prefer-small-media boolean nil)
21 (prefer-large-media boolean nil)
22 (show-above-text boolean nil))