Merge pull request #268 from fukamachi/change-init-message-color

Change the color of a message by 'qlot init'.

src/cli.lisp

@@ -388,12 +388,15 @@ OPTIONS:
          (uiop:quit -1)))
 
       (ensure-package-loaded :qlot/init)
-      (let* ((qlfile (uiop:symbol-call '#:qlot/init '#:init-project *default-pathname-defaults*
-                                       :dist primary-dist))
-             (qlfile.lock (make-pathname :type "lock"
-                                         :defaults qlfile)))
-        (unless (uiop:file-exists-p qlfile.lock)
-          (warn-message "Run 'qlot install' to set up the project-local Quicklisp."))))))
+      (multiple-value-bind (qlfile created)
+          (uiop:symbol-call '#:qlot/init '#:init-project *default-pathname-defaults*
+                            :dist primary-dist)
+        (let ((qlfile.lock (make-pathname :type "lock"
+                                          :defaults qlfile)))
+          (when created
+            (message (color-text :green "Successfully initialized!")))
+          (unless (uiop:file-exists-p qlfile.lock)
+            (message "Run 'qlot install' to set up the project-local Quicklisp.")))))))
 
 (defun qlot-command-exec (argv)
   (flet ((print-exec-usage ()

src/init.lisp

@@ -38,9 +38,10 @@
        (error 'qlot-simple-error
               :format-control "Directory does not exist: ~A"
               :format-arguments (list object)))
-     (let ((qlfile (merge-pathnames *default-qlfile* object)))
+     (let* ((qlfile (merge-pathnames *default-qlfile* object))
+            (qlfile-exists (uiop:file-exists-p qlfile)))
        ;; Create 'qlfile'
-       (unless (uiop:file-exists-p qlfile)
+       (unless qlfile-exists
          (message "Creating ~A" qlfile)
          (with-open-file (out qlfile
                               :if-does-not-exist :create
@@ -61,4 +62,4 @@
                                     :if-does-not-exist :create
                                     :if-exists :append)
                  (format out "~&.qlot/~%"))))))
-       qlfile))))
+       (values qlfile (not qlfile-exists))))))