Extract list item to view

RailsEventStore · Mar 22, 2024 · 8424087 · 8424087
1 parent 372dc97
commit 8424087
Showing 1 changed file with 14 additions and 13 deletions.
diff --git a/ruby_event_store-browser/elm/src/Search.elm b/ruby_event_store-browser/elm/src/Search.elm
@@ -83,19 +83,20 @@ viewStreamList : Model a -> Html Msg
 viewStreamList model =
     div
         []
-        [ ul [ class "mt-4 h-80 overflow-auto space-y-2 w-full" ]
-            (List.map
-                (\stream ->
-                    li []
-                        [ a
-                            [ class "p-3 block rounded hover:bg-red-200 w-full bg-gray-100 break-words text-xs font-bold font-mono"
-                            , href ("/streams/" ++ stream)
-                            ]
-                            [ text stream ]
-                        ]
-                )
-                model.streams
-            )
+        [ ul
+            [ class "mt-4 overflow-auto space-y-2 w-full" ]
+            (List.map (\stream -> viewStreamListItem stream) model.streams)
+        ]
+
+
+viewStreamListItem : Stream -> Html Msg
+viewStreamListItem stream =
+    li []
+        [ a
+            [ class "p-3 block rounded hover:bg-red-200 w-full bg-gray-100 break-words text-xs font-bold font-mono"
+            , href ("/streams/" ++ stream)
+            ]
+            [ text stream ]
         ]