From 4da3ad1f569832845b58c3ce35149633a2bb665c Mon Sep 17 00:00:00 2001
From: Uko Kokņevičs
Date: Thu, 9 Oct 2025 21:58:43 +0300
Subject: Initial commit

---
 src/tg-types/chat.lisp | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 src/tg-types/chat.lisp

(limited to 'src/tg-types/chat.lisp')

diff --git a/src/tg-types/chat.lisp b/src/tg-types/chat.lisp
new file mode 100644
index 0000000..4010f7b
--- /dev/null
+++ b/src/tg-types/chat.lisp
@@ -0,0 +1,31 @@
+;; SPDX-License-Identifier: EUPL-1.2
+;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
+(defpackage :ukkoclot/tg-types/chat
+  (:use :c2cl :ukkoclot/tg-types/macros :ukkoclot/tg-types/parsers)
+  (:export
+   chat
+   make-chat
+   chat-p
+   copy-chat
+   chat-id
+   chat-type
+   chat-title
+   chat-username
+   chat-first-name
+   chat-last-name
+   chat-is-forum
+   chat-is-direct-messages
+
+   hash->chat
+   parse-chat-array))
+(in-package :ukkoclot/tg-types/chat)
+
+(define-tg-type chat
+  (id integer)
+  (type keyword nil :parser tg-string->keyword)
+  (title (or string null) nil)
+  (username (or string null) nil)
+  (first-name (or string null) nil)
+  (last-name (or string null) nil)
+  (is-forum boolean nil)
+  (is-direct-messages boolean nil))
-- 
cgit v1.2.3