From 813b82b47c6a7771fe37965511cbedd3d0fbb63c Mon Sep 17 00:00:00 2001
From: James Walker <james.walker@bath.edu>
Date: Thu, 19 Dec 2024 11:34:03 +0000
Subject: [PATCH] fix: Enable responsive UI on mobile devices

---
 src/Theme/PageTemplate.elm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/Theme/PageTemplate.elm b/src/Theme/PageTemplate.elm
index 51c70bc..97aeb89 100644
--- a/src/Theme/PageTemplate.elm
+++ b/src/Theme/PageTemplate.elm
@@ -71,7 +71,9 @@ stringToHeaderType maybeTypeString =
 
 pageMetaTags : { title : Key, description : Key, imageSrc : Maybe String } -> List Head.Tag
 pageMetaTags { title, description, imageSrc } =
-    Seo.summary
+    Head.metaName "viewport" (Head.raw "width=device-width, initial-scale=1") ::
+    (
+        Seo.summary
         { canonicalUrlOverride = Nothing
         , siteName = t SiteTitle
         , image =
@@ -93,6 +95,7 @@ pageMetaTags { title, description, imageSrc } =
         , title = t (PageMetaTitle (t title))
         }
         |> Seo.website
+    )
 
 
 view : PageUsingTemplate msg -> Html.Html msg