summaryrefslogtreecommitdiff
path: root/src/tg/animation.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/animation.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/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))