lilu-desk/main.lisp

(in-package :lilu-desk)

(defvar *init-file* "init.lisp")
(defvar *config-file* "config.lisp")

(defun initialize ()
  (lilu-config:register-system-config-directories)
  (let ((init-file (lilu-config:find-config-file *init-file*)))
    (if init-file
        (load init-file)
        (error "init file (~A) not found" *init-file*)))
  (lilu-app::discover-applications t))

(defun configure ()
  (let ((config-file (lilu-config:find-config-file *config-file*)))
    (if config-file
        (load config-file)
        (error "config file (~A) not found" *config-file*))))

(initialize)
(configure)