open Async

include module type of Message_t

(** Add the given emoji as a reaction. *)
val add_reaction : t -> Emoji.t -> unit Deferred.Or_error.t

(** Remove the reaction. Must also specify the user. *)
val remove_reaction : t -> Emoji.t -> User_t.t -> unit Deferred.Or_error.t

(** Remove all reactions from the message. *)
val clear_reactions : t -> unit Deferred.Or_error.t

(** Delete the message. *)
val delete : t -> unit Deferred.Or_error.t

(** Pin the message. *)
val pin : t -> unit Deferred.Or_error.t

(** Unping the message. *)
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 ?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

(** Set the content of the message. *)
val set_content : t -> string -> t Deferred.Or_error.t

(** Set the embed of the message. *)
val set_embed : t -> Embed.t -> t Deferred.Or_error.t