From c98b1e3685dacc53df66d33af665a21f9477b165 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Na=C3=AFm=20Favier?= <n@monade.li>
Date: Sun, 11 Jun 2023 13:02:41 +0200
Subject: [PATCH] frontend: show query in title (#662)

Fixes https://github.com/NixOS/nixos-search/issues/661
---
 frontend/src/Main.elm | 28 ++++++++++++++++++++++------
 1 file changed, 22 insertions(+), 6 deletions(-)

diff --git a/frontend/src/Main.elm b/frontend/src/Main.elm
index dde28a3..32a5d7d 100644
--- a/frontend/src/Main.elm
+++ b/frontend/src/Main.elm
@@ -343,16 +343,32 @@ view :
         }
 view model =
     let
+        maybeQuery m =
+            case m.query of
+                Nothing ->
+                    ""
+
+                Just q ->
+                    " - " ++ q
+
+        maybeFlakeQuery m =
+            case m of
+                OptionModel m_ ->
+                    maybeQuery m_
+
+                PackagesModel m_ ->
+                    maybeQuery m_
+
         title =
             case model.page of
-                Packages _ ->
-                    "NixOS Search - Packages"
+                Packages m ->
+                    "NixOS Search - Packages" ++ maybeQuery m
 
-                Options _ ->
-                    "NixOS Search - Options"
+                Options m ->
+                    "NixOS Search - Options" ++ maybeQuery m
 
-                Flakes _ ->
-                    "NixOS Search - Flakes (Experimental)"
+                Flakes m ->
+                    "NixOS Search - Flakes (Experimental)" ++ maybeFlakeQuery m
 
                 _ ->
                     "NixOS Search"