atagen/culr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

emit first colour unconditionally

Browse Source
This commit is contained in:
atagen 2024-12-01 23:59:10 +11:00
parent 54397204cf
commit a017001c9d
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lib/pipes.ml
View File

@ -1,12 +1,18 @@
let read_all () =
In_channel.set_binary_mode stdin true;
let t = Emitter.create
and culr = Processing.Culriser.create [ Simple 4; Simple 1 ] in
let open Types in
let t = Emitter.create
and culr =
Processing.Culriser.create ~s:[| 0; 2; 1; 3; 4 |]
~f:[ (function RGB (r, g, _) -> (g > 0 || r = 255) | _ -> true) ]
[| Simple 0; Simple 1; Simple 2; RGB (255, 0, 127); RGB (0, 200, 0) |]
in
Emitter.serialise t (Ansi [ Fg (Processing.Culriser.next culr) ]);
Angstrom_unix.parse_many ~buf_size:4096 Parse.culr_parse
(fun c ->
c |> Processing.ansi_filter
|> Processing.Culriser.add_colour culr
|> List.iter (Emitter.serialise t))
|> Processing.Culriser.add_colour culr t
|> Emitter.serialise t)
stdin
|> function
| _, Ok _ ->