feature: create dune show command group

This is an alias of dune describe. Signed-off-by: Ali Caglayan <alizter@gmail.com>
ocaml · Jun 13, 2023 · cf0423d · cf0423d
1 parent 158f31d
commit cf0423d
Show file tree

Hide file tree

Showing 5 changed files with 26 additions and 7 deletions.
diff --git a/bin/describe/describe.ml b/bin/describe/describe.ml
@@ -7,6 +7,17 @@ open Import
 
    - duniverse people for "describe opam-files" *)
 
+let subcommands =
+  [ Describe_workspace.command
+  ; Describe_external_lib_deps.command
+  ; Describe_opam_files.command
+  ; Describe_pp.command
+  ]
+
+let make_group info =
+  let default = Describe_workspace.term in
+  Cmd.group ~default info subcommands
+
 let group =
   let doc = "Describe the workspace." in
   let man =
@@ -26,10 +37,4 @@ let group =
     ]
   in
   let info = Cmd.info "describe" ~doc ~man in
-  let default = Describe_workspace.term in
-  Cmd.group ~default info
-    [ Describe_workspace.command
-    ; Describe_external_lib_deps.command
-    ; Describe_opam_files.command
-    ; Describe_pp.command
-    ]
+  make_group info
diff --git a/bin/describe/describe.mli b/bin/describe/describe.mli
@@ -1,3 +1,6 @@
 open Import
 
+val make_group : Cmd.info -> unit Cmd.t
+
+(** Command group for dune describe *)
 val group : unit Cmd.t
diff --git a/bin/main.ml b/bin/main.ml
@@ -32,6 +32,7 @@ let all : _ Cmdliner.Cmd.t list =
     [ Ocaml_cmd.group
     ; Coq.group
     ; Describe.group
+    ; Show.group
     ; Rpc.group
     ; Internal.group
     ; Init.group

diff --git a/bin/show.ml b/bin/show.ml
@@ -0,0 +1,6 @@
+open Import
+
+let group =
+  let doc = "Command group for showing information about the workspace" in
+  let info = Cmd.info ~doc "show" in
+  Describe.make_group info
diff --git a/bin/show.mli b/bin/show.mli
@@ -0,0 +1,4 @@
+open Import
+
+(** Command group for dune show (alias of describe) *)
+val group : unit Cmd.t