Added the migrate command to update old library files.

b0wter · b0wter · commit 3aac33fa454e · 2021-04-01T22:36:31.000+02:00
diff --git a/README.md b/README.md
@@ -4,6 +4,13 @@ This is a simple CLI tool that allows you to manage your audio book library.
 
 ![Example using the table formatter](https://raw.githubusercontent.com/b0wter/fbrary/master/example.png)
 
+Updating from version 1.x
+=========================
+In case you have an old library files from a previous version you need run the `migrate` command to update your library file to the current standard:
+```bash
+./fbrary -l $LIBRARY_FILENAME migrate
+```
+
 Commands
 ========
 The application is run in a style similar to `git`. There are several commands to manipulate/list your library.
diff --git a/src/cli/Arguments.fs b/src/cli/Arguments.fs
@@ -98,6 +98,7 @@ module Arguments =
         | [<CliPrefix(CliPrefix.None)>] Files of ParseResults<FilesArgs>
         | [<CliPrefix(CliPrefix.None)>] Unmatched of string
         | [<CliPrefix(CliPrefix.None)>] Write of ParseResults<WriteArgs>
+        | [<CliPrefix(CliPrefix.None)>] Migrate
         | [<CliPrefix(CliPrefix.DoubleDash); First>] Version
         interface IArgParserTemplate with
             member s.Usage =
@@ -115,5 +116,6 @@ module Arguments =
                 | Files _ -> "List all files of an audio book. Use the `list` command to find book ids."
                 | Unmatched _ -> "Reads all mp3/ogg files in the given paths and checks if all files are known to the library."
                 | Write _ -> "Write the meta data stored in the library to the actual mp3/ogg files."
+                | Migrate -> "Migrate an old library file to the current format."
                 | Version -> "Echo the version of this software."
                 
diff --git a/src/cli/Config.fs b/src/cli/Config.fs
@@ -174,6 +174,7 @@ module Config =
         | Files of FilesConfig
         | Uninitialized
         | Write of WriteConfig
+        | Migrate
         | Version
     
     type Config = {
@@ -316,6 +317,8 @@ module Config =
                               | _ -> emptyWriteConfig
             let updatedWriteConfig = w.GetAllResults() |> List.fold applyWriteArg writeConfig
             { config with Command = Write updatedWriteConfig }
+        | MainArgs.Migrate ->
+            { config with Command = Migrate }
         | MainArgs.Version ->
             { config with Command = Version }
             
diff --git a/src/cli/Program.fs b/src/cli/Program.fs
@@ -380,6 +380,42 @@ module Program =
             return 0
         }
         
+    let migrateLibrary (libraryFile: string) =
+        result {
+            // Make sure the config no longer uses the `LastScanned` field.
+            do printfn "Making sure the `LastScanned` field is replaced with `LastUpdated`."
+            let! content = IO.readTextFromFile libraryFile
+            let updatedContent = content.Replace("\"LastScanned\": \"", "\"LastUpdated\": \"")
+            let! library = Library.deserialize updatedContent
+            let updatedLibrary = { library with LastUpdated = DateTime.Now }
+            
+            // Update paths in the config to be absolute.
+            do printfn "Making sure the sources use absolute paths."
+            let rootPath = Path.GetDirectoryName libraryFile
+            let rootPath = Path.Combine(Environment.CurrentDirectory, rootPath)
+            let updateSource (book: Audiobook.Audiobook) : Audiobook.Audiobook =
+                do printfn "Migrating relative path to use the root '%s'." rootPath
+                let combinator (rootPath: string) (filename: string) =
+                    if filename.StartsWith(rootPath) then
+                        do printfn "Skipping '%s' because it already starts with the root path." filename
+                        filename
+                    else
+                        let updated = Path.Combine(rootPath, filename)
+                        do printfn "Updated '%s' to '%s'." filename updated
+                        updated
+                    
+                let configuredCombinator = combinator rootPath
+                let updatedSource = match book.Source with
+                                    | Audiobook.AudiobookSource.SingleFile f ->
+                                        configuredCombinator f |> Audiobook.AudiobookSource.SingleFile
+                                    | Audiobook.AudiobookSource.MultiFile m ->
+                                        m |> List.map configuredCombinator |> Audiobook.AudiobookSource.MultiFile 
+                { book with Source = updatedSource }
+            let updatedFilesLibrary = { library with Audiobooks = updatedLibrary.Audiobooks |> List.map updateSource }
+            do! updatedFilesLibrary |> Library.serialize |> IO.writeTextToFile libraryFile
+            return 0
+        }
+        
     [<EntryPoint>]
     let main argv =
         let r = result {
@@ -420,6 +456,8 @@ module Program =
                 return 1
             | Config.Write writeConfig ->
                 return! write config.LibraryFile writeConfig
+            | Config.Migrate ->
+                return! migrateLibrary config.LibraryFile
             | Config.Version ->
                 do printfn "%s" Version.current
                 return 0
