Changeset 32 in code for trunk/lib

Timestamp:

Nov 19, 2022, 11:37:52 AM (2 years ago)

Author:

fox

Message:

Use txt.conf:Authors for txt-new. Don't use Draft in filename

File:

• trunk/lib/file_store.ml (modified) (1 diff)

trunk/lib/file_store.ml

@@ -125 +125 @@
 
 let id_filename repo extension text =
-        let basename = Text.alias text in
-        let candidate = Filename.concat repo (text.id ^ "." ^ basename ^ extension) in
+        let description = match Text.alias text with "" -> "" | x -> "." ^ x in
+        let candidate = Filename.concat repo (text.id ^ description ^ extension) in
         if Sys.file_exists candidate then Error "Name clash, try again" else Ok candidate