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

(load-system :hu.dwim.asdf)

(in-package :hu.dwim.asdf)

(defsystem :hu.dwim.projectional-editor.web
  :class hu.dwim.system
  :package-name :hu.dwim.projectional-editor
  :description "The web backend for the generic purpose projectional editor."
  :depends-on (:hu.dwim.projectional-editor
               :hu.dwim.util.production+swank
               :hu.dwim.web-server.application)
  :components ((:module "source"
                :components ((:module "web"
                              :components ((:file "device" :depends-on ("server"))
                                           (:file "editor" :depends-on ("package"))
                                           (:file "entry-point" :depends-on ("device"))
                                           (:file "package")
                                           (:file "projection" :depends-on ("device"))
                                           (:file "server" :depends-on ("package"))))))))

(defmethod perform :after ((o develop-op) (c (eql (find-system :hu.dwim.projectional-editor.web))))
  (eval (let ((*package* (find-package :hu.dwim.projectional-editor)))
          (read-from-string
           "(progn
              (setf *debug-on-error* t)
              (startup-server *projectional-editor-server*))")))
  (warn "Made sideffects on the following global variables: *database*, *compiled-query-cache*, *debug-on-error*."))