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

make the operator even funnier and fix a bug

Browse Source
This commit is contained in:
atagen 2024-12-03 14:17:36 +11:00
parent a2b675b21f
commit 4b7e9daae6
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/env.ml
View File

@ -1,7 +1,8 @@
open Seq
let to_sixteen f = ints 0 |> take 16 |> f |> Array.of_seq
let ( >>= ) = Option.bind
let (=?)= Array.mem
let ( =!? ) = fun el col -> not (Array.mem el col)
let colours =
let init_default = to_sixteen (map (fun x -> Types.Simple x)) in
@ -10,7 +11,7 @@ let colours =
|> Option.fold ~none:init_default ~some:Parse.parse_env_colours
let order =
let init_default = to_sixteen (filter (fun i -> i =? [| 0; 8 |])) in
let init_default = to_sixteen (filter (fun i -> i =!? [| 0; 8 |])) in
Sys.getenv_opt "CULR_ORDER"
>>= (fun s -> if String.length s > 0 then Some s else None)
|> Option.fold ~none:init_default ~some:Parse.parse_env_order