viewer: Run virt-viewer in the background.

diff --git a/mclu_viewer.ml b/mclu_viewer.ml
index 15036b7..744517a 100644 (file)
--- a/mclu_viewer.ml
+++ b/mclu_viewer.ml
@@ -28,7 +28,7 @@ let viewer ~verbose ?host name =
   let node, name = Mclu_list.find_guest ~verbose name in
   let uri = node.Mclu_conf.libvirt_uri in
 
-  let cmd = sprintf "virt-viewer -c %s %s" (quote uri) (quote name) in
+  let cmd = sprintf "virt-viewer -c %s %s &" (quote uri) (quote name) in
   if verbose then printf "%s\n%!" cmd;
   if Sys.command cmd <> 0 then (
     eprintf "mclu: %s: command failed\n" cmd;