18 lines
585 B
Clojure
18 lines
585 B
Clojure
(ns auto-ap.views.pages.company.side-bar
|
|
(:require
|
|
[auto-ap.routes :as routes]
|
|
[auto-ap.subs :as subs]
|
|
[auto-ap.views.utils :refer [active-when]]
|
|
[bidi.bidi :as bidi]
|
|
[re-frame.core :as re-frame]))
|
|
|
|
(defn company-side-bar []
|
|
(let [ap @(re-frame/subscribe [::subs/active-page])]
|
|
[:div
|
|
[:ul.menu-list
|
|
[:li.menu-item
|
|
[:a.item {:href (bidi/path-for routes/routes :reports)
|
|
:class [(active-when ap = :reports)]}
|
|
[:span {:class "icon icon-receipt" :style {:font-size "25px"}}]
|
|
[:span {:class "name"} "Reports"]]]]]))
|