Source file fish.ml

(******************************************************************************)
(*  Copyright 2023 Gurvan Debaussart                                          *)
(*  This file is distributed under the MIT license.                           *)
(*  https://codeberg.org/gurvan/argsh                                         *)
(******************************************************************************)

open Common
open Format

let create out executable_name args =

  let args_to_cmd (key, _, doc) =
    let doc = treat_doc doc
            |> escape_char '\''
    in
    sprintf "complete -c %s -a \"%s\" -d '%s'" executable_name key doc
  in

  let args =  add_help args
           |> List.map args_to_cmd
           |> String.concat "\n"
  in

  fprintf out
{|# %s

%s|}
  msg args