blob: 98920ea424a63eb8359387b1580bcedc87e952b3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
(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)
|