0
/
chandler-miso
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Searched posts show up as a CatalogGrid 

- but not many posts have an attachment, so I might have to fix things
This commit is contained in:
towards-a-new-leftypol 2024-03-02 03:03:25 -05:00
parent 534ac9075c
commit c8f720f05b
2 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Component/CatalogGrid.hs
View File

@ -1,7 +1,7 @@
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
module Component.CatalogGrid module Component.CatalogGrid
( Model ( Model (..)
, initialModel , initialModel
, Action (..) , Action (..)
, Interface (..) , Interface (..)

13
src/Main.hs
View File

@ -52,6 +52,7 @@ import qualified Component.CatalogGrid as Grid
import qualified Component.ThreadView as Thread import qualified Component.ThreadView as Thread
import qualified Component.TimeControl as TC import qualified Component.TimeControl as TC
import qualified Component.Search as Search import qualified Component.Search as Search
import qualified Component.Search.SearchTypes as Search
data Model = Model data Model = Model
@ -211,7 +212,17 @@ mainView model = view
(thread_model m) (thread_model m)
search_view :: Maybe Text -> Model -> View Action search_view :: Maybe Text -> Model -> View Action
search_view _ _ = div_ [] [ text "Search results" ] search_view _ m = div_ []
[ div_
[ class_ "page_heading" ]
[ h1_ [] [ text "Search" ]
, time_ [] [ text $ Search.searchTerm $ search_model m ]
]
, Search.view iSearch (search_model m)
, Grid.view iGrid $ (grid_model model)
{ Grid.display_items = (Search.displayResults (search_model m))
}
]
page404 :: View Action page404 :: View Action
page404 = h1_ [] [ text "404 Not Found" ] page404 = h1_ [] [ text "404 Not Found" ]