Better define the page we are on (#126)

fixes #124

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 ] ]
 
 

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
                          ]