Add Animation and PhotoSize types

1 files changed, 30 insertions, 0 deletions

diff --git a/src/tg-types/animation.lisp b/src/tg-types/animation.lisp
new file mode 100644
index 0000000..421dcc7
--- /dev/null
+++ b/src/tg-types/animation.lisp
@@ -0,0 +1,30 @@
+;; SPDX-License-Identifier: EUPL-1.2
+;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
+(defpackage :ukkoclot/tg-types/animation
+  (:use :c2cl :ukkoclot/tg-types/macros :ukkoclot/tg-types/photo-size)
+  (:export
+   #:animation
+   #:make-animation
+   #:animation-p
+   #:copy-animation
+   #:animation-file-id
+   #:animation-file-unique-id
+   #:animation-width
+   #:animation-height
+   #:animation-duration
+   #:animation-thumbnail
+   #:animation-file-name
+   #:animation-mime-type
+   #:animation-file-size))
+(in-package :ukkoclot/tg-types/animation)
+
+(define-tg-type animation
+  (file-id string)
+  (file-unique-id string)
+  (width integer)
+  (height integer)
+  (duration integer)
+  (thumbnail (or photo-size null) nil)
+  (file-name (or string null) nil)
+  (mime-type (or string null) nil)
+  (file-size (or integer null) nil))