Use source location viewer in test report viewer

Author: djblue

src/portal/ui/viewer/source_location.cljs

@@ -20,6 +20,13 @@
 (defn- source-location? [value]
   (s/valid? ::source-location value))
 
+(defn ->source-location [value]
+  (when (source-location? value)
+    (with-meta
+      (select-keys value [:ns :column :line :file :label])
+      (assoc (meta value)
+             :portal.viewer/default :portal.viewer/source-location))))
+
 (defn inspect-source [value]
   (let [theme (theme/use-theme)]
     [d/div

src/portal/ui/viewer/test_report.cljs

@@ -2,6 +2,7 @@
   (:require [clojure.spec.alpha :as s]
             [portal.colors :as c]
             [portal.ui.filter :as-alias f]
+            [portal.ui.viewer.source-location :as src]
             [portal.ui.icons :as icons]
             [portal.ui.inspector :as ins]
             [portal.ui.select :as select]
@@ -147,12 +148,11 @@
          :border-bottom-right-radius (when-not expanded? (:border-radius theme))}}
        [ins/toggle-expand {:padding-left (:padding theme)}]
        [label value]
-       (when-let [file (:file value)]
+       (when-let [location (src/->source-location value)]
          [d/div
-          {:style {:color (::c/uri theme)}}
-          file
-          (when-let [line (:line value)]
-            [:<> ":" line])])]]
+          [select/with-position
+           {:row -1 :column 1}
+           [ins/with-key :loc [ins/inspector location]]]])]]
 
      (when (:expanded? options)
        [ins/inspect-map-k-v (dissoc value :type :message :file :line :ns :var)])]))