Fixing output when not terminal

CHANGELOG.md

@@ -1,5 +1,9 @@
 # Changelog
 
+## 0.1.2
+
+- Fixed output text when output is not terminal
+
 ## 0.1.1
 
 - Fixed checking of whether output is terminal

src/notefd.ml

@@ -8,11 +8,11 @@ let file_read_limit = 2048
 
 let first_n_lines_to_parse = 10
 
-let empty_list_if_not_atty l =
+let stylize_if_atty styles s =
   if Unix.isatty Unix.stdout then
-    l
+    ANSITerminal.sprintf styles "%s" s
   else
-    []
+    s
 
 let get_first_few_lines (path : string) : (string list, string) result =
   try
@@ -344,18 +344,15 @@ let run
             let colored_p formatter (i, s) =
               if no_requirements || tag_matched.(i) then (
                 Fmt.pf formatter "%s"
-                  ANSITerminal.(sprintf
-                                  (empty_list_if_not_atty [ Bold; red ]) "%s" s)
+                  (stylize_if_atty ANSITerminal.[ Bold; red ] s)
               ) else (
                 Fmt.pf formatter "%s" s
               )
             in
             Fmt.pr "@[<v>> @[<v>%s@,[ @[<hv>%a@] ]@,%@ %s@]@,@]"
               (match header.title with
                | None -> ""
-               | Some s ->
-                 ANSITerminal.(sprintf
-                                 (empty_list_if_not_atty [ Bold; blue ]) "%s" s))
+               | Some s -> stylize_if_atty ANSITerminal.[ Bold; blue ] s)
               Fmt.(seq ~sep:sp colored_p) (Array.to_seqi tag_arr)
               header.path
           )

src/version_string.ml

@@ -1 +1 @@
-let s = "0.1.1"
+let s = "0.1.2"