fix argument escaping

yatli · Aug 13, 2019 · d108f3f · d108f3f
1 parent 956af0f
commit d108f3f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/common.fs b/common.fs
@@ -92,6 +92,7 @@ let (|ForceBool|_|) (x:obj) =
 type hashmap<'a, 'b> = System.Collections.Generic.Dictionary<'a, 'b>
 let hashmap (xs: seq<'a*'b>) = new hashmap<'a,'b>(xs |> Seq.map (fun (a,b) -> System.Collections.Generic.KeyValuePair(a,b)))
 
+let escapeArgs: string seq -> string seq = Seq.map (fun (x: string) -> if x.Contains(' ') then sprintf "\"%s\"" (x.Replace("\"", "\\\"")) else x)
 let join (xs: string seq) = System.String.Join(" ", xs)
 
 let inline (>>=) (x: 'a option) (f: 'a -> 'b option) =

diff --git a/neovim/neovim.process.fs b/neovim/neovim.process.fs
@@ -51,7 +51,7 @@ type Nvim() =
         match serveropts with
         | StartNew ->
             let args = "--embed" :: args
-            let psi  = ProcessStartInfo(prog, join(preargs @ args))
+            let psi  = ProcessStartInfo(prog, (join << escapeArgs) (preargs @ args))
             psi.CreateNoWindow          <- true
             psi.ErrorDialog             <- false
             psi.RedirectStandardError   <- true