Made all interactions much better
This commit is contained in:
@@ -31,20 +31,25 @@
|
||||
|
||||
(defmulti page (fn [active-page] active-page))
|
||||
(defmethod page :unpaid-invoices [_]
|
||||
(unpaid-invoices-page {:status "unpaid"}))
|
||||
^{:key :voided}
|
||||
[unpaid-invoices-page {:status :unpaid}])
|
||||
|
||||
(defmethod page :import-invoices [_]
|
||||
(import-invoices-page ))
|
||||
|
||||
|
||||
(defmethod page :paid-invoices [_]
|
||||
(unpaid-invoices-page {:status "paid"}))
|
||||
^{:key :voided}
|
||||
[unpaid-invoices-page {:status :paid}]
|
||||
)
|
||||
|
||||
(defmethod page :voided-invoices [_]
|
||||
(unpaid-invoices-page {:status "voided"}))
|
||||
^{:key :voided}
|
||||
[unpaid-invoices-page {:status :voided}])
|
||||
|
||||
(defmethod page :invoices [_]
|
||||
(unpaid-invoices-page {}))
|
||||
^{:key :all}
|
||||
[unpaid-invoices-page {}])
|
||||
|
||||
(defmethod page :payments [_]
|
||||
[payments-page])
|
||||
|
||||
Reference in New Issue
Block a user