Started adding admin page
This commit is contained in:
@@ -6,6 +6,8 @@
|
||||
[auto-ap.events :as events]
|
||||
[auto-ap.views.pages.login :refer [login-page]]
|
||||
[auto-ap.views.pages.index :refer [index-page]]
|
||||
[auto-ap.views.pages.admin :refer [admin-page]]
|
||||
[auto-ap.views.pages.admin.companies :refer [admin-companies-page]]
|
||||
[auto-ap.views.pages.unpaid-invoices :refer [unpaid-invoices-page]]
|
||||
[auto-ap.views.pages.new-invoice :refer [new-invoice-page]]
|
||||
[auto-ap.views.pages.import-invoices :refer [import-invoices-page]]
|
||||
@@ -18,7 +20,6 @@
|
||||
[cljs.core.async :refer [<!]]))
|
||||
|
||||
|
||||
|
||||
(defmulti active-page identity)
|
||||
|
||||
(defmethod active-page :login []
|
||||
@@ -27,6 +28,12 @@
|
||||
(defmethod active-page :index []
|
||||
index-page)
|
||||
|
||||
(defmethod active-page :admin []
|
||||
[admin-page])
|
||||
|
||||
(defmethod active-page :admin-companies []
|
||||
[admin-companies-page])
|
||||
|
||||
(defmethod active-page :unpaid-invoices []
|
||||
[unpaid-invoices-page])
|
||||
|
||||
@@ -48,9 +55,3 @@
|
||||
|
||||
|
||||
(defmethod active-page :new-invoice [] new-invoice-page)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user