Commit aad0175d

commit aad0175d6bb2b90d2c78a4a73844ae30ea6cefac
Author: Ben Sima <ben@bensima.com>
Date:   Thu Nov 27 14:06:56 2025

    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

diff --git a/Omni/Jr/Web.hs b/Omni/Jr/Web.hs
index 6d0fa200..00e0c88a 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 9ec03d6b..9910e655 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"