(** Handle the command line arguments. *)
type cli_request =
- | Connect_to_libvirt of string option
- | Open_disk_image of string list
| Empty_window
+ | Open_guest of string
+ | Open_images of (string * string option) list
(** The initial action requested by the user on the command line.
- For example if the command line contains --connect then
- [Connect_to_libvirt] is returned by {!command_line}. *)
+
+ [Empty_window] means nothing was requested on the command line.
+
+ [Open_guest] means to open a guest (-d option).
+
+ [Open_images] means to open a list of disk images (-a option). *)
val command_line : unit -> cli_request
(** Read the command line and return {!cli_request}. *)