🐛 Fix many warnings.

frontend/src/uxbox/main/ui/viewer.cljs

@@ -69,8 +69,8 @@
         (fn [event]
           (when (kbd/ctrl? event)
             (dom/prevent-default event)
-            (let [event (.getBrowserEvent event)]
+            (let [event (.getBrowserEvent ^js event)]
-              (if (pos? (.-deltaY event))
+              (if (pos? (.-deltaY ^js event))
                 (st/emit! dv/decrease-zoom)
                 (st/emit! dv/increase-zoom)))))
 

frontend/src/uxbox/main/ui/workspace/viewport.cljs

@@ -254,8 +254,8 @@
         on-key-down
         (mf/use-callback
          (fn [event]
-           (let [bevent (.getBrowserEvent event)
+           (let [bevent (.getBrowserEvent ^js event)
-                 key (.-keyCode event)
+                 key (.-keyCode ^js event)
                  ctrl? (kbd/ctrl? event)
                  shift? (kbd/shift? event)
                  alt? (kbd/alt? event)
@@ -295,11 +295,11 @@
 
         on-mouse-move
         (fn [event]
-          (let [event (.getBrowserEvent event)
+          (let [event (.getBrowserEvent ^js event)
-                pt (dom/get-client-position event)
+                pt (dom/get-client-position ^js event)
                 pt (translate-point-to-viewport pt)
-                delta (gpt/point (.-movementX event)
+                delta (gpt/point (.-movementX ^js event)
-                                 (.-movementY event))]
+                                 (.-movementY ^js event))]
             (st/emit! (ms/->PointerEvent :delta delta
                                          (kbd/ctrl? event)
                                          (kbd/shift? event)
@@ -316,7 +316,7 @@
                  target (dom/get-target event)]
              (cond
                (kbd/ctrl? event)
-               (let [event (.getBrowserEvent event)
+               (let [event (.getBrowserEvent ^js event)
                      pos   @ms/mouse-position]
                  (dom/prevent-default event)
                  (dom/stop-propagation event)
@@ -325,7 +325,7 @@
                    (st/emit! (dw/increase-zoom pos))))
 
                (.contains ^js node target)
-               (let [event (.getBrowserEvent event)
+               (let [event (.getBrowserEvent ^js event)
                      delta (.-deltaY ^js event)
                      delta (/ delta @refs/selected-zoom)]
                  (dom/prevent-default event)

frontend/src/uxbox/util/router.cljs

@@ -53,8 +53,8 @@
              qdt (.createFromMap QueryData (-> qparams
                                                (d/remove-nil-vals)
                                                (clj->js)))]
-         (.setQueryData uri qdt)
+         (.setQueryData ^js uri qdt)
-         (.toString uri))))))
+         (.toString ^js uri))))))
 
 (defn create
   [routes]
@@ -70,7 +70,7 @@
 (defn query-params
   "Given goog.Uri, read query parameters into Clojure map."
   [^goog.Uri uri]
-  (let [q (.getQueryData uri)]
+  (let [^js q (.getQueryData uri)]
     (->> q
          (.getKeys)
          (map (juxt keyword #(.get q %)))
@@ -80,9 +80,9 @@
   "Given routing tree and current path, return match with possibly
   coerced parameters. Return nil if no match found."
   [router path]
-  (let [uri (.parse Uri path)]
+  (let [uri (.parse ^js Uri path)]
-    (when-let [match (r/match-by-path router (.getPath uri))]
+    (when-let [match (r/match-by-path router (.getPath ^js uri))]
-      (let [qparams (parse-query-data (.getQueryData uri))
+      (let [qparams (parse-query-data (.getQueryData ^js uri))
             params {:path (:path-params match) :query qparams}]
         (assoc match
                :params params
@@ -128,9 +128,9 @@
       (let [stoper  (rx/filter (ptk/type? ::initialize-history) stream)
             history (:history state)
             router  (:router state)]
-        (ts/schedule #(on-change router (.getToken history)))
+        (ts/schedule #(on-change router (.getToken ^js history)))
         (->> (rx/create (fn [sink]
-                           (let [key (e/listen history "navigate" #(sink (.-token %)))]
+                           (let [key (e/listen history "navigate" (fn [o] (sink (.-token ^js o))))]
                              (fn []
                                (bhistory/disable! history)
                                (e/unlistenByKey key)))))

frontend/src/uxbox/util/websockets.cljs

@@ -27,13 +27,13 @@
 (defn uri
   ([path] (uri path {}))
   ([path params]
-   (let [uri (.parse Uri cfg/public-uri)]
+   (let [uri (.parse ^js Uri cfg/public-uri)]
-     (.setPath uri path)
+     (.setPath ^js uri path)
-     (if (= (.getScheme uri) "http")
+     (if (= (.getScheme ^js uri) "http")
-       (.setScheme uri "ws")
+       (.setScheme ^js uri "ws")
-       (.setScheme uri "wss"))
+       (.setScheme ^js uri "wss"))
      (run! (fn [[k v]]
-             (.setParameterValue uri (name k) (str v)))
+             (.setParameterValue ^js uri (name k) (str v)))
            params)
      (.toString uri))))
 
@@ -55,8 +55,8 @@
       IWebSocket
       (-stream [_] sb)
       (-send [_ msg]
-        (when (.isOpen ws)
+        (when (.isOpen ^js ws)
-          (.send ws msg)))
+          (.send ^js ws msg)))
       (-close [_]
         (.close ws)
         (rx/end! sb)