fix(pdf): incorrect condition

src/main/frontend/extensions/pdf/core.cljs

@@ -176,13 +176,13 @@
                              (if-not id
                                ;; add highlight
                                (let [highlight (merge highlight
-                                                      {:id         (pdf-utils/gen-uuid)
-                                                       :properties properties})]
+                                                 {:id (pdf-utils/gen-uuid)
+                                                  :properties properties})]
                                  (p/let [highlight' (add-hl! highlight)]
                                    (pdf-utils/clear-all-selection owner-win)
                                    (pdf-assets/copy-hl-ref! highlight' viewer)))
 
-;; update highlight
+                               ;; update highlight
                                (upd-hl! (assoc highlight :properties properties)))
 
                              (reset! *highlight-last-color (keyword action)))))
@@ -568,18 +568,14 @@
                           highlights' (conj highlights hl)]
                       (set-highlights! highlights')
 
-                      (when-let [vw-pos (and (pdf-assets/area-highlight? hl)
-                                          (pdf-utils/scaled-to-vw-pos viewer (:position hl)))]
-                        ;; exceptions
-                        (->
-                          (p/let [result (pdf-assets/persist-hl-area-image$ viewer (:pdf/current @state/state)
-                                           hl nil (:bounding vw-pos))]
-                            (when (de/entity? result)
-                              (let [hl' (assoc-in hl [:content :image] (:db/id result))]
-                                (set-highlights! (map (fn [hl] (if (= (:id hl) (:id hl')) hl' hl)) highlights'))
-                                hl')
-                              ;(throw (js/Error. (str "[pdf] unexpected persist asset image return:" result)))
-                              ))
+                      (if-let [vw-pos (and (pdf-assets/area-highlight? hl)
+                                        (pdf-utils/scaled-to-vw-pos viewer (:position hl)))]
+                        (-> (p/let [result (pdf-assets/persist-hl-area-image$ viewer (:pdf/current @state/state)
+                                             hl nil (:bounding vw-pos))]
+                              (when (de/entity? result)
+                                (let [hl' (assoc-in hl [:content :image] (:db/id result))]
+                                  (set-highlights! (map (fn [hl] (if (= (:id hl) (:id hl')) hl' hl)) highlights'))
+                                  hl')))
                           (p/catch (fn [e] (js/console.error e))))
                         hl))))
         upd-hl! (fn [hl]