                 (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"}

    (jdbc/insert! db-spec/ccs-db :packages {:name package :description description}))

(defn not-empty-parameter?
    [parameter]
    (and parameter (not (empty? parameter))))

(defn store-changes
    [user-name package description]
    (if (and (not-empty-parameter? package) (not-empty-parameter? description))
        (let [date (calendar/format-date-time (calendar/get-calendar))]

(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])
