fix: Skip emacs backup files

artempyanykh · Nov 25, 2022 · 0ad3341 · 0ad3341
1 parent e7c466f
commit 0ad3341
Showing 1 changed file with 13 additions and 4 deletions.
diff --git a/Marksman/Misc.fs b/Marksman/Misc.fs
@@ -19,11 +19,20 @@ let mkWatchGlob (configuredExts: seq<string>) : string =
     $"**/*.{ext_pattern}"
 
 let isMarkdownFile (configuredExts: seq<string>) (path: string) : bool =
-    // GetExtension returns extension with a '.'. In config we don't have '.'s.
-    let ext = (Path.GetExtension path).TrimStart('.')
-    let ext = ext.ToLowerInvariant()
+    let isEmacsBackup =
+        try
+            (Path.GetFileName path).StartsWith(".#")
+        with :? ArgumentException ->
+            false
+
+    if isEmacsBackup then
+        false
+    else
+        // GetExtension returns extension with a '.'. In config we don't have '.'s.
+        let ext = (Path.GetExtension path).TrimStart('.')
+        let ext = ext.ToLowerInvariant()
 
-    Seq.contains ext configuredExts
+        Seq.contains ext configuredExts
 
 type String with