New pursuit

package.json

@@ -18,10 +18,10 @@
   "scripts": {
     "test": "spago docs --no-search && ./dist/purescript-docs-search.cjs build-index && spago test && npm run check-version",
     "bundle-app": "spago bundle-app --no-build --no-install -m Docs.Search.App --to dist/docs-search-app.js",
-    "esbuild-app": "esbuild dist/docs-search-app.js --target=es2016 --bundle --minify --outfile=dist/docs-search-app.min.js && mv dist/docs-search-app.min.js dist/docs-search-app.js",
+    "esbuild-app": "esbuild dist/docs-search-app.js --target=es2016 --bundle --outfile=dist/docs-search-app.min.js && mv dist/docs-search-app.min.js dist/docs-search-app.js",
     "build-app": "npm run bundle-app && npm run esbuild-app",
     "bundle-main": "spago bundle-app --no-build --no-install --platform node -m Docs.Search.Main --to dist/main.js",
-    "esbuild-main": "esbuild dist/main.js --platform=node --bundle --minify --outfile=dist/main.min.js && mv dist/main.min.js dist/main.js",
+    "esbuild-main": "esbuild dist/main.js --platform=node --bundle --outfile=dist/main.min.js && mv dist/main.min.js dist/main.js",
     "add-shebang": "echo \"#!/usr/bin/env node\" > dist/purescript-docs-search.cjs && cat dist/main.js >> dist/purescript-docs-search.cjs",
     "chmod-main": "chmod +x dist/purescript-docs-search.cjs",
     "build-main": "npm run bundle-main && npm run esbuild-main && npm run add-shebang && rm dist/main.js && npm run chmod-main",
@@ -48,8 +48,9 @@
   "devDependencies": {
     "esbuild": "^0.11.10",
     "glob": "^7.1.6",
+    "http-server": "^14.1.1",
     "markdown-it": "^12.0.4",
-    "puppeteer": "^8.0.0",
+    "puppeteer": "^19.2.2",
     "spago": "^0.20.9"
   }
 }

packages.dhall

@@ -3,8 +3,8 @@ let mkPackage =
         sha256:0b197efa1d397ace6eb46b243ff2d73a3da5638d8d0ac8473e8e4a8fc528cf57
 
 let upstream =
-      https://github.com/purescript/package-sets/releases/download/psc-0.15.4-20220829/packages.dhall
-        sha256:9ec64ed24ec308770ccdd3d0edb74a814fcfbe34c7df5c28266935f0b5e585d7
+      https://github.com/purescript/package-sets/releases/download/psc-0.15.7-20230118/packages.dhall
+        sha256:973809c5d08a285ac10c6e66be04ca2c85a2d26493644e9196a6a411359f84b9
 
 let overrides = {=}
 
@@ -177,6 +177,8 @@ let additions =
             ]
             "https://github.com/jvliwanag/purescript-untagged-union.git"
             "ed8262a966e15e751322c327e2759a9b9c0ef3f3"
+      , next-website-commons =
+          ../purescript-next-website-commons/spago.dhall as Location
       }
 
 in  upstream // overrides // additions

spago.dhall

@@ -3,6 +3,7 @@
 , dependencies =
   [ "aff"
   , "aff-promise"
+  , "argonaut"
   , "argonaut-codecs"
   , "argonaut-core"
   , "argonaut-generic"
@@ -19,13 +20,17 @@
   , "halogen"
   , "halogen-css"
   , "halogen-subscriptions"
+  , "httpurple"
+  , "httpurple-argonaut"
+  , "httpurple-yoga-json"
   , "identity"
   , "js-uri"
   , "lists"
   , "markdown-it"
   , "markdown-it-halogen"
   , "maybe"
   , "newtype"
+  , "next-website-commons"
   , "node-buffer"
   , "node-fs"
   , "node-fs-aff"
@@ -50,6 +55,7 @@
   , "web-html"
   , "web-storage"
   , "web-uievents"
+  , "yoga-json"
   ]
 , packages = ./packages.dhall
 }

src/Docs/Search/Engine.purs

@@ -1,22 +1,25 @@
 module Docs.Search.Engine where
 
-import Docs.Search.ModuleIndex (ModuleIndex, ModuleResult)
-import Docs.Search.PackageIndex (PackageIndex, PackageResult)
-import Docs.Search.Score (Scores)
-import Docs.Search.SearchResult (SearchResult, typeOfResult)
-import Docs.Search.TypeQuery (TypeQuery(..), parseTypeQuery, penalty)
-import Docs.Search.Types (PackageInfo(..), ModuleName(..), PackageName(..), PackageScore)
-
 import Prelude
 
+import Data.Argonaut (class DecodeJson, class EncodeJson)
+import Data.Argonaut.Decode.Generic (genericDecodeJson)
+import Data.Argonaut.Encode.Generic (genericEncodeJson)
 import Data.Array as Array
 import Data.Either (hush)
 import Data.Function (on)
+import Data.Generic.Rep (class Generic)
 import Data.List (List)
 import Data.Maybe (Maybe(..))
 import Data.Newtype (unwrap)
 import Data.Search.Trie (Trie)
 import Data.String.Common (toLower) as String
+import Docs.Search.ModuleIndex (ModuleIndex, ModuleResult)
+import Docs.Search.PackageIndex (PackageIndex, PackageResult)
+import Docs.Search.Score (Scores)
+import Docs.Search.SearchResult (SearchResult, typeOfResult)
+import Docs.Search.TypeQuery (TypeQuery(..), parseTypeQuery, penalty)
+import Docs.Search.Types (PackageInfo(..), ModuleName(..), PackageName(..), PackageScore)
 
 
 type Index = Trie Char (List SearchResult)
@@ -64,7 +67,13 @@ data Result
   | TypeResult SearchResult
   | PackResult PackageResult
   | MdlResult  ModuleResult
+derive instance Generic Result _
+
+instance EncodeJson Result where
+  encodeJson = genericEncodeJson
 
+instance DecodeJson Result where
+  decodeJson = genericDecodeJson
 
 getResultScore :: Result -> PackageScore
 getResultScore (DeclResult r) = (unwrap r).score