TS SDK Setup

waspc/cli/exe/Main.hs

@@ -32,6 +32,7 @@ import qualified Wasp.Cli.Command.Start.Db as Command.Start.Db
 import Wasp.Cli.Command.Studio (studio)
 import qualified Wasp.Cli.Command.Telemetry as Telemetry
 import Wasp.Cli.Command.Test (test)
+import Wasp.Cli.Command.TsConfigSetup (tsConfigSetup)
 import Wasp.Cli.Command.Uninstall (uninstall)
 import Wasp.Cli.Command.WaspLS (runWaspLS)
 import Wasp.Cli.Message (cliSendMessage)
@@ -51,6 +52,7 @@ main = withUtf8 . (`E.catch` handleInternalErrors) $ do
         ["start"] -> Command.Call.Start
         ["start", "db"] -> Command.Call.StartDb
         ["clean"] -> Command.Call.Clean
+        ["ts-setup"] -> Command.Call.TsSetup
         ["compile"] -> Command.Call.Compile
         ("db" : dbArgs) -> Command.Call.Db dbArgs
         ["uninstall"] -> Command.Call.Uninstall
@@ -102,6 +104,7 @@ main = withUtf8 . (`E.catch` handleInternalErrors) $ do
     Command.Call.Start -> runCommand start
     Command.Call.StartDb -> runCommand Command.Start.Db.start
     Command.Call.Clean -> runCommand clean
+    Command.Call.TsSetup -> runCommand tsConfigSetup
     Command.Call.Compile -> runCommand compile
     Command.Call.Db dbArgs -> dbCli dbArgs
     Command.Call.Version -> printVersion

waspc/cli/src/Wasp/Cli/Command/Call.hs

@@ -7,6 +7,7 @@ data Call
   | StartDb
   | Clean
   | Uninstall
+  | TsSetup
   | Compile
   | Db Arguments -- db args
   | Build

waspc/cli/src/Wasp/Cli/Command/Common.hs

@@ -5,8 +5,8 @@ module Wasp.Cli.Command.Common
   )
 where
 
-import Control.Monad.Except
 import qualified Control.Monad.Except as E
+import Control.Monad.IO.Class (liftIO)
 import StrongPath (Abs, Dir, Path')
 import qualified StrongPath as SP
 import StrongPath.Operations

waspc/cli/src/Wasp/Cli/Command/CreateNewProject/StarterTemplates/Templating.hs

@@ -9,6 +9,7 @@ import qualified Data.Text as T
 import StrongPath (Abs, Dir, File, Path')
 import Wasp.Cli.Command.CreateNewProject.Common (defaultWaspVersionBounds)
 import Wasp.Cli.Command.CreateNewProject.ProjectDescription (NewProjectAppName, NewProjectName)
+import Wasp.NodePackageFFI (InstallablePackage (WaspConfigPackage), getPackageInstallationPath)
 import Wasp.Project.Analyze (WaspFilePath (..), findWaspFile)
 import Wasp.Project.Common (WaspProjectDir)
 import Wasp.Project.ExternalConfig.PackageJson (findPackageJsonFile)
@@ -43,8 +44,16 @@ replaceTemplatePlaceholdersInPackageJsonFile appName projectName projectDir =
     Just absPackageJsonFile -> replaceTemplatePlaceholdersInFileOnDisk appName projectName absPackageJsonFile
 
 replaceTemplatePlaceholdersInFileOnDisk :: NewProjectAppName -> NewProjectName -> Path' Abs (File f) -> IO ()
-replaceTemplatePlaceholdersInFileOnDisk appName projectName =
-  updateFileContentWith (replacePlaceholders waspTemplateReplacements)
+replaceTemplatePlaceholdersInFileOnDisk appName projectName file = do
+  waspConfigPackagePath <- getPackageInstallationPath WaspConfigPackage
+  let waspTemplateReplacements =
+        [ ("__waspConfigPath__", waspConfigPackagePath),
+          ("__waspAppName__", show appName),
+          ("__waspProjectName__", show projectName),
+          ("__waspVersion__", defaultWaspVersionBounds)
+        ]
+  -- TODO: We do this in all files, but not all files have all placeholders
+  updateFileContentWith (replacePlaceholders waspTemplateReplacements) file
   where
     updateFileContentWith :: (Text -> Text) -> Path' Abs (File f) -> IO ()
     updateFileContentWith updateFn absFilePath = IOUtil.readFileStrict absFilePath >>= IOUtil.writeFileFromText absFilePath . updateFn
@@ -53,9 +62,3 @@ replaceTemplatePlaceholdersInFileOnDisk appName projectName =
     replacePlaceholders replacements content = foldl' replacePlaceholder content replacements
       where
         replacePlaceholder content' (placeholder, value) = T.replace (T.pack placeholder) (T.pack value) content'
-
-    waspTemplateReplacements =
-      [ ("__waspAppName__", show appName),
-        ("__waspProjectName__", show projectName),
-        ("__waspVersion__", defaultWaspVersionBounds)
-      ]

waspc/cli/src/Wasp/Cli/Command/TsConfigSetup.hs

@@ -0,0 +1,38 @@
+module Wasp.Cli.Command.TsConfigSetup (tsConfigSetup) where
+
+import Control.Concurrent (Chan, newChan)
+import Control.Concurrent.Async (concurrently)
+import Control.Monad.Except (throwError)
+import Control.Monad.IO.Class (liftIO)
+import StrongPath (Abs, Dir, Path')
+import System.Exit (ExitCode (..))
+import Wasp.Cli.Command (Command, CommandError (..), require)
+import Wasp.Cli.Command.Require (InWaspProject (InWaspProject))
+import qualified Wasp.Generator.Job as J
+import Wasp.Generator.Job.IO (readJobMessagesAndPrintThemPrefixed)
+import Wasp.Generator.Job.Process (runNodeCommandAsJob)
+import Wasp.NodePackageFFI (InstallablePackage (WaspConfigPackage), getPackageInstallationPath)
+
+-- | Prepares the project for using Wasp's TypeScript SDK.
+tsConfigSetup :: Command ()
+tsConfigSetup = do
+  InWaspProject waspProjectDir <- require
+  messageChan <- liftIO newChan
+  -- NOTE: We're also installing the user's package.json dependencies here
+  -- This is to provide proper IDE support for users working with the TS SDK
+  -- (it needs the `wasp-config` package).
+  liftIO (installWaspConfigPackage messageChan waspProjectDir)
+    >>= onLeftThrowError
+  where
+    onLeftThrowError = either (throwError . CommandError "npm install failed") pure
+
+installWaspConfigPackage :: Chan J.JobMessage -> Path' Abs (Dir a) -> IO (Either String ())
+installWaspConfigPackage chan projectDir = do
+  installationPath <- getPackageInstallationPath WaspConfigPackage
+  (_, exitCode) <-
+    concurrently
+      (readJobMessagesAndPrintThemPrefixed chan)
+      (runNodeCommandAsJob projectDir "npm" ["install", "--save-dev", "file:" ++ installationPath] J.Wasp chan)
+  return $ case exitCode of
+    ExitSuccess -> Right ()
+    ExitFailure _ -> Left "Failed to install wasp-config package"

waspc/packages/wasp-config/.gitignore

@@ -0,0 +1,4 @@
+node_modules/
+dist/
+.env
+.vscode/

waspc/packages/wasp-config/.prettierrc.json

@@ -0,0 +1,6 @@
+{
+  "trailingComma": "es5",
+  "tabWidth": 2,
+  "semi": false,
+  "singleQuote": true
+}

waspc/packages/wasp-config/eslint.config.js

@@ -0,0 +1,26 @@
+import globals from "globals";
+import pluginJs from "@eslint/js";
+import tseslint from "typescript-eslint";
+
+export default [
+  pluginJs.configs.recommended,
+  ...tseslint.configs.strict,
+  // Todo: explore typed-linting: https://typescript-eslint.io/getting-started/typed-linting
+  {
+    languageOptions: {
+      globals: globals.node,
+    },
+  },
+  // global ignore
+  {
+    ignores: ["node_modules/", "dist/"],
+  },
+  {
+    rules: {
+      "@typescript-eslint/no-unused-vars": "warn",
+      "@typescript-eslint/no-empty-function": "warn",
+      "no-empty": "warn",
+      "no-constant-condition": "warn",
+    },
+  },
+];

waspc/packages/wasp-config/nodemon.json

@@ -0,0 +1,6 @@
+{
+    "watch": [
+        "./src/**/*.ts"
+    ],
+    "exec": "tsc || exit 1"
+}