X-Git-Url: https://code.consxy.com/gitweb/?a=blobdiff_plain;f=src%2Fmain%2Fserver.lisp;h=1f9a96cc1d2fd2888995c1f998c6a627911cef28;hb=3a2cf4eb03820694e101691d8c49e76ed091426c;hp=a97c1f56778f6eb364ce993cd5658045b8a4c8e6;hpb=60ff10e07aacdca433315c1115cbfed21cc44bfe;p=candle

diff --git a/src/main/server.lisp b/src/main/server.lisp
index a97c1f5..1f9a96c 100644
--- a/src/main/server.lisp
+++ b/src/main/server.lisp
@@ -64,21 +64,42 @@
 (defun delete-project (name)
  (let
   ((project (find name *all-project* :test #'string= :key #'project-name)))
-  (when (not project) (error "Project does not exists"))
+  (when (not project) (error "Project does not exist"))
   (sb-ext:delete-directory (project-dir project) :recursive t)
   (mapcar #'nremove-job (find-job-by-project project))
   (mapcar #'nremove-branch (find-branch-by-project project))
   (nremove-project project)))
 
+(defun job->job-information (job)
+ (list (job-sha job) (job-status job) (job-create-date job)))
+
 (defun project-branch-information (name)
  (let
   ((project (find name *all-project* :test #'string= :key #'project-name)))
-  (when (not project) (error "Project does not exists"))
+  (when (not project) (error "Project does not exist"))
   (mapcar
    (lambda (branch)
     (list
      (branch-name branch)
-     (job-status (branch-job branch))
-     (job-create-date (branch-job branch))
-     (job-sha (branch-job branch))))
+     (job->job-information (branch-job branch))))
    (remove-if-not #'branch-in-git (find-branch-by-project project)))))
+
+(defun project-job-information (name)
+ (let
+  ((project (find name *all-project* :test #'string= :key #'project-name)))
+  (when (not project) (error "Project does not exist"))
+  (mapcar #'job->job-information (find-job-by-project project))))
+
+(defun get-job-log (project-name sha)
+ (let*
+  ((project (find project-name *all-project* :test #'string= :key #'project-name))
+   (job
+    (when project
+     (find-if
+      (lambda (job-sha)
+       (and (<= (length sha) (length job-sha)) (string= sha (subseq job-sha 0 (length sha)))))
+     (find-job-by-project project)
+     :key #'job-sha))))
+  (when (not project) (error "Project does not exist"))
+  (when (not job) (error "Job does not exist"))
+  (job-log job)))