From: Frank Duncan <frank@kank.net>
Date: Sun, 12 Dec 2021 12:24:04 +0000 (-0600)
Subject: Add project --history
X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=candle;a=commitdiff_plain;h=3f7d82afc943450315c1884708b88b5e2ae91169

Add project --history
---

diff --git a/src/main/cli.lisp b/src/main/cli.lisp
index 0ab33e8..e451c80 100644
--- a/src/main/cli.lisp
+++ b/src/main/cli.lisp
@@ -17,6 +17,9 @@
    (:name :refresh :long "refresh" :takes-argument t :description
     "Refresh project named by NAME."
     :variable-name "NAME")
+   (:name :history :long "history" :takes-argument t :description
+    "Show history of project named by NAME."
+    :variable-name "NAME")
    (:name :delete :long "delete" :takes-argument t :description
     "Delete a project named by NAME."
     :variable-name "NAME")))
@@ -75,6 +78,21 @@
      (utils:time-as-list (third branch-info) :month :date :year :hr :min))))
   (sort (communication:query `(candle:project-branch-information ,name)) #'< :key #'third)))
 
+(defun project-history (name)
+ (mapcar
+  (lambda (job-info)
+   (format t "~A: ~A at ~A~%"
+    (first job-info)
+    (case (second job-info)
+     (:succeeded (format nil "~c[1;32mPassed~c[0m" #\Esc #\Esc))
+     (:failed (format nil "~c[1;31mFailed~c[0m" #\Esc #\Esc))
+     (:queued "In queue")
+     (:no-candle-file "No candle file present")
+     (:in-progress "In progress"))
+    (format nil "~{~A/~A/~A ~A:~A~}"
+     (utils:time-as-list (third job-info) :month :date :year :hr :min))))
+  (sort (communication:query `(candle:project-job-information ,name)) #'< :key #'third)))
+
 (defun refresh-project (name)
  (communication:query `(candle:refresh-project ,name))
  (format t "Refreshed project ~A~%" name))
@@ -88,6 +106,7 @@
    ((opera:option-present :delete options) (delete-project (opera:option-argument :delete options)))
    ((opera:option-present :show options) (show-project (opera:option-argument :show options)))
    ((opera:option-present :refresh options) (refresh-project (opera:option-argument :refresh options)))
+   ((opera:option-present :history options) (project-history (opera:option-argument :history options)))
    ((opera:option-present :add options) (add-project (opera:option-argument :add options))))))
 
 (defmethod execute-command ((command (eql :job)) args)
diff --git a/src/main/package.lisp b/src/main/package.lisp
index 65a7082..88e02c7 100644
--- a/src/main/package.lisp
+++ b/src/main/package.lisp
@@ -1,4 +1,7 @@
 (defpackage #:candle (:use :cl)
- (:export #:server #:add-project #:delete-project #:refresh-project #:project-branch-information #:run #:*candle-dir* #:*job-system*))
+ (:export
+  #:server #:add-project #:delete-project #:refresh-project
+  #:project-branch-information #:run #:*candle-dir* #:*job-system*
+  #:project-job-information))
 
 (defpackage #:candle-cli (:use :cl) (:export :run))
diff --git a/src/main/server.lisp b/src/main/server.lisp
index a97c1f5..07f587b 100644
--- a/src/main/server.lisp
+++ b/src/main/server.lisp
@@ -82,3 +82,15 @@
      (job-create-date (branch-job branch))
      (job-sha (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 exists"))
+  (mapcar
+   (lambda (job)
+    (list
+     (job-sha job)
+     (job-status job)
+     (job-create-date job)))
+   (find-job-by-project project))))