Module `LTerm_text_impl.Make`Source

Parameters

module LiteralIntf : LiteralIntf.Type

Signature

Sourcetype t = (Zed_char.t * LTerm_style.t) array

Sourceval dummy : Zed_char.t * LTerm_style.t

Sourceval of_string : Zed_string.t -> (Zed_char.t * LTerm_style.t) array

val aval_width : 
  (Zed_string.all_width, Zed_string.seg_width) Result.result ->
  int

Sourceval of_utf8 : string -> (Zed_char.t * LTerm_style.t) array

Sourceval uchar_of_hex : int -> Uchar.t

Source

val of_string_maybe_invalid : 
  Zed_string.t ->
  (Zed_char.t * LTerm_style.t) array

Sourceval of_utf8_maybe_invalid : string -> (Zed_char.t * LTerm_style.t) array

Sourceval to_string : (Zed_char.t * 'a) array -> Zed_string.t

Sourceval of_rope : Zed_rope.rope -> (Zed_char.t * LTerm_style.t) array

Sourceval to_rope : (Zed_char.t * 'a) array -> Zed_rope.rope

Sourceval stylise : string -> 'a -> (Zed_char.t * 'a) array

Sourceval lparen : Zed_char.t

Sourceval rparen : Zed_char.t

Sourceval lbrace : Zed_char.t

Sourceval rbrace : Zed_char.t

Sourceval lbracket : Zed_char.t

Sourceval rbracket : Zed_char.t

Sourcetype search_result =

| No_match_found
| No_paren_found
| Match_found of int

Source

val stylise_parenthesis : 
  (Zed_char.t * LTerm_style.t) array ->
  ?paren:(Zed_char.t * Zed_char.t) list ->
  int ->
  LTerm_style.t ->
  unit

Sourcetype item =

| S of LiteralIntf.string_intf
| R of Zed_rope.t
| B_bold of bool
| E_bold
| B_underline of bool
| E_underline
| B_blink of bool
| E_blink
| B_reverse of bool
| E_reverse
| B_fg of LTerm_style.color
| E_fg
| B_bg of LTerm_style.color
| E_bg

Sourcetype markup = item list

Sourcetype eval_stack = {

mutable q_bold : bool option list;
mutable q_underline : bool option list;
mutable q_blink : bool option list;
mutable q_reverse : bool option list;
mutable q_fg : LTerm_style.color option list;
mutable q_bg : LTerm_style.color option list;

}

Sourceval markup_length : item list -> int

Sourceval eval : item list -> (Zed_char.t * LTerm_style.t) array

Styled formatters

Source

val make_formatter : 
  ?read_color:(Format.tag -> LTerm_style.t) ->
  unit ->
  (unit -> (Zed_char.t * LTerm_style.t) array) * Format.formatter

Source

val pp_with_style : 
  ('a -> Format.tag) ->
  'a ->
  ('b, Format.formatter, unit, unit) format4 ->
  Format.formatter ->
  'b

Source

val kstyprintf : 
  ?read_color:(Format.tag -> LTerm_style.t) ->
  ((Zed_char.t * LTerm_style.t) array -> 'a) ->
  ('b, Format.formatter, unit, 'a) format4 ->
  'b

Source

val styprintf : 
  ?read_color:(Format.tag -> LTerm_style.t) ->
  ('a, Format.formatter, unit, (Zed_char.t * LTerm_style.t) array) format4 ->
  'a

package lambda-term

Module LTerm_text_impl.MakeSource

Parameters

Signature

Styled formatters

Module `LTerm_text_impl.Make`Source