 
 (defn get-value! [k]
   (k @storage))
+
+(defn page []
+  (get-value! :page-location))
 
 (defn get-total-rec-no [nos]
   (let [totrec (quot nos 10)]

                                            :placeholder "Enter search text.."}]]
       [:input {:type "button" :value "Search"
                :class "btn btn-primary" :on-click search}]
       (url-format "#/documents/add" "Document")
       [:input {:id "getall" :type "button" :value "Get-All"
                :class "btn btn-primary" :on-click get-all-click}]]
      [:div {:class "box-body"}


                                     (c/from-string dt1)
                                     (c/from-string dt2) dt)))
        (set-key-value :current-page 1)
        (set-key-value :page-location
                       [render-documents
                        (get-new-page-data (get-value! :documents)
                                           (get-value! :current-page))]))))


(defn row [label input]
