-$W = "\e[0;32;1m"; # White
-$N = "\x0f\e[0m"; # Normal
-$M = "\e[0;35;1m"; # Magenta (for commands)
-$B = "\e[0;34;1m\x0e"; # Blue, line drawing characters
+if ($color) {
+ $W = "\e[0;32;1m"; # White
+ $N = "\x0f\e[0m"; # Normal
+ $M = "\e[0;35;1m"; # Magenta (for commands)
+ $B = "\e[0;34;1m\x0e"; # Blue, line drawing characters
+} else {
+ $B = "\x0e";
+ $N = "\x0f";
+}
+