diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/run.lisp | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/run.lisp b/src/run.lisp new file mode 100644 index 0000000..677d46c --- /dev/null +++ b/src/run.lisp @@ -0,0 +1,15 @@ +;;;; run.lisp -- starting from the command line. + +(in-package :oneliners.api) + +(defun get-option (name &optional default) + (or + (let ((args (uiop:command-line-arguments))) + (a:when-let ((pos (position name args :test #'string-equal))) + (nth (1+ pos) args))) + default)) + +(defun run () + (a:if-let ((conf-file (get-option "--config"))) + (start-from-config conf-file) + (start-from-config))) |