@@ -51,27 +51,15 @@ let getTemplateOptions = () =>
5151 hint : shortDescription ,
5252 })
5353
54- let createNewProject = async () => {
55- P .note (~title = "New Project" , ~message = newProjectMessage )
56- 57- let projectName = await P .text ({
58- message : "What is the name of your new ReScript project?" ,
59- placeholder : "my-rescript-app" ,
60- initialValue : ?Process .argv [2 ],
61- validate : validateProjectName ,
62- })-> P .resultOrRaise
63- 64- let templateName =
65- await P .select ({message : "Select a template" , options : getTemplateOptions ()})-> P .resultOrRaise
66- 67- let versions = await RescriptVersions .promptVersions ()
68- 54+ let createProject = async (~templateName , ~projectName , ~versions ) => {
6955 let templatePath = CraPaths .getTemplatePath (~templateName )
7056 let projectPath = Path .join2 (Process .cwd (), projectName )
7157
7258 let s = P .spinner ()
7359
74- s -> P .Spinner .start ("Creating project..." )
60+ if ! CI .isRunningInCI {
61+ s -> P .Spinner .start ("Creating project..." )
62+ }
7563
7664 await Fs .Promises .cp (templatePath , projectPath , ~options = {recursive : true })
7765 Process .chdir (projectPath )
@@ -83,5 +71,34 @@ let createNewProject = async () => {
8371 await RescriptVersions .installVersions (versions )
8472 let _ = await Promisified .ChildProcess .execFile ("git" , ["init" ])
8573
86- s -> P .Spinner .stop ("Project created." )
74+ if ! CI .isRunningInCI {
75+ s -> P .Spinner .stop ("Project created." )
76+ }
77+ }
78+ 79+ let createNewProject = async () => {
80+ P .note (~title = "New Project" , ~message = newProjectMessage )
81+ 82+ if CI .isRunningInCI {
83+ // type versions = {rescriptVersion: string, rescriptCoreVersion: string}
84+ await createProject (
85+ ~templateName = "rescript-template-basic" ,
86+ ~projectName = "test" ,
87+ ~versions = {rescriptVersion : "11.1.1" , rescriptCoreVersion : "1.5.0" },
88+ )
89+ } else {
90+ let projectName = await P .text ({
91+ message : "What is the name of your new ReScript project?" ,
92+ placeholder : "my-rescript-app" ,
93+ initialValue : ?Process .argv [2 ],
94+ validate : validateProjectName ,
95+ })-> P .resultOrRaise
96+ 97+ let templateName =
98+ await P .select ({message : "Select a template" , options : getTemplateOptions ()})-> P .resultOrRaise
99+ 100+ let versions = await RescriptVersions .promptVersions ()
101+ 102+ await createProject (~templateName , ~projectName , ~versions )
103+ }
87104}
0 commit comments