'((:name :help :short "h" :long "help" :description "Print this usage.")
(:name :project-name :long "project" :takes-argument t
:variable-name "PROJECT"
'((: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 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))
((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'.~%" ))
((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'.~%" ))
(t (project-history (opera:option-argument :project-name options))))))
(defmethod execute-command ((command (eql :run)) args)
(t (project-history (opera:option-argument :project-name options))))))
(defmethod execute-command ((command (eql :run)) args)