From 116c700741c7d43b68a926ac8a4acc2672d66e26 Mon Sep 17 00:00:00 2001 From: Uko Kokņevičs Date: Sun, 12 Oct 2025 22:19:41 +0300 Subject: Introduce chat-type enum --- src/tg-types/chat-type.lisp | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 src/tg-types/chat-type.lisp (limited to 'src/tg-types/chat-type.lisp') diff --git a/src/tg-types/chat-type.lisp b/src/tg-types/chat-type.lisp new file mode 100644 index 0000000..dc9147a --- /dev/null +++ b/src/tg-types/chat-type.lisp @@ -0,0 +1,12 @@ +;; SPDX-License-Identifier: EUPL-1.2 +;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs +(defpackage :ukkoclot/tg-types/chat-type + (:use :c2cl :ukkoclot/enum) + (:export :channel :chat-type :group :private :supergroup)) +(in-package :ukkoclot/tg-types/chat-type) + +(define-enum chat-type + (private "private") + (group "group") + (supergroup "supergroup") + (channel "channel")) -- cgit v1.2.3