From 5a941f218b918ca3b301d661942f0911c5153a12 Mon Sep 17 00:00:00 2001 From: Uko Kokņevičs Date: Mon, 13 Oct 2025 00:05:43 +0300 Subject: Rename tg-types to just tg --- src/tg/message-entity-type.lisp | 47 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 47 insertions(+) create mode 100644 src/tg/message-entity-type.lisp (limited to 'src/tg/message-entity-type.lisp') diff --git a/src/tg/message-entity-type.lisp b/src/tg/message-entity-type.lisp new file mode 100644 index 0000000..f904509 --- /dev/null +++ b/src/tg/message-entity-type.lisp @@ -0,0 +1,47 @@ +;; SPDX-License-Identifier: EUPL-1.2 +;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs +(defpackage :ukkoclot/tg/message-entity-type + (:use :c2cl :ukkoclot/enum) + (:export + :message-entity-type + :mention + :hashtag + :cashtag + :bot-command + :url-entity + :email + :phone-number + :bold + :italic + :underline + :strikethrough + :spoiler + :blockquote + :expandable-blockquote + :code + :pre + :text-link + :text-mention + :custom-emoji)) +(in-package :ukkoclot/tg/message-entity-type) + +(define-enum message-entity-type + (mention "mention") + (hashtag "hashtag") + (cashtag "cashtag") + (bot-command "bot_command") + (url-entity "url") + (email "email") + (phone-number "phone_number") + (bold "bold") + (italic "italic") + (underline "underline") + (strikethrough "strikethrough") + (spoiler "spoiler") + (blockquote "blockquote") + (expandable-blockquote "expandable_blockquote") + (code "code") + (pre "pre") + (text-link "text_link") + (text-mention "text_mention") + (custom-emoji "custom_emoji")) -- cgit v1.2.3