(require 'asdf)

(asdf:load-system :pastiche)

(defun get-option (name &optional default)
  (or 
   (let ((args (uiop:command-line-arguments))) 
     (when-let ((pos (position name args :test #'string-equal)))
       (nth (1+ pos) args)))
   default))

(defun run ()
  (let ((config-path (get-option "--config")))
    (truname config-path)
    (pastiche::load-config config-path)
    (pastiche::start)
    (loop (sleep 30))))

(ensure-directories-exist #P"./bin/")
(sb-ext:save-lisp-and-die
 "bin/pastiche"
 :toplevel #'run
 :executable t
 :compression t)