From 1c166b15e5e0e2ed6ba101a12a2ee9d717eb4524 Mon Sep 17 00:00:00 2001 From: Matjaz Gregoric Date: Sat, 13 Nov 2010 09:54:39 +0100 Subject: [PATCH] Use a more portable way of getting user's home folder. --- src/leiningen/install.clj | 2 +- src/leiningen/plugin.clj | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/leiningen/install.clj b/src/leiningen/install.clj index 5e7a607c..ab7b3d4d 100644 --- a/src/leiningen/install.clj +++ b/src/leiningen/install.clj @@ -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) diff --git a/src/leiningen/plugin.clj b/src/leiningen/plugin.clj index e76bb751..7bf4f9f0 100644 --- a/src/leiningen/plugin.clj +++ b/src/leiningen/plugin.clj @@ -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)]