Add project --history

diff --git a/src/main/cli.lisp b/src/main/cli.lisp
index 0ab33e816121b88fafb77ae29f5c629ac875c0e8..e451c8041659b44720cc71148321eb54f91bb81a 100644 (file)
--- 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 :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")))
    (: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)))
 
      (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))
 (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 :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)
    ((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 65a708296587ce2ae40015a2e50950cefe7c8345..88e02c7c73a1e1dbb990c4a84c6537ae4f7fe3f3 100644 (file)
--- a/src/main/package.lisp
+++ b/src/main/package.lisp
@@ -1,4 +1,7 @@
 (defpackage #:candle (:use :cl)
 (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))
 
 (defpackage #:candle-cli (:use :cl) (:export :run))

diff --git a/src/main/server.lisp b/src/main/server.lisp
index a97c1f56778f6eb364ce993cd5658045b8a4c8e6..07f587b0753e356e1528a152adbbd678e43b664d 100644 (file)
--- 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)))))
      (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))))