Initial commit

1 files changed, 21 insertions, 0 deletions

diff --git a/src/tg-types/force-reply.lisp b/src/tg-types/force-reply.lisp
new file mode 100644
index 0000000..ad9d2a0
--- /dev/null
+++ b/src/tg-types/force-reply.lisp
@@ -0,0 +1,21 @@
+;; SPDX-License-Identifier: EUPL-1.2
+;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
+(defpackage :ukkoclot/tg-types/force-reply
+  (:use :c2cl :ukkoclot/tg-types/macros)
+  (:export
+   force-reply
+   make-force-reply
+   force-reply-p
+   copy-force-reply
+   force-reply-force-reply
+   force-reply-input-field-placeholder
+   force-reply-selective
+
+   hash->force-reply
+   parse-force-reply-array))
+(in-package :ukkoclot/tg-types/force-reply)
+
+(define-tg-type force-reply
+  (force-reply boolean t :skip-if-default nil)
+  (input-field-placeholder (or string null) nil)
+  (selective boolean nil))