feat(users/Profpatsch/whatcd-resolver): simplify search

Throws out htmx for search in favor of a full page-reload for search.
This means we can reload the page and it will re-do the search.

It’s not POST anymore cause we don’t really change anything, just
do some caching when doing the search. Could probably also cache the
search result, but simple simple

Change-Id: I70b0cbac55f67c986aeecfedcf0b3968890b3b9c
Reviewed-on: https://cl.tvl.fyi/c/depot/+/13212
Tested-by: BuildkiteCI
Reviewed-by: Profpatsch <mail@profpatsch.de>

users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs

@@ -135,24 +135,21 @@ htmlUi = do
                     counterHtml <- counterHtmlM
                     mainHtml counterHtml uniqueRunId span
                 ),
-                ( "snips/redacted/search",
+                ( "redacted-search",
-                  Html $
+                  HtmlWithQueryArgs (singleQueryArgument "searchstr" Cat.id) $
-                    \span -> do
+                    \searchstr _span -> do
-                      dat <-
+                      t <- redactedSearchAndInsert [("searchstr", searchstr)]
-                        parseMultipartOrThrow
-                          span
-                          req
-                          ( do
-                              label @"searchstr" <$> Multipart.field "redacted-search" Cat.id
-                          )
-                      t <- redactedSearchAndInsert [("searchstr", dat.searchstr)]
                       runTransaction $ do
                         res <- t
-                        table <-
+                        (table, settings) <-
-                          getBestTorrentsTable
+                          concurrentlyTraced
+                            ( getBestTorrentsTable
                                 (label @"groupByReleaseType" True)
-                            ( Just (E21 (label @"onlyTheseTorrents" res.newTorrents)) ::
+                                ( Just
-                                ( Maybe
+                                    ( E21
+                                        (label @"onlyTheseTorrents" res.newTorrents)
+                                    ) ::
+                                    Maybe
                                       ( E2
                                           "onlyTheseTorrents"
                                           [Label "torrentId" Int]
@@ -161,11 +158,20 @@ htmlUi = do
                                       )
                                 )
                             )
-                        pure
+                            (getSettings)
-                          [hsx|
+                        pure $
-                          <h1>Search results for <pre>{dat.searchstr}</pre></h1>
+                          mainHtml'
-                          {table}
+                            ( MainHtml
-                        |]
+                                { pageTitle = [fmt|whatcd-resolver – Search – {searchstr & bytesToTextUtf8Lenient}|],
+                                  counterHtml = "",
+                                  mainContent =
+                                    [hsx|<h1>Search results for <pre>{searchstr}</pre></h1>{table}|],
+                                  uniqueRunId,
+                                  searchFieldContent = searchstr & bytesToTextUtf8Lenient,
+                                  settings
+                                }
+                            )
+                            _span
                 ),
                 ( "snips/redacted/torrentDataJson",
                   Html $ \span -> do
@@ -337,28 +343,52 @@ htmlUi = do
           (getBestTorrentsTable (label @"groupByReleaseType" False) Nothing)
           (getSettings)
       -- transmissionTorrentsTable <- lift @Transaction getTransmissionTorrentsTable
-      let returnUrl = (label @"returnUrl" "/")
       pure $
+        mainHtml'
+          ( MainHtml
+              { pageTitle = "whatcd-resolver",
+                counterHtml,
+                mainContent = bestTorrentsTable,
+                uniqueRunId,
+                settings,
+                searchFieldContent = ""
+              }
+          )
+          _span
+
+data MainHtml = MainHtml
+  { pageTitle :: Text,
+    counterHtml :: Html,
+    mainContent :: Html,
+    searchFieldContent :: Text,
+    uniqueRunId :: Text,
+    settings :: Settings
+  }
+
+mainHtml' :: MainHtml -> Otel.Span -> Html
+mainHtml' dat _span = do
+  -- transmissionTorrentsTable <- lift @Transaction getTransmissionTorrentsTable
+  let returnUrl = (label @"returnUrl" "/")
+
   htmlPageChrome
-          "whatcd-resolver"
+    dat.pageTitle
     ( [hsx|
-            {counterHtml}
+            {dat.counterHtml}
-            {settingButtons returnUrl settings}
+            {settingButtons returnUrl dat.settings}
           |]
         <> [hsx|
-            <form
+            <form action="redacted-search">
-              hx-post="/snips/redacted/search"
+              <label for="redacted-search-input">Redacted Search</label>
-              hx-target="#redacted-search-results">
-              <label for="redacted-search">Redacted Search</label>
               <input
-                id="redacted-search"
+                id="redacted-search-input"
                 type="text"
-                name="redacted-search" />
+                name="searchstr"
+                value={dat.searchFieldContent} />
               <button type="submit" hx-disabled-elt="this">Search</button>
               <div class="htmx-indicator">Search running!</div>
             </form>
-            <div id="redacted-search-results">
+            <div>
-              {bestTorrentsTable}
+              {dat.mainContent}
             </div>
             <!-- refresh the page if the uniqueRunId is different -->
             <input
@@ -366,7 +396,7 @@ htmlUi = do
                 type="text"
                 id="autorefresh"
                 name="hasItBeenRestarted"
-                value={uniqueRunId}
+                value={dat.uniqueRunId}
                 hx-get="/autorefresh"
                 hx-trigger="every 5s"
                 hx-swap="none"