diff --git a/src/main/lemondronor/circlebot.cljs b/src/main/lemondronor/circlebot.cljs index 293762e..7aa6115 100644 --- a/src/main/lemondronor/circlebot.cljs +++ b/src/main/lemondronor/circlebot.cljs @@ -28,8 +28,7 @@ (log-info "%s: basestation.sqb: %s" icao (js->clj record :keywordize-keys true)) (-> record (js->clj :keywordize-keys true) - (set/rename-keys {:Registration :registration :Type :type :RegisteredOwners :registered-owners})) - (js->clj record :keywordize-keys true))) + (set/rename-keys {:Registration :registration :Type :type :RegisteredOwners :registered-owners})))) (defn parse-adsbexchange-ac-element [e] @@ -332,7 +331,8 @@ (let [rev-props (:properties reverse) nearby (:properties (first nearby)) wiki-nearby (:properties (first wiki-nearby)) - info (cond-> (-> ac (dissoc :history :type) + info (cond-> (-> ac + (dissoc :history :type) (merge rev-props) (merge-adsbx-sqb sqb)) (:military? ac)