repl api lspack:start

src/starter.lisp

@@ -34,14 +34,6 @@
              :initform *default-pathname*
              :type string)))
 
-(defparameter *test-project*
-  (make-instance '<project>
-                 :project-root #P"/tmp/tempo/"
-                 :project-name "my-project"
-                 :project-author "name"
-                 :project-description "a project"
-                 :project-license :mit))
-
 (defmethod project-defsystem-write ((project <project>) stream)
   (with-slots (name author description license version pathname)
       project
@@ -125,5 +117,14 @@
   (project-ensure-source-directory project)
   (project-create-package project))
 
-;; (defun start (name &key (author "") (description "") (license ""))
-;;   "Intended to be called interactively by the user at the repl")
+(defun start (name project-root &key (author *default-author*) (description "") (license *default-license*))
+  "Intended to be called interactively by the user at the repl"
+  (let ((project (make-instance
+                  '<project>
+                  :project-root (uiop:ensure-directory-pathname project-root)
+                  :project-name name
+                  :project-author author
+                  :project-description description
+                  :project-license license)))
+    (project-start project)))
+