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

(in-package :claw-site)

(defclass site-template (wcomponent)
  ((title :accessor site-template-title
          :initarg :title))
  (:metaclass metacomponent))

(defmethod wcomponent-template ((obj site-template))
  (html>
   (head>
    (title> (site-template-title obj)))
   (djbody>
    :class "thudra clawSite"
    (wcomponent-informal-parameters obj)
    (div> :class "header"
          (div> :class "logo"))
    (htcomponent-body obj))))

(defmethod htcomponent-stylesheet-files ((obj site-template))
  (list (format nil "~a/docroot/screen.css" *root-path*)))