Parse files on startup

Author: Krzysztof-Cieslak

paket.lock

@@ -1,7 +1,7 @@
 NUGET
   remote: https://www.nuget.org/api/v2
   specs:
-    FAKE (4.22.3)
+    FAKE (4.22.4)
     FunScript (1.1.94)
     Microsoft.Bcl (1.1.10) - framework: net10, net11, net20, net30, net35, net40, net40-full
       Microsoft.Bcl.Build (>= 1.0.14)
@@ -25,13 +25,13 @@ GIT
       build: build.cmd
   remote: https://github.com/ionide/FsAutoComplete.git
   specs:
-     (8cce3b4fe533892afe376425190ec5f13affd496)
+     (9c93bdf0ab01de202173482ed0ca2b6b0e98751f)
       build: build.cmd LocalRelease
   remote: [email protected]:ionide/ionide-fsgrammar.git
   specs:
      (4d7523d45330bd44ca6db56e5907aa7151e8a514)
 GITHUB
   remote: fsharp/FAKE
   specs:
-    modules/Octokit/Octokit.fsx (fa8d99c82c05e048e918a405a478b62db2e70c56)
+    modules/Octokit/Octokit.fsx (3572ef440ce7f087d1bebfc2aebbf0c7599f7a28)
       Octokit

src/Components/Linter.fs

@@ -34,7 +34,7 @@ module Linter =
 
         LanguageService.parse path text
         |> Promise.success (fun (ev : ParseResult) ->  (Uri.file path, mapResult ev) |> currentDiagnostic.set'  )
-        |> ignore
+
 
     let parseFile (file : TextDocument) =
         if file.languageId = "fsharp" then
@@ -45,15 +45,16 @@ module Linter =
                         |> LanguageService.project
                         |> Promise.success (fun _ -> parse path (file.getText ()))
                         |> ignore
-            | None -> parse path (file.getText ())
+            | None -> parse path (file.getText ()) |> ignore
+            
 
     let mutable private timer = None : NodeJS.Timer option
 
     let private handler (event : TextDocumentChangeEvent) =
         timer |> Option.iter(Globals.clearTimeout)
         timer <- Some (Globals.setTimeout((fun _ -> 
             if event.document.languageId = "fsharp" then
-                parse (event.document.fileName) (event.document.getText ())), 500.) )
+                parse (event.document.fileName) (event.document.getText ()) |> ignore), 500.) )
 
 
     let private handlerOpen (event : TextEditor) =
@@ -66,5 +67,20 @@ module Linter =
         window.Globals.onDidChangeActiveTextEditor
         |> EventHandler.add handlerOpen () disposables
 
-        let editor = window.Globals.activeTextEditor
-        if JS.isDefined editor then parseFile editor.document
+        match window.Globals.visibleTextEditors |> Array.toList with
+        | [] -> Promise.lift (null |> unbox)  
+        | [x] -> 
+            let path = x.document.fileName
+            let content = x.document.getText()
+            parse path content
+        | x::tail ->
+            let path = x.document.fileName
+            let content = x.document.getText()
+            
+            tail 
+            |> List.fold (fun acc e ->
+                    let path = e.document.fileName
+                    let content = e.document.getText()
+                    acc |> Promise.bind(fun _ -> parse path content) )
+               (parse path content)
+        |> ignore

src/Core/Bindings.fs

@@ -33,4 +33,9 @@ module Bindings =
     type WorkspaceEdit with
         [<FunScript.JSEmitInline "(new vscode.WorkspaceEdit())">]
         static member Create() : WorkspaceEdit = failwith "JS"
+            
+    type window.Globals with
+    
+        [<FunScript.JSEmitInline "(vscode.window.visibleTextEditors)">]
+        static member visibleTextEditors with get () : TextEditor[] = failwith "JS"
 

src/Core/Project.fs

@@ -37,7 +37,9 @@ module Project =
             |> List.collect(fun s ->
                 try
                     let s = dir + Globals.sep + s
-                    if Globals.statSync(s).isDirectory () then
+                    if s = ".git" || s = "paket-files" then
+                        []
+                    elif Globals.statSync(s).isDirectory () then
                         findProjs (s) 
                     else    
                        if s.EndsWith ".fsproj" then [ s ] else [] 
@@ -49,11 +51,10 @@ module Project =
 
     let activate () =
         match findAll () with
-        | [] -> ()
-        | [x] -> LanguageService.project x |> ignore
+        | [] -> Promise.lift (null |> unbox)  
+        | [x] -> LanguageService.project x
         | x::tail ->
             tail 
             |> List.fold (fun acc e -> acc |> Promise.bind(fun _ -> LanguageService.project e) )
                (LanguageService.project x)
-            |> ignore
 

src/fsharp.fs

@@ -11,27 +11,33 @@ open FunScript.TypeScript.child_process
 open FunScript.TypeScript.vscode
 
 open Ionide.VSCode.FSharp
+open Ionide.VSCode.Helpers
 
 type FSharp() =
     member x.activate(disposables: Disposable[]) =
-        LanguageService.start ()
-        Project.activate ()
         let df = createEmpty<DocumentFilter> ()
         df.language <- "fsharp"
         let df' = [|df|]
-        Linter.activate disposables
-        Tooltip.activate df' disposables
-        Autocomplete.activate df' disposables
-        ParameterHints.activate df' disposables
-        Definition.activate df' disposables
-        Reference.activate df' disposables 
-        Symbols.activate df' disposables
-        Highlights.activate df' disposables
-        Rename.activate df' disposables
-        Fsi.activate disposables
-        QuickInfo.activate disposables
-        FSharpFormatting.activate disposables
-        WebPreview.activate disposables
+        
+        LanguageService.start ()
+        Project.activate () 
+        |> Promise.success (fun _ -> 
+            Linter.activate disposables
+            Tooltip.activate df' disposables
+            Autocomplete.activate df' disposables
+            ParameterHints.activate df' disposables
+            Definition.activate df' disposables
+            Reference.activate df' disposables 
+            Symbols.activate df' disposables
+            Highlights.activate df' disposables
+            Rename.activate df' disposables
+            Fsi.activate disposables
+            QuickInfo.activate disposables
+            FSharpFormatting.activate disposables
+            WebPreview.activate disposables)
+        |> ignore
+        
+        
         ()
 
     member x.deactivate(disposables: Disposable[]) =