Source file `dump.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
open Color
open! Core

(** [get_version_of_ocamlformat] returns the version of installed ocamlformat. *)
let get_version_of_ocamlformat =
  let inp = Unix.open_process_in "ocamlformat --version" in
  let r =
    match In_channel.input_line inp with
    | Some s -> s
    | None -> failwith "Command ocamlformat not found."
  in
  In_channel.close inp;
  r
;;

(** [preset_config] returns the configuration of [.ocamlformat]. *)
let preset_config =
  let presets =
    [ "#this configuration is generated by dump_ocamlformat"
    ; "profile = janestreet"
    ; "version = " ^ get_version_of_ocamlformat
    ]
  in
  String.concat ~sep:"\n" presets
;;

(** [dump_preset_config filename] dumps the configuration into [filename]. *)
let dump_preset_config filename =
  match Sys.is_file filename with
  | `Yes ->
    ".ocamlformat has been updated." |> paint_as_cyan |> print_endline;
    Out_channel.write_all filename ~data:preset_config
  | `No ->
    ".ocamlformat has been created." |> paint_as_cyan |> print_endline;
    Out_channel.write_all filename ~data:preset_config
  | `Unknown -> "ERROR: .ocamlformat may exist." |> paint_as_red |> print_endline
;;