From 6d2f5539a5d401856e13c87f34daf4f951cc7c6e Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Fri, 28 Oct 2022 14:49:12 -0500 Subject: Add: sample config; destroy playlist; cli startup --- run.lisp | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 run.lisp (limited to 'run.lisp') diff --git a/run.lisp b/run.lisp new file mode 100644 index 0000000..8961b91 --- /dev/null +++ b/run.lisp @@ -0,0 +1,15 @@ +;;;; run.lisp -- starting from the command line + +(in-package :vampire) + +(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-vampire () + (let ((conf-file (get-option "--config"))) + (start-vampire (config-from-file conf-file))) + (loop while *runningp* do (sleep 1))) -- cgit v1.2.3