it's now possible to link across each entity type

This commit is contained in:
Bryce Covert
2021-01-24 09:45:13 -08:00
parent 88b0dcde3b
commit 10785b9c85
13 changed files with 161 additions and 105 deletions

View File

@@ -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 ]}]