Test pwas

typestruck · Jul 3, 2024 · 8bcd3cc · 8bcd3cc
1 parent 251b27d
commit 8bcd3cc
Show file tree

Hide file tree

Showing 5 changed files with 32 additions and 3 deletions.
diff --git a/file/default/manifest.json b/file/default/manifest.json
@@ -0,0 +1,17 @@
+{
+  "theme_color": "#213027",
+  "start_url": "/im",
+  "orientation": "any",
+  "name": "MeroChat - Friendly Random Chat",
+  "short_name": "MeroChat",
+  "display": "standalone",
+  "background_color": "#213027",
+  "description": "Platonic only, karma based random chat",
+  "icons": [
+    {
+      "src": "/file/default/loading.png",
+      "sizes": "46x46",
+      "type": "image/png"
+    }
+  ]
+}
diff --git a/file/default/sw.js b/file/default/sw.js
@@ -0,0 +1,7 @@
+self.addEventListener('install', (e) => {
+    e.waitUntil((async () => {
+        // let cache = await caches.open(cacheName);
+
+        // await cache.addAll(contentToCache);
+    })());
+});
diff --git a/src/Server/File.purs b/src/Server/File.purs
@@ -50,7 +50,7 @@ saveBase64File input =
                                     if DS.member extension allowedExtensions then do
                                           uuid ← R.liftEffect (DU.toString <$> DU.genUUID)
                                           let fileName = uuid <> extension
-                                          R.liftAff $ NFA.writeFile (localBasePath <> uploadFolder <> fileName)  buffer
+                                          R.liftAff $ NFA.writeFile (localBasePath <> uploadFolder <> fileName) buffer
                                           pure fileName
                                     else
                                           invalidImage

diff --git a/src/Server/Template.purs b/src/Server/Template.purs
@@ -64,6 +64,7 @@ templateWith parameters@{ title, content, css, bundled, footer, favicon } =
                       , HE.meta [ HA.name "viewport", HA.content "width=device-width, initial-scale=1.0" ]
                       , HE.meta [ HA.name "description", HA.content "Chat to new people who also just want to chat. MeroChat is a text based chat site for having actual conversations" ]
                       , HE.link [ HA.id "favicon", HA.rel "shortcut icon", HA.type' "image/ico", HA.href favicon ]
+                      , HE.link [ HA.rel "manifest", HA.href favicon, HA.href $ SP.resourcePath (Right Manifest) Json ]
                       , HE.title title
                       ] <> styleSheets
                     )
@@ -81,7 +82,7 @@ templateWith parameters@{ title, content, css, bundled, footer, favicon } =
               else
                     [ HE.script' [ HA.type' "text/javascript", HA.src $ SP.bundlePath Common Js ]
                     ]
-            ) <> parameters.javascript
+            ) <> [ HE.script [HA.type' "text/javascript"] "if (`serviceWorker` in navigator) navigator.serviceWorker.register(`/file/default/sw.js`);" ] <> parameters.javascript
 
 externalFooter ∷ ∀ a. Html a
 externalFooter =

diff --git a/src/Shared/Resource.purs b/src/Shared/Resource.purs
@@ -41,7 +41,7 @@ bundleFolder = "bundle/"
 defaultFolder ∷ String
 defaultFolder = "default/"
 
-data ResourceType = Css | Js | Png | Ico | Ignore
+data ResourceType = Css | Js | Png | Ico | Json | Ignore
 
 derive instance Eq ResourceType
 
@@ -57,6 +57,7 @@ data Bundle
       | InternalHelp
       | Landing
       | Feedback
+      | Manifest
       | KarmaPrivileges
       | Login
       | Profile
@@ -141,6 +142,7 @@ resourceName = case _ of
       Right Profile → "profile"
       Right Recover → "recover"
       Right Settings → "settings"
+      Right Manifest → "manifest"
       Left Logo3Small → "logo-3-small"
       Left LogoSmall → "logo-small"
       Left Logo → "logo"
@@ -185,6 +187,7 @@ resourceType = case _ of
       Js → ".bundle.js"
       Css → ".css"
       Png → ".png"
+      Json → ".json"
       Ico → ".ico"
       Ignore → ""
 
@@ -200,6 +203,7 @@ replacement bundle tp
                     External → reps ".[external-js-contenthash]" ".[external-css-contenthash]"
                     Help → reps ".[help-js-contenthash]" ".[help-css-contenthash]"
                     Im → reps ".[im-js-contenthash]" ".[im-css-contenthash]"
+                    Manifest → ""
                     Feedback → reps ".[feedback-js-contenthash]" ".[feedback-css-contenthash]"
                     InternalHelp → reps ".[internalHelp-js-contenthash]" ".[internalHelp-css-contenthash]"
                     Landing → reps ".[landing-js-contenthash]" ".[landing-css-contenthash]"