package matrix

  1. Overview
  2. Docs

Source file ansi.ml

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
26
27
28
include Escape
module Writer = Writer
module Color = Color
module Attr = Attr
module Style = Style
module Parser = Parser
module Sgr_state = Sgr_state

let render ?hyperlinks_enabled segments =
  Segment.render ?hyperlinks_enabled segments

let parse = Parser.parse

let strip str =
  match String.index_from_opt str 0 '\x1b' with
  | None -> str
  | Some _ ->
      let buf = Buffer.create (String.length str) in
      let p = Parser.create () in
      let collect = function
        | Parser.Text s -> Buffer.add_string buf s
        | Parser.SGR _ | Parser.Control _ -> ()
      in
      Parser.feed p
        (Bytes.unsafe_of_string str)
        ~off:0 ~len:(String.length str) collect;
      Parser.feed p Bytes.empty ~off:0 ~len:0 collect;
      Buffer.contents buf