Command banners

src/pkgchk-cli/Commands.fs

@@ -43,6 +43,11 @@ type PackageCheckCommandSettings() =
     [<DefaultValue(false)>]
     member val NoRestore = false with get, set
 
+    [<CommandOption("--no-banner")>]
+    [<Description("Don't show the banner.")>]
+    [<DefaultValue(false)>]
+    member val NoBanner = false with get, set
+
 [<ExcludeFromCodeCoverage>]
 type PackageCheckCommand() =
     inherit Command<PackageCheckCommandSettings>()
@@ -147,7 +152,10 @@ type PackageCheckCommand() =
     let trace value = $"[grey]{value}[/]" |> console
 
     override _.Execute(context, settings) =
-        let logging = if settings.TraceLogging then trace else (fun _ -> ignore 0)
+        let logging = if settings.TraceLogging then trace else (fun x -> ignore x)
+
+        if settings.NoBanner |> not then
+            $"[cyan]Pkgchk-Cli[/] version [white]{App.version ()}[/]" |> console
 
         match runRestore settings logging with
         | Choice2Of2 error -> error |> returnError

src/pkgchk-cli/Utils.fs

@@ -36,3 +36,17 @@ module HashSet =
     let ofSeq<'a> (comparer: IEqualityComparer<'a>) (values: seq<'a>) = new HashSet<'a>(values, comparer)
 
     let contains<'a> (hashSet: HashSet<'a>) = hashSet.Contains
+
+open System.Reflection
+
+module App =
+    let version () =
+        match
+            Assembly
+                .GetExecutingAssembly()
+                .GetCustomAttributes<AssemblyInformationalVersionAttribute>()
+            |> Seq.take 1
+            |> List.ofSeq
+        with
+        | [ x ] -> x.InformationalVersion
+        | _ -> ""