yogsototh/leiningen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use a more portable way of getting user's home folder.

Browse source
This commit is contained in:
Matjaz Gregoric 2010-11-13 09:54:39 +01:00
parent f4d254e04c
commit 1c166b15e5
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/leiningen/install.clj
View file

@ -52,7 +52,7 @@ from a remote repository. May place shell wrappers in ~/.lein/bin."
_ (standalone-download name (or group name) version)
temp-project (format "/tmp/lein-%s" (java.util.UUID/randomUUID))
jarfile (-> (local-repo-path name (or group name) version)
(.replace "$HOME" (System/getenv "HOME")))]
(.replace "$HOME" (System/getProperty "user.home")))]
(install-shell-wrapper (JarFile. jarfile))
;; TODO: use lancet/unjar?
(try (extract-jar (file jarfile) temp-project)

2
src/leiningen/plugin.clj
View file

@ -32,7 +32,7 @@ Syntax: lein plugin install [GROUP/]ARTIFACT-ID VERSION
(let [[name group] (extract-name-and-group project-name)
temp-project (format "/tmp/lein-%s" (java.util.UUID/randomUUID))
jarfile (-> (local-repo-path name (or group name) version)
(.replace "$HOME" (System/getenv "HOME")))
(.replace "$HOME" (System/getProperty "user.home")))
_ (extract-jar (file jarfile) temp-project)
project (read-project (format "%s/project.clj" temp-project))
standalone-filename (plugin-standalone-filename group name version)]