From a688f4e0fb97f5d64d2d898f2829ac6723ebf13b Mon Sep 17 00:00:00 2001
From: Christian Lawson-Perfect <christian@lawson-perfect.uk>
Date: Thu, 20 Feb 2025 19:50:03 +0000
Subject: [PATCH] use the URL being previewed in the Preview link

---
 index.html  |  2 +-
 src/App.elm | 57 ++++++++++++++++++++++++++---------------------------
 2 files changed, 29 insertions(+), 30 deletions(-)

diff --git a/index.html b/index.html
index ca0572a..1b6bece 100644
--- a/index.html
+++ b/index.html
@@ -13,7 +13,7 @@
 
         <script id="think-editor-data" type="application/json">
 {
-      "preview_url": "https://somethingorotherwhatever.com/tiny-elvis/",
+      "preview_url": "https://somethingorotherwhatever.com/tiny-elvis",
       "slug": "loaded-thing",
       "files": [
         {"path": ".", "is_dir": true, "name": ".."},
diff --git a/src/App.elm b/src/App.elm
index 9dbf04a..802503b 100644
--- a/src/App.elm
+++ b/src/App.elm
@@ -339,6 +339,16 @@ link url text =
     [ HA.href url]
     [ H.text text ]
 
+preview_url model = 
+  let
+    file_suffix = suffix model.file_path
+
+    page_suffixes = ["html", "php"]
+  in
+    if List.member file_suffix page_suffixes then
+      model.preview_url ++ "/" ++ model.file_path
+    else
+      model.preview_url
 
 form : Model -> List (H.Attribute Msg) -> List (Html Msg) -> Html Msg
 form model attrs children =
@@ -391,7 +401,7 @@ header model =
       [ HA.id "think-controls" ]
       [ H.a 
           [ HA.target "preview"
-          , HA.href model.preview_url
+          , HA.href <| preview_url model
           ]
           [ H.text "Preview" ]
       , link "rename" "Rename"
@@ -692,37 +702,26 @@ log_pane model =
     ]
 
 preview_pane model =
-  let
-    file_suffix = suffix model.file_path
-
-    page_suffixes = ["html", "php"]
-    
-    preview_url = 
-      if List.member file_suffix page_suffixes then
-        model.preview_url ++ "/" ++ model.file_path
-      else
-        model.preview_url
-  in
-    H.details
-      [ HA.attribute "open" ""
-      , HA.id "preview"
-      , HE.on "toggle" (JD.at ["target", "open"] JD.bool |> JD.map TogglePreview)
-      ]
-      ( [ H.summary
-          []
-          [ H.text <| "Preview"
-          ]
+  H.details
+    [ HA.attribute "open" ""
+    , HA.id "preview"
+    , HE.on "toggle" (JD.at ["target", "open"] JD.bool |> JD.map TogglePreview)
+    ]
+    ( [ H.summary
+        []
+        [ H.text <| "Preview"
         ]
-      ++ if model.show_preview then
-          [ H.iframe
-            [ HA.id "preview-frame" 
-            , HA.src preview_url
-            ]
-            []
+      ]
+    ++ if model.show_preview then
+        [ H.iframe
+          [ HA.id "preview-frame" 
+          , HA.src <| preview_url model
           ]
-        else
           []
-      )
+        ]
+      else
+        []
+    )
 
 commit_modal model = 
   let