diff options
Diffstat (limited to 'src/tg-types/animation.lisp')
| -rw-r--r-- | src/tg-types/animation.lisp | 30 |
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 @@ | |||
| 1 | ;; SPDX-License-Identifier: EUPL-1.2 | ||
| 2 | ;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com> | ||
| 3 | (defpackage :ukkoclot/tg-types/animation | ||
| 4 | (:use :c2cl :ukkoclot/tg-types/macros :ukkoclot/tg-types/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-types/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)) | ||