diff options
| author | Matias Goldfeld <[email protected]> | 2021-01-27 17:15:05 -0500 |
|---|---|---|
| committer | Matias Goldfeld <[email protected]> | 2021-01-27 17:15:05 -0500 |
| commit | 8fc7e259c365c6a84b216b7548b87bc2a96d6868 (patch) | |
| tree | 5ea4f7d6ff82727d62b01fb2d234a4f8ab66aa2b /lib/models/channel/message | |
| parent | Fixed sending file attachments by adding multiform support (diff) | |
| download | disml-8fc7e259c365c6a84b216b7548b87bc2a96d6868.tar.xz disml-8fc7e259c365c6a84b216b7548b87bc2a96d6868.zip | |
Added message_reference functionality
Diffstat (limited to 'lib/models/channel/message')
| -rw-r--r-- | lib/models/channel/message/message.ml | 5 | ||||
| -rw-r--r-- | lib/models/channel/message/message.mli | 3 |
2 files changed, 5 insertions, 3 deletions
diff --git a/lib/models/channel/message/message.ml b/lib/models/channel/message/message.ml index 38c9242..7f03638 100644 --- a/lib/models/channel/message/message.ml +++ b/lib/models/channel/message/message.ml @@ -50,8 +50,9 @@ let unpin msg = let reply msg content =
Channel_id.say content msg.channel_id
-let reply_with ?embed ?content ?files ?tts msg =
- Channel_id.send_message ?embed ?content ?files ?tts msg.channel_id
+let reply_with ?embed ?content ?files ?tts ?(reply_mention=false) msg =
+ let reply = if reply_mention then Some msg.id else None in
+ Channel_id.send_message ?embed ?content ?files ?tts ?reply msg.channel_id
let set_content msg cont =
let `Message_id id = msg.id in
diff --git a/lib/models/channel/message/message.mli b/lib/models/channel/message/message.mli index e0a789a..3046492 100644 --- a/lib/models/channel/message/message.mli +++ b/lib/models/channel/message/message.mli @@ -23,12 +23,13 @@ val unpin : t -> unit Deferred.Or_error.t (** Sugar for [Channel_id.say msg.channel_id content]. *)
val reply : t -> string -> t Deferred.Or_error.t
-(** Sugar for [Channel_id.send_message ?embed ?content ?files ?tts msg.channel_id]. *)
+(** Sugar for [Channel_id.send_message ?embed ?content ?files ?tts ?reply_mention msg]. *)
val reply_with :
?embed:Embed.t ->
?content:string ->
?files:(string * string) list ->
?tts:bool ->
+ ?reply_mention:bool ->
t ->
Message_t.t Deferred.Or_error.t
|