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

(defsystem :hu.dwim.wui
  :defsystem-depends-on (:hu.dwim.asdf)
  :class "hu.dwim.asdf:hu.dwim.system"
  :description "WUI with all its extensions."
  :depends-on (:hu.dwim.wui.component))

(defmethod perform :after ((op hu.dwim.asdf:develop-op) (system (eql (find-system :hu.dwim.wui))))
  (let ((*package* (find-package :hu.dwim.wui)))
    (eval
     (read-from-string
      "(progn
         (setf (log-level 'wui) +debug+)
         (setf *debug-on-error* t))")))
  (warn "Set WUI log level to +debug+; enabled server-side debugging"))