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

(in-package :claw-site)

(defclass index-page (page) 
  ())

(defmethod page-content ((o index-page))
  (site-template> :title "The Claw Central - Home page"
                  (djtoolbar> :id "manuBar" :class "topMenu"
                              (djbutton>
                               :on-click (js-goto "index.html")
                               (span> "Home")))
                  (div> :class "content" "Hello world")))

(lisplet-register-function-location 
 *claw-site-lisplet* 
 (make-page-renderer 'index-page #'claw-post-parameters #'claw-get-parameters) 
 "index.html" 
 :welcome-page-p t)