feature: create dune show command group

This is an alias of dune describe.

Signed-off-by: Ali Caglayan <[email protected]>

Author: Alizter

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

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

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

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

bin/show.mli

@@ -0,0 +1,4 @@
+open Import
+
+(** Command group for dune show (alias of describe) *)
+val group : unit Cmd.t