Fix argument order for install & plugin install.

This was breaking installs of things like
org.clojars.trptcolin/libthrift (where the group ID had
periods).

src/leiningen/install.clj

@@ -58,7 +58,7 @@ from a remote repository. May place shell wrappers in ~/.lein/bin."
      (let [[name group] ((juxt name namespace) (symbol project-name))
            _ (standalone-download name (or group name) version)
            temp-project (format "%s/lein-%s" tmp-dir (UUID/randomUUID))
-           jarfile (-> (local-repo-path name (or group name) version)
+           jarfile (-> (local-repo-path (or group name) name version)
                         (.replace "$HOME" (System/getProperty "user.home")))]
        (install-shell-wrappers (JarFile. jarfile))
        ;; TODO: use lancet/unjar?

src/leiningen/plugin.clj

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

test/test_install.clj

@@ -37,3 +37,22 @@
   (install "nomnomnom" "0.5.0-SNAPSHOT")
   (is (not (empty? (.listFiles jdom-dir))))
   (is (.exists unix-shell-wrapper)))
+
+(defonce test-project-tricky-name (read-project "test_projects/tricky-name/project.clj"))
+(def tricky-m2-dir (file local-repo "org" "domain" "tricky-name" "1.0"))
+(def tricky-unix-shell-wrapper (file (home-dir) "bin" "tricky-name"))
+(def tricky-windows-shell-wrapper (file (home-dir) "bin" "tricky-name.bat"))
+(defn delete-tricky-shell-wrappers []
+  (.delete tricky-unix-shell-wrapper)
+  (.delete tricky-windows-shell-wrapper))
+
+(deftest test-tricky-name-install
+  (delete-file-recursively tricky-m2-dir true)
+  (delete-shell-wrappers)
+  (install test-project-tricky-name)
+  (install "org.domain/tricky-name" "1.0")
+  (is (not (empty? (.listFiles tricky-m2-dir))))
+  (is (.exists tricky-unix-shell-wrapper))
+  (if (= :windows (get-os))
+    (is (.exists tricky-windows-shell-wrapper))
+    (is (not (.exists tricky-windows-shell-wrapper)))))