'((:name :help :short "h" :long "help" :description "Print this usage.")
(:name :project-name :long "project" :takes-argument t
:variable-name "PROJECT"
- :description "The project name for the jobs under consideration. Required argumnet.")))
+ :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.")))
#'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))
((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))))
((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)