hpcdisrespecter
bc14c93a3c
Committer: hpcdisrespecter <noreply@git.asperger.pro> modified: .gitignore modified: README.md new file: menus/peoples-organic.sexp new file: menus/townhall-shortnorth.sexp new file: organic-cafe.asd new file: run.lisp new file: src/package.lisp new file: src/planner.lisp new file: test/tests.lisp
18 lines
734 B
Common Lisp
18 lines
734 B
Common Lisp
(require "asdf")
|
|
|
|
(let* ((script (or *load-truename* *compile-file-truename*))
|
|
(root (uiop:pathname-directory-pathname script))
|
|
(default-menu (merge-pathnames "menus/peoples-organic.sexp" root)))
|
|
;; Loading source here keeps the CLI read-only. The ASDF system remains
|
|
;; available for compiled development and test workflows.
|
|
(load (merge-pathnames "src/package.lisp" root))
|
|
(load (merge-pathnames "src/planner.lisp" root))
|
|
(handler-case
|
|
(uiop:quit
|
|
(uiop:symbol-call :organic-cafe :run-cli
|
|
(rest sb-ext:*posix-argv*)
|
|
:default-menu default-menu))
|
|
(error (condition)
|
|
(format *error-output* "Error: ~A~%" condition)
|
|
(uiop:quit 1))))
|