it's now possible to link across each entity type
This commit is contained in:
@@ -2,18 +2,22 @@
|
||||
(: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 fa-icon [{:keys [event icon class on-click] :as params}]
|
||||
[:a.button (cond-> params
|
||||
true (dissoc :event :icon)
|
||||
(and (not on-click)
|
||||
event)
|
||||
(assoc :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)))
|
||||
(defn sl-icon [{:keys [event icon class on-click] :as params}]
|
||||
[:a.button (cond-> params
|
||||
true (dissoc :event :icon)
|
||||
(and (not on-click)
|
||||
event) (assoc :on-click (dispatch-event event)))
|
||||
[:span.icon [:span {:class icon :style {:font-weight "400"}}]]])
|
||||
|
||||
(defn new-button [{:keys [event name class ]}]
|
||||
|
||||
Reference in New Issue
Block a user