Add support for Windows

Expand file path before saving Enables windows compatibility
justinbarclay · Jul 26, 2020 · 49324ea · 49324ea
1 parent f556148
commit 49324ea
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/parinfer-rust-helper.el b/parinfer-rust-helper.el
@@ -88,7 +88,7 @@ Uses PARINFER-RUST-VERSION to download a compatible version of the library."
                  (format "https://github.com/justinbarclay/parinfer-rust/releases/download/v%s/%s"
                          parinfer-rust-version
                          lib-name)
-                 library-location))
+                 (expand-file-name library-location)))
         (message "Installing %s v%s to %s" lib-name parinfer-rust-version library-location))
     (message "Unable to download parinfer-rust library because curl is not on $PATH")))
 

diff --git a/parinfer-rust-mode.el b/parinfer-rust-mode.el
@@ -72,7 +72,9 @@ against.")
   (defvar parinfer-rust--lib-name (cond
                                    ((eq system-type 'darwin) "parinfer-rust-darwin.so")
                                    ((eq system-type 'gnu/linux) "parinfer-rust-linux.so"
-                                    "parinfer-rust-linux.so")))
+                                    "parinfer-rust-linux.so")
+                                   ((eq system-type 'windows-nt) "parinfer-rust-windows.dll"
+                                    "parinfer-rust-windows.dll")))
   (defvar parinfer-rust-library
     (concat user-emacs-directory "parinfer-rust/" parinfer-rust--lib-name))
   (unless (bound-and-true-p module-file-suffix)
@@ -96,7 +98,9 @@ against.")
 (defconst parinfer-rust--lib-name (cond
                                    ((eq system-type 'darwin) "parinfer-rust-darwin.so")
                                    ((eq system-type 'gnu/linux) "parinfer-rust-linux.so"
-                                    "parinfer-rust-linux.so"))
+                                    "parinfer-rust-linux.so")
+                                   ((eq system-type 'windows-nt) "parinfer-rust-windows.dll"
+                                    "parinfer-rust-windows.dll"))
   "System dependent library name for `parinfer-rust-mode'.")