Module `Ecaml__.Face`

module Frame = Ecaml__.Frame0

include Ecaml__.Import0.Value.Subtype

type value
type t = private value: We expose private value for free identity conversions when the value is nested in some covariant type, e.g. (symbols : Symbol.t list :> Value.t list) rather than List.map symbols ~f:Symbol.to_value.

val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t

val eq : t -> t -> bool: eq t1 t2 = Value.eq (to_value t1) (to_value t2), i.e. eq checks whether the Emacs values underlying t1 and t2 are physically equal. This is different than phys_equal t1 t2, because we don't always wrap eq Emacs values in phys_equal OCaml values. I.e. phys_equal t1 t2 implies eq t1 t2, but not the converse.

val is_in_subtype : value -> bool

include Ecaml_value__.Valueable0.S with type t := t

type t
type 'a type_

val of_value_exn : Ecaml_value__.Value0.t -> t
val to_value : t -> Ecaml_value__.Value0.t
val type_ : t type_
val t : t type_

include Core_kernel.Equal.S with type t := t

type t

val equal : t Core_kernel.Equal.equal

val default : t
val of_name : string -> t
val to_name : t -> string

module Background : sig ... end: (Info-goto-node "(elisp)Face Attributes")

module Box : sig ... end: (Info-goto-node "(elisp)Face Attributes")

module Font : sig ... end: (Info-goto-node "(elisp)Face Attributes")

module Font_family : sig ... end: Font family name or fontset name; the wild-card characters `*' and `?' are allowed. (Info-goto-node "(elisp)Face Attributes").

module Font_foundry : sig ... end: The name of the "font foundry" in which the font family attribute is located; the wild-card characters `*' and `?' are allowed. (Info-goto-node "(elisp)Face Attributes")

module Foreground : sig ... end: (Info-goto-node "(elisp)Face Attributes")

module Height : sig ... end: (Info-goto-node "(elisp)Face Attributes")

module Inherit : sig ... end: (Info-goto-node "(elisp)Face Attributes")

module Inverse_video : sig ... end: (Info-goto-node "(elisp)Face Attributes")

module Overline : sig ... end: (Info-goto-node "(elisp)Face Attributes")

module Slant : sig ... end: (Info-goto-node "(elisp)Face Attributes")

module Stipple : sig ... end: (Info-goto-node "(elisp)Face Attributes")

module Strike_through : sig ... end: (Info-goto-node "(elisp)Face Attributes")

module Underline : sig ... end: (Info-goto-node "(elisp)Face Attributes")

module Weight : sig ... end: (Info-goto-node "(elisp)Face Attributes")

module Width : sig ... end: (Info-goto-node "(elisp)Face Attributes")

module Attribute : sig ... end: (Info-goto-node "(elisp)Face Attributes")

module Attribute_and_value : sig ... end

val all_defined : unit -> t list: (describe-function 'face-list)

val font_family_list : ?⁠on:Frame.t -> unit -> string list: (describe-function 'face-attribute)

val attribute_value : ?⁠on:Frame.t -> t -> 'a Attribute.t -> 'a: (describe-function 'face-attribute)

val set_attribute : ?⁠on:Frame.t -> t -> 'a Attribute.t -> 'a -> unit: (describe-function 'set-face-attribute)

val attributes : ?⁠on:Frame.t -> t -> Attribute_and_value.t list: (describe-function 'face-all-attributes)

val spec_set : t -> Attribute_and_value.t list -> unit: (describe-function 'face-spec-set)

val defface : string -> Core_kernel.Source_code_position.t -> docstring:string -> customization_group:Ecaml.Customization.Group.t -> Attribute_and_value.t list -> t: (describe-function 'defface)