 (defn main
   []
   (secretary/set-config! :prefix "#")
-  (set-key-value :page-location [render-mutations])
+  (set-key-value :page-location [login])
   (r/render [page]
             (.getElementById js/document "app1"))
   (let [history (History.)]

     [:table {:class "table table-bordered table-striped dataTable"}
      [:thead
       [:tr
        [:th " "]
        [:th " "]
        [:th "Mutation Number"]
        [:th "Name of the First Party"]
        [:th "Name of The Second Party"]

          [:th "Remarks"]
          [:th "Dispatched Date"]
          [:th "Received Date"]
          (when (is-admin-or-super-admin) [:th " "])
          (when (is-admin-or-super-admin) [:th " "])
          ]]
        [:tbody
         (doall (for [mt miscs]
                  ^{:key (.-id mt)} [:tr
                                     [:td (.-filenumber mt)]
                                     [:td (.-subject mt)]
                                     [:td (.-title mt)]
                                     [:td (.-remarks mt)]
                                     [:td (.-dispatcheddate mt)]
                                     [:td (.-receiveddate mt)]
                                     (when (is-admin-or-super-admin)[:td [:a {:href "javascript:;"
                                                                              :on-click  #(misc-update(.-id mt))
                                                                              :class "btn btn-success btn-sm glyphicon glyphicon-edit"}]]) 
                                     (when (is-admin-or-super-admin)[:td  [:a {:href "javascript:;" :on-click #(misc-delete(.-id mt))
                                                                               :class "btn btn-danger btn-sm glyphicon glyphicon-remove"}]])]))]]
       [:div{:class "col-xs-6 col-centered col-max"} [shared-state 0]]]]]]])


