Bunch of changes

- Animations
- Rewrite of serialization deserialization
- Bunch of new TG types

1 files changed, 51 insertions, 53 deletions

diff --git a/src/tg-types/message.lisp b/src/tg-types/message.lisp
index fee0734..028379f 100644
--- a/src/tg-types/message.lisp
+++ b/src/tg-types/message.lisp
@@ -7,52 +7,50 @@
    :ukkoclot/tg-types/message-entity
    :ukkoclot/tg-types/user)
   (:export
-   message
-   make-message
-   message-p
-   copy-message
-   message-message-id
-   message-message-thread-id
-   message-from
-   message-sender-boost-count
-   message-sender-business-bot
-   message-date
-   message-business-connection-id
-   message-chat
-   message-is-topic-message
-   message-is-automatic-forward
-   message-reply-to-message
-   message-reply-to-checklist-task-id
-   message-via-bot
-   message-edit-date
-   message-has-protected-content
-   message-is-from-offline
-   message-is-paid-post
-   message-media-group-id
-   message-author-signature
-   message-paid-star-count
-   message-text
-   message-entities
-   message-effect-id
-   message-caption
-   message-show-caption-above-media
-   message-has-media-spoiler
-   message-new-chat-members
-   message-new-chat-title
-   message-delete-chat-photo
-   message-group-chat-created
-   message-supergroup-chat-created
-   message-channel-chat-created
-   message-migrate-to-chat-id
-   message-migrate-from-chat-id
-   message-pinned-message
-   message-connected-website
+   #:message
+   #:make-message
+   #:message-p
+   #:copy-message
+   #:message-message-id
+   #:message-message-thread-id
+   #:message-from
+   #:message-sender-boost-count
+   #:message-sender-business-bot
+   #:message-date
+   #:message-business-connection-id
+   #:message-chat
+   #:message-is-topic-message
+   #:message-is-automatic-forward
+   #:message-reply-to-message
+   #:message-reply-to-checklist-task-id
+   #:message-via-bot
+   #:message-edit-date
+   #:message-has-protected-content
+   #:message-is-from-offline
+   #:message-is-paid-post
+   #:message-media-group-id
+   #:message-author-signature
+   #:message-paid-star-count
+   #:message-text
+   #:message-entities
+   #:message-effect-id
+   #:message-caption
+   #:message-show-caption-above-media
+   #:message-has-media-spoiler
+   #:message-new-chat-members
+   #:message-new-chat-title
+   #:message-delete-chat-photo
+   #:message-group-chat-created
+   #:message-supergroup-chat-created
+   #:message-channel-chat-created
+   #:message-migrate-to-chat-id
+   #:message-migrate-from-chat-id
+   #:message-pinned-message
+   #:message-connected-website
 
-   hash->message
-   message-id
-   message-chat-id
-   message-thread-id
-   parse-message-array))
+   #:message-chat-id
+   #:message-thread-id
+   #:message-id))
 (in-package :ukkoclot/tg-types/message)
 
 ;; If this is a MaybeInaccessibleMessage date will be 0 if this is inaccessible
@@ -60,22 +58,22 @@
   (message-id integer)
   (message-thread-id (or integer null) nil)
   ;; (direct-messages-topic (or direct-messages-topic null) nil)
-  (from (or user null) nil :parser hash->user)
+  (from (or user null) nil)
   ;; (sender-chat (or chat null) nil)
   (sender-boost-count (or integer null) nil)
-  (sender-business-bot (or user null) nil :parser hash->user)
+  (sender-business-bot (or user null) nil)
   (date integer)
   (business-connection-id (or string null) nil)
-  (chat chat nil :parser hash->chat)
+  (chat chat nil)
   ;; (forward-origin (or message-origin null) nil)
   (is-topic-message boolean nil)
   (is-automatic-forward boolean nil)
-  (reply-to-message (or message null) nil :parser hash->message)
+  (reply-to-message (or message null) nil)
   ;; (external-reply (or external-reply-info null) nil)
   ;; (quote (or text-quote null) nil)
   ;; (reply-to-story (or story null) nil)
   (reply-to-checklist-task-id (or integer null) nil)
-  (via-bot (or user null) nil :parser hash->user)
+  (via-bot (or user null) nil)
   (edit-date (or integer null) nil)
   (has-protected-content boolean nil)
   (is-from-offline boolean nil)
@@ -84,7 +82,7 @@
   (author-signature (or string null) nil)
   (paid-star-count (or string null) nil)
   (text (or string null) nil)
-  (entities (or (array message-entity) null) nil :parser parse-message-entity-array)
+  (entities (or (array message-entity) null) nil)
   ;; (link-preview-options (or link-preview-options null) nil)
   ;; (suggested-post-info (or suggested-post-info null) nil)
   (effect-id (or string null) nil)
@@ -108,7 +106,7 @@
   ;; (poll (or poll null) nil)
   ;; (venue (or venue null) nil)
   ;; (location (or location null) nil)
-  (new-chat-members (or (array user) null) nil :parser parse-user-array)
+  (new-chat-members (or (array user) null) nil)
   ;; (left-chat-member (or user null) nil)
   (new-chat-title (or string null) nil)
   ;; (new-chat-photo (or (array photo-size) null) nil)
@@ -119,7 +117,7 @@
   ;; (message-auto-delete-timer-changed (orp message-auto-delete-timer-changed null) nil)
   (migrate-to-chat-id (or integer null) nil)
   (migrate-from-chat-id (or integer null) nil)
-  (pinned-message (or message null) nil :parser hash->message)
+  (pinned-message (or message null) nil)
   ;; (invoice (or invoice null) nil)
   ;; (successful-payment (or successful-payment null) nil)
   ;; (refunded-payment (or refunded-payment null) nil)