frontend: show query in title (#662)

Fixes https://github.com/NixOS/nixos-search/issues/661
2023-06-11 13:02:41 +02:00 · 2023-06-11 13:02:41 +02:00 · c98b1e3685
parent 7ef651230b
commit c98b1e3685
1 changed files with 22 additions and 6 deletions
--- 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"