quickstart

Author: vincentremond

.config/dotnet-tools.json

@@ -3,16 +3,18 @@
   "isRoot": true,
   "tools": {
     "fantomas": {
-      "version": "6.2.3",
+      "version": "6.3.16",
       "commands": [
         "fantomas"
-      ]
+      ],
+      "rollForward": false
     },
     "paket": {
-      "version": "8.0.0",
+      "version": "9.0.2",
       "commands": [
         "paket"
-      ]
+      ],
+      "rollForward": false
     }
   }
 }

.editorconfig

@@ -1,5 +1,3 @@
-root = true
-
 [paket.*]
 insert_final_newline = false
 

.paket/Paket.Restore.targets

@@ -2,3 +2,5 @@
 
 dotnet tool restore
 dotnet build -- %*
+
+AddToPath ./extLauncher/bin/Debug/

Install-as-dotnet-tool.ps1

@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="utf-8"?>
 <Project Sdk="Microsoft.NET.Sdk">
   <PropertyGroup>
-    <TargetFramework>net8.0</TargetFramework>
+    <TargetFramework>net9.0</TargetFramework>
     <IsPackable>false</IsPackable>
     <GenerateProgramFile>false</GenerateProgramFile>
     <WarningsAsErrors>FS0025</WarningsAsErrors>

build.cmd

@@ -21,7 +21,7 @@ let loadFolder loadFiles conf : Folder option =
             }
             |> Some
 
-let index loadFiles save conf : Folder option =
+let index loadFiles save (conf: FolderConf) : Folder option =
     loadFolder loadFiles conf |> Option.map save
 
 let refresh loadFiles save (folder: Folder) : Folder option =

extLauncher.Tests/extLauncher.Tests.fsproj

@@ -80,7 +80,7 @@ module private Implementations =
 
     let noNull s = if isNull s then "" else s
 
-    let printLaunchers folder =
+    let printLaunchers (folder: Folder) =
         let launchers =
             Table()
                 .AddColumns(
@@ -130,12 +130,13 @@ type IndexCommand() =
     inherit Command<IndexSettings>()
 
     override _.Execute(_, settings) =
-        fun _ ->
+        (fun _ ->
             App.index IO.getFiles Db.upsertFolder {
                 Path = currentPath
                 Pattern = Pattern.init settings.Pattern settings.IsRegex
                 Launchers = Array.empty
             }
+        )
         |> withLoader
         |> function
             | Some folder ->
@@ -193,8 +194,8 @@ type SetLauncherCommand() =
                     folder.Launchers.[index] <- launcher
                     folder
                 | None -> { folder with Launchers = Array.insertAt 0 launcher folder.Launchers }
-            |> Db.upsertFolder
-            |> printLaunchers
+                |> Db.upsertFolder
+                |> printLaunchers
 
             0
 

extLauncher/App.fs

@@ -2,7 +2,7 @@
 <Project Sdk="Microsoft.NET.Sdk">
   <PropertyGroup>
     <OutputType>Exe</OutputType>
-    <TargetFrameworks>net6.0;net8.0</TargetFrameworks>
+    <TargetFrameworks>net9.0</TargetFrameworks>
     <LangVersion>preview</LangVersion>
     <UseAppHost>true</UseAppHost>
     <PackAsTool>true</PackAsTool>