                 (form/submit-button {:class "btn btn-default"} "Search")]]))
 
 (defn render-name-field
+    "Renders box for typing user name on the top side of HTML page."
     [user-name]
     (form/form-to {:class "navbar-form navbar-left" :role "search"} [:get "/" ]
         [:div {:class "input-group"}

(ns clouseau.server)

(require '[ring.util.response     :as http-response])
(require '[hiccup.core :as hiccup])
(require '[hiccup.page :as page])
(require '[hiccup.form :as form])

(require '[clojure.java.jdbc :as jdbc])

(require '[clouseau.products :as products])
(require '[clouseau.calendar :as calendar])

        )))

(defn render-html-header
    "Renders part of HTML page - the header."
    [package]
    [:head
        [:title "Clouseau   " package]
