matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Disable colors when compiling from emacs

This commit is contained in:
Jeremie Dimino 2017-02-23 09:59:22 +00:00
parent bb996f696b
commit 593bd4c1c1
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/future.ml
View File

@ -215,11 +215,17 @@ module Scheduler = struct
let err_is_atty = lazy Unix.(isatty stderr) let err_is_atty = lazy Unix.(isatty stderr)
let dumb_term =
match Sys.getenv "TERM" with
| exception Not_found -> true
| "dumb" -> true
| _ -> false
let command_line ?colorize { prog; args; dir; stdout_to; _ } = let command_line ?colorize { prog; args; dir; stdout_to; _ } =
let colorize = let colorize =
match colorize with match colorize with
| Some x -> x | Some x -> x
| None -> not Sys.win32 && Lazy.force err_is_atty | None -> not Sys.win32 && Lazy.force err_is_atty && not dumb_term
in in
let prog = let prog =
let s = quote prog in let s = quote prog in