(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))))