blob: a7db3a8375761183bbbfdbe2b272058ea127729f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
;; SPDX-License-Identifier: EUPL-1.2
;; SPDX-FileCopyrightText: 2025 Uko Kokņevičs <perkontevs@gmail.com>
(defpackage :ukkoclot/tg/edit-message-text
(:use
:c2cl
:ukkoclot/tg/inline-keyboard-markup
:ukkoclot/tg/link-preview-options
:ukkoclot/tg/message
:ukkoclot/tg/message-entity
:ukkoclot/bot/method-macros
:ukkoclot/tg/parse-mode)
(:export :edit-message-text))
(in-package :ukkoclot/tg/edit-message-text)
;; TODO: Add a way to simply specify :message msg :)
(define-tg-method (edit-message-text message)
(business-connection-id (or string null) nil)
(chat-id (or integer string null) nil)
(message-id (or integer null) nil)
(inline-message-id (or string null) nil)
(text string)
(parse-mode (or parse-mode null) nil)
(entities (or (array message-entity) null) nil)
(link-preview-options (or link-preview-options null) nil)
(reply-markup (or inline-keyboard-markup null) nil))
|
