;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
;;; $Header: src/frontend/components/site-template.lisp $

;;; Copyright (c) 2008, Andrea Chiumenti.  All rights reserved.

;;; Redistribution and use in source and binary forms, with or without
;;; modification, are permitted provided that the following conditions
;;; are met:

;;;   * Redistributions of source code must retain the above copyright
;;;     notice, this list of conditions and the following disclaimer.

;;;   * Redistributions in binary form must reproduce the above
;;;     copyright notice, this list of conditions and the following
;;;     disclaimer in the documentation and/or other materials
;;;     provided with the distribution.

;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED
;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
;;; ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

(in-package :claw-demo-frontend)

(defclass site-template (wcomponent)
  ((title :initarg :title
          :reader site-template-title)
   (djconfig :initarg :djconfig
             :reader site-template-djconfig))
  (:metaclass metacomponent)
  (:default-initargs :djconfig nil))

(defmethod wcomponent-template ((site-template site-template))
  (let ((principal (current-principal)))
    (html>
     (head>
      (title> (site-template-title site-template))
      (link> :href (format nil "~a/docroot/css/style.css" *root-path*)
             :rel "stylesheet"
             :type "text/css"))
     (djbody> :is-debug "false"
              :theme "soria"
              :class "demo"
              :djconfig (site-template-djconfig site-template)
              (wcomponent-informal-parameters site-template)
              (div> :class "topheader"
                    (div> :class "logoDemo")
                    (div> :class "logoClaw"))
              (djtoolbar> :id "menuBar" :class "menuBar"
                          (djdrop-down-button> (span> "File")
                                               (djmenu>
                                                (djmenu-item> :id "homeMenu"
                                                              :on-click (ps:ps* `(location.replace ,(format nil "~a/index.html" *root-path*)))
                                                              "Home")
                                                (djmenu-item> :id "loginMenu"
                                                              :render-condition #'(lambda () (null principal))
                                                              :on-click (ps:ps* `(location.replace ,(format nil "~a/login.html" *root-path*)))
                                                              "Login")
                                                (djmenu-item> :id "logoutMenu"
                                                              :render-condition #'(lambda () principal)
                                                              :on-click (ps:ps* `(location.replace ,(format nil "~a/logout.html" *root-path*)))
                                                              "Logout")))
                          (djdrop-down-button> :render-condition #'(lambda () (user-in-role-p '("user")))
                                               (span> "Anagraphics")
                                               (djmenu>
                                                (djmenu-item> :id "customersMenu"
                                                              :on-click (ps:ps* `(location.replace ,(format nil "~a/customers.html" *root-path*)))
                                                              "Customers")
                                                (djmenu-item> :id "usersMenu"
                                                              :render-condition #'(lambda () (user-in-role-p '("administrator")))
                                                              :on-click (ps:ps* `(location.replace ,(format nil "~a/users.html" *root-path*)))
                                                              "Users"))))
              (div> :class "contentBody"
                    (htcomponent-body site-template))))))