From: Frank Duncan Date: Sun, 12 Dec 2021 12:24:04 +0000 (-0600) Subject: Add project --history X-Git-Url: https://code.consxy.com/gitweb/?a=commitdiff_plain;h=3f7d82afc943450315c1884708b88b5e2ae91169;hp=60ff10e07aacdca433315c1115cbfed21cc44bfe;p=candle 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))))