Fix search navigation

Author: josevalim

src/hexdocs.gleam

@@ -24,7 +24,6 @@ import hexdocs/view/search
 import lustre
 import lustre/effect.{type Effect}
 import lustre/element/html
-import modem
 
 pub fn main() {
   let flags = Nil
@@ -66,7 +65,6 @@ fn update(model: Model, msg: Msg) {
     msg.UserToggledDarkMode -> user_toggled_dark_mode(model)
     msg.UserToggledSidebar -> model.toggle_sidebar(model)
     msg.UserClosedSidebar -> model.close_sidebar(model)
-    msg.UserClickedGoBack -> user_clicked_go_back(model)
 
     msg.UserFocusedSearch -> user_focused_search(model)
     msg.UserBlurredSearch -> model.blur_search(model)
@@ -308,10 +306,6 @@ fn user_deleted_packages_filter(
   |> model.push_search_packages
 }
 
-fn user_clicked_go_back(model: Model) -> #(Model, Effect(msg)) {
-  #(model, modem.back(1))
-}
-
 fn user_submitted_packages_filter(model: Model) {
   let package = model.search_packages_filter_input
   let version = model.search_packages_filter_version_input

src/hexdocs/data/model.gleam

@@ -19,6 +19,7 @@ import hexdocs/loss
 import hexdocs/services/hex
 import hexdocs/services/hexdocs
 import lustre/effect.{type Effect}
+import modem
 
 pub type Model {
   Model(
@@ -223,8 +224,8 @@ pub fn focus_packages_filter_version_search(model: Model) {
   |> autocomplete_versions(model.search_packages_filter_version_input_displayed)
 }
 
-pub fn update_route(model: Model, route: uri.Uri) {
-  let route = route.from_uri(route)
+pub fn update_route(model: Model, uri: uri.Uri) {
+  let route = route.from_uri(uri)
   let model =
     Model(
       ..model,
@@ -235,7 +236,8 @@ pub fn update_route(model: Model, route: uri.Uri) {
       search_packages_filter_input_displayed: "",
     )
   case route {
-    route.Home | route.NotFound -> #(model, effect.none())
+    route.NotFound -> #(model, modem.load(uri))
+    route.Home -> #(model, effect.none())
     route.Search(q:, packages:) -> {
       let packages = {
         use #(package, ver) <- list.map(packages)

src/hexdocs/data/msg.gleam

@@ -20,7 +20,6 @@ pub type Msg {
   DocumentRegisteredEventListener(unsubscriber: fn() -> Nil)
   DocumentRegisteredSidebarListener(unsubscriber: fn() -> Nil)
   DocumentChangedTheme(color_theme: ColorMode)
-  UserClickedGoBack
   UserToggledDarkMode
   UserToggledSidebar
   UserClosedSidebar