(ns react-native.gesture
  (:require ["react-native-gesture-handler" :refer
             (Gesture
              GestureDetector
              RectButton
              Swipeable
              TouchableWithoutFeedback
              gestureHandlerRootHOC)]
            [reagent.core :as reagent]))

(def gesture-detector (reagent/adapt-react-class GestureDetector))

(def gesture-handler-root-hoc gestureHandlerRootHOC)

(defn gesture-tap [] (.Tap ^js Gesture))

(defn gesture-pan [] (.Pan ^js Gesture))

(defn gesture-pinch [] (.Pinch ^js Gesture))

(defn on-begin [gesture handler] (.onBegin ^js gesture handler))

(defn on-start [gesture handler] (.onStart ^js gesture handler))

(defn on-update [gesture handler] (.onUpdate ^js gesture handler))

(defn on-end [gesture handler] (.onEnd ^js gesture handler))

(defn number-of-taps [gesture count] (.numberOfTaps ^js gesture count))

(defn enabled [gesture enabled?] (.enabled ^js gesture enabled?))

(defn average-touches [gesture average-touches?] (.averageTouches ^js gesture average-touches?))

(defn simultaneous
  ([g1 g2] (.Simultaneous ^js Gesture g1 g2))
  ([g1 g2 g3] (.Simultaneous ^js Gesture g1 g2 g3)))

(defn exclusive [g1 g2] (.Exclusive ^js Gesture g1 g2))

;; RN Gesture Handler touchables are drop-in replacements for the RN ones. In
;; some cases, it's the only touchable that works with Swipeable components.
(def touchable-without-feedback (reagent/adapt-react-class TouchableWithoutFeedback))

(def rect-button (reagent/adapt-react-class RectButton))

(def ^:private swipeable-component
  (reagent/adapt-react-class Swipeable))

(defn swipeable
  [{:keys [render-left-actions render-right-actions] :as props} & children]
  (into [swipeable-component
         (cond-> props
           render-left-actions
           (assoc :render-left-actions
                  (fn [& args]
                    (reagent/as-element (apply render-left-actions args))))

           render-right-actions
           (assoc :render-right-actions
                  (fn [& args]
                    (reagent/as-element (apply render-right-actions args)))))]
        children))