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/reply-parameters.lisp | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 src/tg-types/reply-parameters.lisp

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

diff --git a/src/tg-types/reply-parameters.lisp b/src/tg-types/reply-parameters.lisp
new file mode 100644
index 0000000..5f0595d
--- /dev/null
+++ b/src/tg-types/reply-parameters.lisp
@@ -0,0 +1,32 @@
+;; SPDX-License-Identifier: EUPL-1.2
+;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
+(defpackage :ukkoclot/tg-types/reply-parameters
+  (:use :c2cl :ukkoclot/tg-types/macros :ukkoclot/tg-types/message-entity)
+  (:export
+   reply-parameters
+   make-reply-parameters
+   reply-parameters-p
+   copy-reply-parameters
+   reply-parameters-message-id
+   reply-parameters-chat-id
+   reply-parameters-allow-sending-without-reply
+   reply-parameters-quote
+   reply-parameters-quote-parse-mode
+   reply-parameters-quote-entities
+   reply-parameters-quote-position
+   reply-parameters-checklist-task-id
+
+   hash->reply-parameters
+   parse-reply-parameters-array))
+(in-package :ukkoclot/tg-types/reply-parameters)
+
+(define-tg-type reply-parameters
+  (message-id integer)
+  (chat-id (or integer string null) nil)
+  ;; Technically true if on a business account but yeah right lmao
+  (allow-sending-without-reply boolean nil)
+  (quote (or string null) nil)
+  (quote-parse-mode (or string null) nil)
+  (quote-entities (or (array message-entity) null) nil)
+  (quote-position (or integer null) nil)
+  (checklist-task-id (or integer null) nil))
-- 
cgit v1.2.3