;;;; cl-scopes/app/demo/main - sample main program

(defpackage :scopes/app/demo
  (:use :common-lisp)
  (:local-nicknames (:auth :scopes-auth/web)
                    (:config :scopes/config)
                    (:cs-hx :scopes/frontend/cs-hx)
                    (:core :scopes/core)
                    (:forge :scopes/forge)
                    (:logging :scopes/logging)
                    (:server :scopes/web/server)
                    (:util :scopes/util))
  (:export #:main))

(in-package :scopes/app/demo)

(defun main ()
  (let ((config-path (util:relative-path "config" "etc")))
    (format t "~%Hello World.~%config-path: ~s~%" config-path)
    (load config-path))
  (core:run-services))