X-Git-Url: https://code.consxy.com/gitweb/?a=blobdiff_plain;f=src%2Fmain%2Fcli.lisp;h=ee917b3c98e1acb9bb9f881a72b9770d5f1860b8;hb=3a2cf4eb03820694e101691d8c49e76ed091426c;hp=3b4243e11d3ccaa93ed8e3db8351ba1c15685a38;hpb=c8f9d56d5625b80407c3881f2039295a2496d9b3;p=candle

diff --git a/src/main/cli.lisp b/src/main/cli.lisp
index 3b4243e..ee917b3 100644
--- a/src/main/cli.lisp
+++ b/src/main/cli.lisp
@@ -14,13 +14,21 @@
    (:name :show :long "show" :takes-argument t :description
     "Show branch information for a project named by NAME."
     :variable-name "NAME")
+   (:name :refresh :long "refresh" :takes-argument t :description
+    "Refresh project named by NAME."
+    :variable-name "NAME")
    (:name :delete :long "delete" :takes-argument t :description
     "Delete a project named by NAME."
     :variable-name "NAME")))
 
 (defun job-options ()
  '((:name :help :short "h" :long "help" :description "Print this usage.")
-   (:name :project-name :long "project" :takes-argument t :description "The project name for the jobs under consideration.")))
+   (:name :project-name :long "project" :takes-argument t
+    :variable-name "PROJECT"
+    :description "The project name for the jobs under consideration.  Required argumnet.")
+   (:name :log :long "log" :takes-argument t
+    :variable-name "SHA"
+    :description "Show's the processing log for job at sha SHA.  SHA can be truncated.")))
 
 (defun run-options ()
  '((:name :help :short "h" :long "help" :description "Print this usage.")))
@@ -56,20 +64,41 @@
  (communication:query `(candle:delete-project ,name))
  (format t "Removed project ~A~%" name))
 
+(defun job-info->line (job-info)
+ (format nil "~A (~A) ~A"
+  (subseq (first job-info) 0 8)
+  (format nil "~{~A/~A/~A ~A:~A~}"
+   (utils:time-as-list (third job-info) :month :date :year :hr :min))
+  (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"))))
+
 (defun show-project (name)
- (mapcar
-  (lambda (branch-info)
-   (format t "~A: ~A at ~A~%"
-    (first branch-info)
-    (case (second branch-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 branch-info) :month :date :year :hr :min))))
-  (sort (communication:query `(candle:project-branch-information ,name)) #'< :key #'third)))
+ (let*
+  ((branch-infos (communication:query `(candle:project-branch-information ,name)))
+   (width (apply #'max (mapcar #'length (mapcar #'car branch-infos)))))
+  (mapcar
+   (lambda (branch-info)
+    (format t (format nil "~~~A@A: ~~A~~%" width)
+     (first branch-info)
+     (job-info->line (second branch-info))))
+   (sort branch-infos #'< :key (lambda (branch-info) (third (second branch-info)))))))
+
+(defun project-history (name)
+ (format t "~{~A~%~}"
+  (mapcar
+   #'job-info->line
+   (sort (communication:query `(candle:project-job-information ,name)) #'< :key #'third))))
+
+(defun job-log (project-name sha)
+ (format t "~A~%" (communication:query `(candle:get-job-log ,project-name ,sha))))
+
+(defun refresh-project (name)
+ (communication:query `(candle:refresh-project ,name))
+ (format t "Refreshed project ~A~%" name))
 
 (defmethod execute-command ((command (eql :project)) args)
  (multiple-value-bind (options remaining-args error) (opera:process-arguments (project-options) args)
@@ -79,6 +108,7 @@
    ((opera:option-present :help options) (format t "~A" (opera:usage "candle project" (project-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 :add options) (add-project (opera:option-argument :add options))))))
 
 (defmethod execute-command ((command (eql :job)) args)
@@ -86,7 +116,10 @@
   (cond
    ((eql error :unknown-option) (format *error-output* "Unknown option: ~A.  See 'candle job --help'.~%" (car remaining-args)))
    ((eql error :required-argument-missing) (format *error-output* "Missing argument for ~A.  See 'candle job --help'.~%" (car remaining-args)))
-   ((opera:option-present :help options) (format t "~A" (opera:usage "candle job" (job-options)))))))
+   ((opera:option-present :help options) (format t "~A" (opera:usage "candle job" (job-options))))
+   ((not (opera:option-present :project-name options)) (format *error-output* "Requires --project argument.  See 'candle job --help'.~%" ))
+   ((opera:option-present :log options) (job-log (opera:option-argument :project-name options) (opera:option-argument :log options)))
+   (t (project-history (opera:option-argument :project-name options))))))
 
 (defmethod execute-command ((command (eql :run)) args)
  (multiple-value-bind (options remaining-args error) (opera:process-arguments (run-options) args)