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

add parsing for 90-108 bright colours

Browse Source
This commit is contained in:
atagen 2024-12-05 21:26:00 +11:00
parent 66ddaec1b1
commit a4bf011cb0
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/ansi.ml
View File

@ -56,6 +56,10 @@ let parse_ansi_codes =
| n when n >= 40 && n <= 47 ->
(Done, parsed @ [ Bg (Intrinsic (code - 40)) ])
| 48 -> (ParsingColour ParsingBg, parsed)
| n when n >= 90 && n <= 97 ->
(Done, parsed @ [ Fg (Intrinsic (code - 82)) ])
| n when n >= 100 && n <= 107 ->
(Done, parsed @ [ Bg (Intrinsic (code - 92)) ])
| _ -> (Done, parsed @ [ Other code ])
in
let waste_state p =