24 lines
979 B
Clojure
24 lines
979 B
Clojure
(ns auto-ap.views.components.buttons
|
|
(:require [auto-ap.views.utils :refer [dispatch-event]]
|
|
[reagent.core :as r]))
|
|
|
|
(defn fa-icon [{:keys [event icon class]}]
|
|
[:a.button {:class class
|
|
:on-click (dispatch-event event)} (into
|
|
[:<>
|
|
[:span.icon [:i.fa {:class icon}]]
|
|
]
|
|
(r/children (r/current-component)))])
|
|
|
|
(defn sl-icon [{:keys [event icon class] :as params}]
|
|
[:a.button (-> params
|
|
(dissoc :event :icon)
|
|
(assoc :on-click (dispatch-event event)))
|
|
[:span.icon [:span {:class icon :style {:font-weight "400"}}]]])
|
|
|
|
(defn new-button [{:keys [event name class ]}]
|
|
[:a.button.is-outlined {:class class
|
|
:on-click (dispatch-event event)}
|
|
[:span.icon [:i.fa.fa-plus]]
|
|
[:span name]])
|