Add install_package to install

CHANGES.md

@@ -1,6 +1,7 @@
 ## Pending
 
 * Add `package` to `executable` and `library`
+* Add `install_package` to `install`
 * Add `copy_with_source_directive` which implements the `copy#` action.
 
 ## 0.1.3

src/dsl/dune.ml

@@ -551,6 +551,9 @@ module type SYM = sig
       - ["(site (<package> <site>))"] installs in the <site> directory of <package>. If the prefix isn't the same as the one used when installing <package>, <package> won't find the files.  
   *)
 
+  val install_package : string -> [ `Install ] repr
+  (** [install_package] specifies the package the install rule is part of. *)
+
   val install_files : [ `InstallDestination ] repr list -> [ `Install ] repr
   (** {{:https://dune.readthedocs.io/en/stable/dune-files.html#install-1}}. *)
 

src/show/DkmlDuneDslShow.ml

@@ -121,7 +121,7 @@ module I : DkmlDuneDsl.Dune.SYM with type 'a repr = args -> out = struct
       > quote it: ("x" y z).
 
       So:
-      
+
       + all one-element lists are promoted into atoms (which is not sufficient by itself)
       + all lists with an atom as the first argument are prepended with the empty set
         expression (:standard \ :standard)
@@ -477,6 +477,7 @@ module I : DkmlDuneDsl.Dune.SYM with type 'a repr = args -> out = struct
   (** {3 Install} *)
 
   let section s args = _arg_of_string ~args "section" s
+  let install_package s args = _arg_of_string ~args "package" s
   let install_files l args = _list ([ _atom "files" ] @ _spread args l)
 
   let destination_file ~filename ~destination args =