(in-package #:candle)

(defvar *candle-dir*)

(define-condition candle-error (error) ((reason :initarg :reason :reader candle-error-reason)))
(defun raise-candle-error (reason) (error (make-instance 'candle-error :reason reason)))

(lame-db:defdbstruct project name src)

; Status here is:
; - :queued - to be run
; - :failed - job failed
; - :succeeded - job succeeded
; - :no-candle-file - no candle file was found
; - :in-progress - job is running
(lame-db:defdbstruct job status sha create-date log (project :join project))

; in-git here refers to whether the branch exists in git.  As branches get deleted,
; this will get set to nil but we keep them around for historical reference
(lame-db:defdbstruct branch name in-git (project :join project) (job :join job))

(defun project-dir (project)
 (format nil "~Arepos/~A/" *candle-dir* (project-name project)))