Better define the page we are on

fixes #124
NixOS · Jul 9, 2020 · 5b21262 · 5b21262
1 parent 08c5d99
commit 5b21262
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/src/Main.elm b/src/Main.elm
@@ -360,7 +360,12 @@ viewNavigationItem :
     -> Html Msg
 viewNavigationItem url ( path, title ) =
     li
-        [ classList [ ( "active", path == url.path ) ] ]
+        [ classList
+            [ ( "active"
+              , String.startsWith url.path path
+              )
+            ]
+        ]
         [ a [ href path ] [ text title ] ]
 
 

diff --git a/src/Search.elm b/src/Search.elm
@@ -45,6 +45,7 @@ import Html.Attributes
         , classList
         , href
         , id
+        , placeholder
         , type_
         , value
         )
@@ -748,6 +749,7 @@ view path title model viewSuccess outMsg =
                          , id "search-query-input"
                          , autocomplete False
                          , autofocus True
+                         , placeholder <| "Search for " ++ path
                          , onInput (\x -> outMsg (QueryInput x))
                          , value <| Maybe.withDefault "" model.query
                          ]