/
navbar.cljs
38 lines (29 loc) · 860 Bytes
/
navbar.cljs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
(ns bulma-cljs.components.navbar
[:require [bulma-cljs.utils :refer [children]]])
(defn navbar [& content]
(into [:nav.navbar] content))
(defn navbar-brand [logo-src & content]
[:div.navbar-brand
[:a.navbar-item
[:img {:src logo-src}]]
(children content)])
(defn navbar-burger []
[:a.navbar-burger
[:span]
[:span]
[:span]])
(defn navbar-item [content & [{:keys [on-click]}]]
[:div.navbar-item
[:a {:on-click on-click} content]])
(defn navbar-menu [& content]
(into [:div.navbar-menu] content))
(defn navbar-start [& content]
(into [:div.navbar-start] content))
(defn navbar-end [& content]
(into [:div.navbar-end] content))
(defn navbar-dropdown [title & content]
[:div.navbar-item.has-dropdown
[:a.navbar-link title]
(into [:div.navbar-dropdown] content)])
(defn navbar-divider []
[:hr.navbar-divider])