Started adding admin page

src/cljs/auto_ap/views/main.cljs

@@ -15,6 +15,8 @@
      :import-invoices :left-panel
      :unpaid-invoices :left-panel
      :paid-invoices :left-panel
+    :admin :admin-left-panel
+    :admin-companies :admin-left-panel
      :new-invoice :blank} page))
 
 (defn login-dropdown []
@@ -27,13 +29,72 @@
          [:a {:class "navbar-link login" :on-click (fn [e] (re-frame/dispatch [::events/toggle-menu :account]))} (:name @user)]
          [:div {:class "navbar-dropdown"}
           [:a {:class "navbar-item"} "My profile"]
-          [:a {:class "navbar-item"} "Administration"]
+          [:a {:class "navbar-item" :href (bidi/path-for routes/routes :admin)} "Administration"]
           [:hr {:class "navbar-divider"}]
           [:a.navbar-item {:on-click (fn [e] (.preventDefault e) (re-frame/dispatch [::events/logout]))} "Logout"]]]
         [:a.navbar-item {:href login-url} "Login"])]]))
 
 (defmulti layout page->layout)
 
+(defmethod layout :admin-left-panel [ap]
+  (let [company (re-frame/subscribe [::subs/company])
+        companies (re-frame/subscribe [::subs/companies])
+        menu (re-frame/subscribe [::subs/menu])]
+    [:div  
+     [:nav {:class "navbar has-shadow"}
+      [:div {:class "container"}
+       [:div {:class "navbar-brand"}
+        [:a {:class "navbar-item", :href "../"}
+         [:h1 (str "Integreat")]]]
+        
+       [:div {:class "navbar-burger burger", :data-target "navMenu"}
+        [:span]
+        [:span]
+        [:span]] 
+       [login-dropdown]]]
+     [:div {:class "columns", :id "mail-app"}
+      [:aside {:class "column is-narrow aside menu hero is-fullheight"}
+       [:div.main
+        [:p.menu-label "General"]
+        [:p.menu-item
+         [:a {:href (bidi/path-for routes/routes :admin) , :class (str "item" (active-when= ap :admin))}
+          [:span {:class "icon"}
+           [:i {:class "fa fa-tachometer"}]]
+          [:span {:class "name"} "Dashboard"]]]
+
+        [:p.menu-label "Setup"]
+        [:ul.menu-list
+         [:li.menu-item
+          [:a {:href (bidi/path-for routes/routes :admin-companies) , :class (str "item" (active-when= ap :admin-companies))}
+           [:span {:class "icon"}
+            [:i {:class "fa fa-star-o"}]]
+           
+           [:span {:class "name"} "Companies"]]]
+         [:li.menu-item
+          [:a {:href (bidi/path-for routes/routes :admin-users), :class (str "item" (active-when= ap :admin-users))}
+           [:span {:class "icon"}
+            [:i {:class "fa fa-envelope-o"}]]
+           [:span {:class "name"} "Users"]]]
+         
+         [:ul ]]]
+
+       [:div.left-nav
+        [:div {:class "compose has-text-centered"}
+         [:a {:class "button is-danger is-block is-bold" :href (bidi/path-for routes/routes :index)}
+          [:span {:class "compose"} "Back"]]]]]
+      [:div {:class "column messages hero is-fullheight", :id "message-feed"}
+       ^{:key (str "active-page-" (:name @company))} [pages/active-page ap]]]
+     [:footer {:class "footer"}
+      [:div {:class "container"}
+       [:div {:class "content has-text-centered"}
+        [:p  
+         [:strong "Auto-AP"]"by " 
+         [:a {:href "https://github.com/"} "Integreat"]"."]
+        [:p  
+         [:a {:class "icon", :href "https://github.com/dansup/bulma-templates"}
+          [:i {:class "fa fa-github"}]]]]]]
+     [:div#dz-hidden]]))
+
 (defmethod layout :left-panel [ap]
   (let [company (re-frame/subscribe [::subs/company])
         companies (re-frame/subscribe [::subs/companies])