Add longest-filename analysis

src/AudioTagTools.DuplicateFinder/Tags.fs

@@ -101,7 +101,7 @@ let printDuplicates (groupedTracks: MultipleLibraryTags array option) =
             printf $"    • {artist}"
             printfGray " — "
             printf $"{title}"
-            printfGray $"  [{duration} {extNoPeriod} {bitRate} {fileSize}]{String.newLine}"
+            printfGray $"  [{duration} {extNoPeriod} {bitRate} {fileSize}]{String.nl}"
 
         let printHeader () =
             groupTracks
@@ -119,4 +119,3 @@ let printDuplicates (groupedTracks: MultipleLibraryTags array option) =
     match groupedTracks with
     | None -> printfn "No duplicates found."
     | Some group -> group |> Array.iteri printGroup
-

src/AudioTagTools.LibraryAnalysis/Analysis.fs

@@ -144,3 +144,12 @@ let topQualityData count tags =
            String.formatInt data.SampleRate
            String.formatInt count |])
 
+let longestFileNames count tags =
+    tags
+    |> Array.map (fun t -> t.FileName.Length, t)
+    |> Array.sortByDescending fst
+    |> Array.take count
+    |> Array.map (fun (count, t) ->
+        [| $"""{mainArtists "; " t}{String.nl}↪︎ {t.Title}"""
+           t.FileName
+           String.formatInt count |])

src/AudioTagTools.LibraryAnalysis/Library.fs

@@ -6,8 +6,8 @@ open Errors
 open Shared
 open Shared.TagLibrary
 open CCFSharpUtils.Library
-open FsToolkit.ErrorHandling
 open Spectre.Console
+open FsToolkit.ErrorHandling
 open FsToolkit.ErrorHandling.Operator.Result
 
 type QualityData =
@@ -29,76 +29,95 @@ let private run (args: string array) : Result<unit, AnalysisError> =
                    [| "Average file size"; String.formatBytes <| averageFileSize tags  |]
                    [| "Album art percentage"; $"%s{albumArtPercentage tags}" |] |]
             ColumnAlignments = [Justify.Left; Justify.Right]
+            ShowRowSeparators = false
         }
 
         printTable {
             Title = Some "Top Artists"
             Headers = Some ["Artist"; "Count"; "Ratio"]
             Rows = topArtists 30 tags
             ColumnAlignments = [Justify.Left; Justify.Right; Justify.Right]
+            ShowRowSeparators = false
         }
 
         printTable {
             Title = Some "Top Album Names"
             Headers = Some ["Album"; "Count"; "Ratio"]
             Rows = topAlbums 30 tags
             ColumnAlignments = [Justify.Left; Justify.Right; Justify.Right]
+            ShowRowSeparators = false
         }
 
         printTable {
             Title = Some "Top Titles"
             Headers = Some ["Title"; "Count"]
             Rows = topTitles 30 tags
             ColumnAlignments = [Justify.Left; Justify.Right]
+            ShowRowSeparators = false
         }
 
         printTable {
             Title = Some "Top Genres"
             Headers = Some ["Genre"; "Count"; "Ratio"]
             Rows = topGenres 30 tags
             ColumnAlignments = [Justify.Left; Justify.Right; Justify.Right]
+            ShowRowSeparators = false
         }
 
         printTable {
             Title = Some "Artists With The Most Genres"
             Headers = Some ["Artist"; "Count"; "Genres"]
             Rows = artistsWithMostGenres 20 tags
             ColumnAlignments = [Justify.Left; Justify.Right; Justify.Left]
+            ShowRowSeparators = false
         }
 
         printTable {
             Title = Some "Largest Files"
             Headers = Some ["File Size"; "Artist & Title"]
             Rows = largestFiles 20 tags |> Array.map Array.rev
             ColumnAlignments = [Justify.Right; Justify.Left]
+            ShowRowSeparators = false
         }
 
         printTable {
             Title = Some "Top Formats"
             Headers = Some ["Extension"; "Count"]
             Rows = topFormats 10 tags
             ColumnAlignments = [Justify.Left; Justify.Right]
+            ShowRowSeparators = false
         }
 
         printTable {
             Title = Some "Top Bitrates"
             Headers = Some ["Bitrate"; "Count"]
             Rows = topBitRates 10 tags
             ColumnAlignments = [Justify.Right; Justify.Right]
+            ShowRowSeparators = false
         }
 
         printTable {
             Title = Some "Top Sample Rates"
             Headers = Some ["Sample Rate"; "Count"]
             Rows = topSampleRates 10 tags
             ColumnAlignments = [Justify.Right; Justify.Right]
+            ShowRowSeparators = false
         }
 
         printTable {
             Title = Some "Top Quality Combinations"
             Headers = Some ["Format"; "Bit Rate"; "Sample Rate"; "Count"]
             Rows = topQualityData 10 tags
             ColumnAlignments = [Justify.Left; Justify.Right; Justify.Right; Justify.Right]
+            ShowRowSeparators = false
+        }
+
+        printTable {
+            Title = Some "Longest File Names"
+            Headers = Some ["Artist & Title"; "Filename"; "Length"]
+            Rows = longestFileNames 5 tags
+            ColumnAlignments = [Justify.Left; Justify.Left; Justify.Right]
+            ShowRowSeparators = true
         }
     }
 

src/AudioTagTools.Shared/Printing.fs

@@ -1,5 +1,3 @@
-// Be careful with color because we don't know the user's terminal color scheme,
-// so it's easy to unintentionally output invisible or hard-to-read text.
 [<AutoOpen>]
 module Shared.Printing
 
@@ -11,38 +9,44 @@ type TableData =
     { Title: string option
       Headers: string list option
       Rows: string array array
-      ColumnAlignments: Justify list }
+      ColumnAlignments: Justify list
+      ShowRowSeparators: bool }
 
+// Be careful with color because we don't know the user's terminal color scheme,
+// so it's easy to unintentionally output invisible or hard-to-read text.
 let printfColor color msg =
     Console.ForegroundColor <- color
-    printf $"%s{msg}"
+    printf $"%s{Markup.Escape msg}"
     Console.ResetColor()
 
 let printfnColor color msg =
-    printfColor color $"{msg}{String.newLine}"
+    printfColor color $"{msg}{String.nl}"
 
 let printTable tableData =
     let table = Table()
     table.Border <- TableBorder.SimpleHeavy
 
+    if tableData.ShowRowSeparators then
+        table.ShowRowSeparators() |> ignore
+
     match tableData.Headers with
     | Some header ->
-        header |> List.iter (fun h -> table.AddColumn h |> ignore)
+        header
+        |> List.iter (fun h -> h |> Markup.Escape |> table.AddColumn |> ignore)
     | None ->
         tableData.Rows[0] |> Array.iter (fun _ -> table.AddColumn String.Empty |> ignore)
         table.HideHeaders() |> ignore
 
     tableData.ColumnAlignments
-    |> List.iteri (fun i alignment -> table.Columns[i].Alignment(alignment) |> ignore)
+    |> List.iteri (fun i alignment -> table.Columns[i].Alignment alignment |> ignore)
 
     tableData.Rows
-    |> Array.iter (fun row -> table.AddRow row |> ignore)
+    |> Array.iter (fun rowItems -> rowItems |> Array.map Markup.Escape |> table.AddRow |> ignore)
 
     match tableData.Title with
     | Some tableTitle ->
         let panel = Panel table
-        panel.Header <- PanelHeader $"| {tableTitle} |"
+        panel.Header <- PanelHeader $"| {Markup.Escape tableTitle} |"
         AnsiConsole.Write panel
     | None ->
         AnsiConsole.Write table
-