summaryrefslogtreecommitdiff
path: root/src/tg/animation.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/tg/animation.lisp')
-rw-r--r--src/tg/animation.lisp30
1 files changed, 30 insertions, 0 deletions
diff --git a/src/tg/animation.lisp b/src/tg/animation.lisp
new file mode 100644
index 0000000..d17db94
--- /dev/null
+++ b/src/tg/animation.lisp
@@ -0,0 +1,30 @@
1;; SPDX-License-Identifier: EUPL-1.2
2;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
3(defpackage :ukkoclot/tg/animation
4 (:use :c2cl :ukkoclot/tg/macros :ukkoclot/tg/photo-size)
5 (:export
6 #:animation
7 #:make-animation
8 #:animation-p
9 #:copy-animation
10 #:animation-file-id
11 #:animation-file-unique-id
12 #:animation-width
13 #:animation-height
14 #:animation-duration
15 #:animation-thumbnail
16 #:animation-file-name
17 #:animation-mime-type
18 #:animation-file-size))
19(in-package :ukkoclot/tg/animation)
20
21(define-tg-type animation
22 (file-id string)
23 (file-unique-id string)
24 (width integer)
25 (height integer)
26 (duration integer)
27 (thumbnail (or photo-size null) nil)
28 (file-name (or string null) nil)
29 (mime-type (or string null) nil)
30 (file-size (or integer null) nil))