From: Frank Duncan <frank@kank.net>
Date: Fri, 10 Dec 2021 11:40:44 +0000 (-0600)
Subject: Add project adds to server
X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=candle;a=commitdiff_plain;h=8bdc35f07f4763917d2d0e306b20e65b00a3c606

Add project adds to server
---

diff --git a/src/main/cli.lisp b/src/main/cli.lisp
index 006830e..fc3f7fc 100644
--- a/src/main/cli.lisp
+++ b/src/main/cli.lisp
@@ -46,6 +46,7 @@
     (let*
      ((name (subseq project-definition 0 pos))
       (src (subseq project-definition (1+ pos))))
+     (communication:query `(candle:add-project ,name ,src))
      (format t "Added project ~A at src definition ~A~%" name src))))))
 
 (defmethod execute-command ((command (eql :project)) args)