code.consxy.com Git - candle/blob - src/main/base.lisp

   1 (in-package #:candle)
   2
   3 (defvar *candle-dir*)
   4
   5 (lame-db:defdbstruct project name src)
   6
   7 ; Status here is:
   8 ; - :queued - to be run
   9 ; - :failed - job failed
  10 ; - :succeeded - job succeeded
  11 ; - :no-candle-file - no candle file was found
  12 ; - :in-progress - job is running
  13 (lame-db:defdbstruct job status sha when-run (project :join project))
  14
  15 ; in-git here refers to whether the branch exists in git.  As branches get deleted,
  16 ; this will get set to nil but we keep them around for historical reference
  17 (lame-db:defdbstruct branch name in-git (project :join project) (job :join job))
  18
  19 (defun project-dir (project)
  20  (format nil "~Arepos/~A/" *candle-dir* (project-name project)))