在 ClojureScript 试剂中使用 React Native MapView

Question

我正在尝试使用来自https://github.com/airbnb/react-native-maps 的MapView 使用试剂。它工作正常，但是当onRegionChange 事件被触发时，我怎样才能获得MapView 的本地状态？尝试使用当前/组件，但始终是 nil。

(def Expo (js/require "expo"))
(def map-view (r/adapt-react-class (.-MapView Expo)))

(defn my-map []
   (r/create-class
     {:component-did-mount (fn [this] 
                       (println "component mount "))
      :reagent-render (fn []
                  (let [this (r/current-component)]
                    [map-view {:style {:flex 1}
                               :initialRegion {:latitude 37.78825
                                               :longitude -122.4324
                                               :latitudeDelta 0.0922
                                               :longitudeDelta 0.0421}
                                 :onRegionChange (fn []
                                                  ;; Would like to see state here.
                                                  (println (.. this -state))                                                       )}]))}))

Answer 1

地区信息

onRegionChange 回调以 Region 作为参数。 Region 具有以下签名：

type Region {
  latitude: Number,
  longitude: Number,
  latitudeDelta: Number,
  longitudeDelta: Number,
}

您可以使用goog.object/get 从区域中获取值。

如果您获得 region 并从中提取值，您的 my-map 看起来像：

(defn my-map []
  [map-view {:style         {:flex 1}
             :initialRegion {:latitude       52.3702
                             :longitude      4.89516
                             :latitudeDelta  0.0922
                             :longitudeDelta 0.0421}
             :onRegionChange (fn [region]
                               (alert (str "Latitude: "
                                           (goog.object/get region "latitude")
                                           "\nLongitude: "
                                           (goog.object/get region "longitude"))))}])

latitudeDelta和longitudeDelta的获取方式相同。

当您拖动地图时，会显示经纬度：

组件

如果您想访问组件本身，您的代码可以正常工作，您只需 visualize it:

(defn jsx->clj
  [x]
  (into {} (for [k (.keys js/Object x)] [k (aget x k)])))

(defn my-map []
  (let [this (r/current-component)]
    [map-view {:style          {:flex 1}
               :initialRegion  {:latitude       37.78825
                                :longitude      -122.4324
                                :latitudeDelta  0.0922
                                :longitudeDelta 0.0421}
               :onRegionChange (fn [region]
                                 ;; Would like to see state here.

                                 (alert "The component..."
                                        (str (jsx->clj this))))}]))

这会打印如下内容：

不确定您是否可以对组件执行任何操作，我认为您需要Region 信息。