[utils]: feat add windows support

fixes #25

fnl/tangerine/utils/README.md

@@ -52,12 +52,14 @@ utils[env]
 ```fennel
 :path {
 	:goto-output    (function 1)
-	:resolve        (function 2)
-	:shortname      (function 3)
-	:source         (function 4)
-	:target         (function 5)
-	:transform-path (function 6)
-	:wildcard       (function 7)
+	:gsub           (function 2)
+	:match          (function 3)
+	:resolve        (function 4)
+	:shortname      (function 5)
+	:source         (function 6)
+	:target         (function 7)
+	:transform-path (function 8)
+	:wildcard       (function 9)
 }
 ```
 

fnl/tangerine/utils/fs.fnl

@@ -16,7 +16,9 @@
 
 (lambda fs.write [path content]
   "writes string of 'content' to 'path'."
-  (local dir (path:match "(.*/)"))
+  (local dir (if (= _G.jit.os "Windows")
+                 (path:match "(.*[/\\])")
+                 (path:match "(.*/)")))
   (if (= 0 (vim.fn.isdirectory dir))
       (vim.fn.mkdir dir :p))
   (with-open [file (assert (io.open path :w))]

fnl/tangerine/utils/path.fnl

@@ -9,11 +9,25 @@
 ;; -------------------- ;;
 ;;        Utils         ;;
 ;; -------------------- ;;
+(local windows? (= _G.jit.os "Windows"))
+
+(lambda p.match [path pattern]
+  "matches 'path' against 'pattern' with support for windows."
+  (if windows?
+    (path:match (pattern:gsub "/" "[\\/]"))
+    (path:match pattern)))
+
+(lambda p.gsub [path pattern repl]
+  "substitutes 'pattern' in 'path' for 'repl' with support for windows."
+  (if windows?
+    (path:gsub (pattern:gsub "/" "[\\/]") repl)
+    (path:gsub pattern repl)))
+
 (lambda p.shortname [path]
   "shortens absolute 'path' for better readability."
-  (or (path:match ".+/fnl/(.+)")
-      (path:match ".+/lua/(.+)")
-      (path:match ".+/(.+/.+)")))
+  (or (p.match path ".+/fnl/(.+)")
+      (p.match path ".+/lua/(.+)")
+      (p.match path ".+/(.+/.+)")))
 
 (lambda p.resolve [path]
   "resolves 'path' to POSIX complaint path."
@@ -36,7 +50,7 @@
         path (path:gsub (.. "%." ext1 "$") (.. "." ext2))]
        (if (path:find from)
            (path:gsub from to)
-           (path:gsub (.. "/" ext1 "/") (.. "/" ext2 "/")))))
+           (p.gsub path (.. "/" ext1 "/") (.. "/" ext2 "/")))))
 
 (lambda p.target [path]
   "converts fnl:'path' to valid target path."