Change job when-run to create-date
[candle] / src / main / run.lisp
1 (in-package #:candle)
2
3 (defun import-package (pkg)
4  (asdf:load-system pkg))
5
6 (defun run-task (task)
7  (format t "~%~c[1;33mRunning ~:(~A~)~c[0m~%" #\Esc (getf task :name) #\Esc)
8  (if
9   (eval (getf task :directions))
10   (progn (format t "~c[1;32m- ~:(~A~) Passed!~c[0m~%" #\Esc (getf task :name) #\Esc) t)
11   (format t "~c[1;31m- ~:(~A~) Failed!~c[0m~%" #\Esc (getf task :name) #\Esc)))
12
13 (defun run ()
14  (if
15   (not (probe-file ".candle"))
16   :dot-candle-absent
17   (with-open-file (str ".candle")
18    (asdf:initialize-source-registry `(:source-registry (:tree ,(car (directory "."))) :INHERIT-CONFIGURATION))
19    (mapcar #'import-package (cdr (read str)))
20    (let
21     ((candle-definition (read str)))
22     (format t "Running tasks for ~(~A~)~%" (getf candle-definition :name))
23     (every #'identity (mapcar #'run-task (getf candle-definition :tasks)))))))