;;; -*- mode: Lisp; Syntax: Common-Lisp; -*-
;;;
;;; Copyright (c) 2009 by the authors.
;;;
;;; See LICENCE for details.

(defsystem :hu.dwim.wiki
  :defsystem-depends-on (:hu.dwim.asdf)
  :class "hu.dwim.asdf:hu.dwim.system"
  :depends-on (:hu.dwim.model
               :hu.dwim.presentation+hu.dwim.perec
               :hu.dwim.presentation+cl-typesetting
               :hu.dwim.util/production)
  :components ((:module "source"
                :components ((:file "package")
                             (:file "logger" :depends-on ("package"))
                             (:module "model"
                              :depends-on ("logger")
                              :components ((:file "authorization" :depends-on ("model"))
                                           (:file "data" :depends-on ("model"))
                                           (:file "model")))
                             (:module "presentation"
                              :depends-on ("model")
                              :components ((:file "presentation")
                                           (:file "screen" :depends-on ("server"))
                                           (:file "server")))))))

(defmethod perform :after ((o hu.dwim.asdf:develop-op) (c (eql (find-system :hu.dwim.wiki))))
  (eval (let ((*package* (find-package :hu.dwim.wiki)))
          (read-from-string
           "(progn
              (setf *database* *wiki-database*)
              (unless (connection-specification-of *database*)
                (setf (connection-specification-of *database*)
                      `(:host \"localhost\" :port ,hu.dwim.rdbms.postgresql::+default-postgresql-database-server-port+
                        :database ,+default-database-name+ :user-name ,+default-database-user-name+ :password ,+default-database-password+)))
              (setf hu.dwim.perec::*compiled-query-cache* (make-compiled-query-cache))
              (export-persistent-classes-to-database-schema)
              (setf *debug-on-error* t)
              (setf (current-locale) (list \"en\"))
              (setf (running-in-test-mode? *wiki-application*) t)
              (startup-server *wiki-server*))")))
  (load-system :hu.dwim.wiki.documentation)
  (warn "Made sideffects on the following global variables: *database*, *compiled-query-cache*, *debug-on-error*, *locale*."))