repl api lspack:start

lspack.asd

@@ -2,7 +2,7 @@
   :author "Emre Akan"
   :description "Quickstart Common Lisp projects"
   :license "GPL-3.0"
-  :version "0.0.1"
+  :version "0.0.2"
   :depends-on ("uiop")
   :pathname "src/"
   :serial t

src/package.lisp

@@ -1,2 +1,3 @@
 (defpackage :lspack
-  (:use :cl))
+  (:use :cl)
+  (:export :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)))
+