Add install home command (#137)

* Add install home command

Author: lwronski

modules/build/src/main/scala/scala/build/Directories.scala

@@ -4,6 +4,7 @@ import dev.dirs.{GetWinDirs, ProjectDirectories}
 
 trait Directories {
   def localRepoDir: os.Path
+  def binRepoDir: os.Path
   def completionsDir: os.Path
   def virtualProjectsDir: os.Path
   def bspSocketDir: os.Path
@@ -14,6 +15,8 @@ object Directories {
   final case class OsLocations(projDirs: ProjectDirectories) extends Directories {
     lazy val localRepoDir: os.Path =
       os.Path(projDirs.cacheDir, Os.pwd) / "local-repo"
+    lazy val binRepoDir: os.Path =
+      os.Path(localRepoDir, Os.pwd) / "bin"
     lazy val completionsDir: os.Path =
       os.Path(projDirs.dataLocalDir, Os.pwd) / "completions"
     lazy val virtualProjectsDir: os.Path =
@@ -27,6 +30,8 @@ object Directories {
   final case class SubDir(dir: os.Path) extends Directories {
     lazy val localRepoDir: os.Path =
       dir / "cache" / "local-repo"
+    lazy val binRepoDir: os.Path =
+      localRepoDir / "bin"
     lazy val completionsDir: os.Path =
       dir / "data-local" / "completions"
     lazy val virtualProjectsDir: os.Path =

modules/cli/src/main/scala/scala/cli/ScalaCli.scala

@@ -23,6 +23,7 @@ object ScalaCli extends CommandsEntryPoint {
     Export,
     Fmt,
     InstallCompletions,
+    InstallHome,
     Metabrowse,
     Repl,
     Package,

modules/cli/src/main/scala/scala/cli/commands/InstallHome.scala

@@ -0,0 +1,67 @@
+package scala.cli.commands
+
+import caseapp._
+import coursier.env.{EnvironmentUpdate, ProfileUpdater}
+import scala.io.StdIn.readLine
+
+import scala.util.Properties
+
+object InstallHome extends ScalaCommand[InstallHomeOptions] {
+  override def hidden: Boolean = true
+  def run(options: InstallHomeOptions, args: RemainingArgs): Unit = {
+
+    val binDirPath      = scala.build.Directories.default().binRepoDir
+    val scalaCliBinPath = binDirPath / "scala-cli"
+
+    if (os.exists(scalaCliBinPath)) {
+      if (options.force) os.remove.all(scalaCliBinPath)
+      else if (coursier.paths.Util.useAnsiOutput()) {
+        println(
+          "scala-cli already exists. Do you want to override it [Y/n]"
+        )
+        val replace = readLine()
+        if (replace == "Y") {
+          os.remove.all(scalaCliBinPath)
+        }
+        else {
+          System.err.println("Abort")
+          sys.exit(1)
+        }
+      }
+      else {
+        System.err.println(
+          s"Error: scala-cli already exists. Pass -f or --force to force erasing it."
+        )
+        sys.exit(1)
+      }
+    }
+
+    os.copy(
+      from = os.Path(options.scalaCliBinaryPath, os.pwd),
+      to = scalaCliBinPath / "scala-cli",
+      createFolders = true
+    )
+    if (!Properties.isWin)
+      os.perms.set(scalaCliBinPath / "scala-cli", os.PermSet.fromString("rwxrwxr-x"))
+
+    val update = EnvironmentUpdate(Nil, Seq("PATH" -> scalaCliBinPath.toString()))
+
+    val didUpdate =
+      if (Properties.isWin) {
+        val updater = CustomWindowsEnvVarUpdater().withUseJni(Some(coursier.paths.Util.useJni()))
+        updater.applyUpdate(update)
+      }
+      else {
+        val updater = ProfileUpdater()
+        updater.applyUpdate(update)
+      }
+
+    if (didUpdate) {
+      println("Successfully installed scala-cli")
+    }
+    else {
+      System.err.println(s"scala-cli is already installed")
+    }
+
+  }
+}

modules/cli/src/main/scala/scala/cli/commands/InstallHomeOptions.scala

@@ -0,0 +1,20 @@
+package scala.cli.commands
+
+import caseapp._
+
+// format: off
+@HelpMessage("Install scala-cli in a sub-directory of the home directory")
+final case class InstallHomeOptions(
+  @Group("InstallHome")  
+    scalaCliBinaryPath: String,
+  @Group("InstallHome")
+  @Name("f")
+  @HelpMessage("Overwrite scala-cli if exists")
+    force: Boolean = false,
+)
+// format: on
+
+object InstallHomeOptions {
+  implicit val parser = Parser[InstallHomeOptions]
+  implicit val help   = Help[InstallHomeOptions]
+}

website/docs/reference/cli-options.md

@@ -237,6 +237,7 @@ Available in commands:
 - [`export`](./commands#export)
 - [`fmt`](./commands#fmt)
 - [`install completions`](./commands#install-completions)
+- [`install-home`](./commands#install-home)
 - [`browse` / `metabrowse`](./commands#browse)
 - [`package`](./commands#package)
 - [`console` / `repl`](./commands#console)
@@ -285,6 +286,22 @@ Aliases: `--shell`
 
 #### `--env`
 
+## Install home options
+
+Available in commands:
+- [`install-home`](./commands#install-home)
+
+
+<!-- Automatically generated, DO NOT EDIT MANUALLY -->
+
+#### `--scala-cli-binary-path`
+
+#### `--force`
+
+Aliases: `-f`
+
+Overwrite scala-cli if exists
+
 ## Java options
 
 Available in commands:

website/docs/reference/commands.md

@@ -222,3 +222,10 @@ Accepts options:
 - [jvm](./cli-options.md#jvm-options)
 - [logging](./cli-options.md#logging-options)
 
+### `install-home`
+
+Install scala-cli in a sub-directory of the home directory
+
+Accepts options:
+- [install home](./cli-options.md#install-home-options)
+