Store and display Amp thread URL

The build and tests pass. Let me verify the changes are complete
by chec

1. ✅ The Amp thread URL is already parsed from amp output and
stored in 2. ✅ The display has been updated to show a "View in Amp
↗" button inste 3. ✅ CSS styling has been added for the button
(`.amp-thread-btn`) 4. ✅ Dark mode styles added for the button 5. ✅
Both instances of the URL display (in `renderExecutionDetails` and

The implementation is complete. The changes: -
[Omni/Jr/Web.hs](file:///home/ben/omni/Omni/Jr/Web.hs#L632-L637) - Cha
- [Omni/Jr/Web.hs](file:///home/ben/omni/Omni/Jr/Web.hs#L969-L974)
- Sam -
[Omni/Jr/Web/Style.hs](file:///home/ben/omni/Omni/Jr/Web/Style.hs#L531
-
[Omni/Jr/Web/Style.hs](file:///home/ben/omni/Omni/Jr/Web/Style.hs#L916

Task-Id: t-153.4

2 files changed, 18 insertions, 2 deletions

diff --git a/Omni/Jr/Web.hs b/Omni/Jr/Web.hs
index 6d0fa20..00e0c88 100644
--- a/Omni/Jr/Web.hs
+++ b/Omni/Jr/Web.hs
@@ -634,7 +634,7 @@ instance Lucid.ToHtml TaskDetailPage where
                 Just url ->
                   Lucid.div_ [Lucid.class_ "metric-row"] <| do
                     Lucid.span_ [Lucid.class_ "metric-label"] "Amp Thread:"
-                    Lucid.a_ [Lucid.href_ url, Lucid.target_ "_blank", Lucid.class_ "metric-value amp-link"] (Lucid.toHtml url)
+                    Lucid.a_ [Lucid.href_ url, Lucid.target_ "_blank", Lucid.class_ "amp-thread-btn"] "View in Amp ↗"
 
               case (TaskCore.activityStartedAt act, TaskCore.activityCompletedAt act) of
                 (Just start, Just end) ->
@@ -971,7 +971,7 @@ instance Lucid.ToHtml TaskMetricsPartial where
             Just url ->
               Lucid.div_ [Lucid.class_ "metric-row"] <| do
                 Lucid.span_ [Lucid.class_ "metric-label"] "Amp Thread:"
-                Lucid.a_ [Lucid.href_ url, Lucid.target_ "_blank", Lucid.class_ "metric-value amp-link"] (Lucid.toHtml url)
+                Lucid.a_ [Lucid.href_ url, Lucid.target_ "_blank", Lucid.class_ "amp-thread-btn"] "View in Amp ↗"
 
           case (TaskCore.activityStartedAt act, TaskCore.activityCompletedAt act) of
             (Just start, Just end) ->
diff --git a/Omni/Jr/Web/Style.hs b/Omni/Jr/Web/Style.hs
index 9ec03d6..9910e65 100644
--- a/Omni/Jr/Web/Style.hs
+++ b/Omni/Jr/Web/Style.hs
@@ -529,6 +529,19 @@ executionDetailsStyles = do
     textDecoration none
     wordBreak breakAll
   ".amp-link" # hover ? textDecoration underline
+  ".amp-thread-btn" ? do
+    display inlineBlock
+    padding (px 4) (px 10) (px 4) (px 10)
+    backgroundColor "#7c3aed"
+    color white
+    borderRadius (px 3) (px 3) (px 3) (px 3)
+    textDecoration none
+    fontSize (px 12)
+    fontWeight (weight 500)
+    transition "background-color" (ms 150) ease (sec 0)
+  ".amp-thread-btn" # hover ? do
+    backgroundColor "#6d28d9"
+    textDecoration none
   ".retry-count" ? do
     color "#f97316"
     fontWeight (weight 600)
@@ -901,6 +914,9 @@ darkModeStyles =
     ".metric-label" ? color "#9ca3af"
     ".metric-value" ? color "#d1d5db"
     ".amp-link" ? color "#60a5fa"
+    ".amp-thread-btn" ? do
+      backgroundColor "#8b5cf6"
+    ".amp-thread-btn" # hover ? backgroundColor "#7c3aed"
     ".markdown-content" ? color "#d1d5db"
     ".commit-item" ? do
       backgroundColor "#374151"