rachel/kino
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Merge branch 'master' of githug.xyz:rachel/kino

Browse Source
This commit is contained in:
Rachel Lambda Samuelsson 2023-07-25 11:56:16 +02:00
commit 37e88a8d8e
2 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Kino/UI.hs
View File

@ -62,9 +62,7 @@ runApp = defaultMain app initialState
-- | The starting event which grabs the inital listing -- | The starting event which grabs the inital listing
startEvent :: AppS -> EventM Ident AppS startEvent :: AppS -> EventM Ident AppS
startEvent s = do startEvent = liftIO . setMovies
-- todo move unwrapping our response structure into a function
pure =<< liftIO (setMovies s)
-- | The drawing function which defers to the proper function -- | The drawing function which defers to the proper function
-- from UI.Widgets -- from UI.Widgets

4
src/Kino/UI/Widgets.hs
View File

@ -30,14 +30,12 @@ select = withAttr (attrName "selected")
-- movie to the widget second widget. Used by movieWidgets -- movie to the widget second widget. Used by movieWidgets
widgetCons :: AppS -> JSONMovie -> Widget Ident -> Widget Ident widgetCons :: AppS -> JSONMovie -> Widget Ident -> Widget Ident
widgetCons s m w = widgetCons s m w =
embed $ if Just m == (s ^. appDetails) (<=> w) $ if Just m == (s ^. appDetails)
then select . visible $ then select . visible $
if s ^. appExpanded if s ^. appExpanded
then expandedWidget m then expandedWidget m
else movieWidget m else movieWidget m
else movieWidget m else movieWidget m
where
embed = (<=> w)
-- | Returns a big list of all movies -- | Returns a big list of all movies
movieWidgets :: AppS -> Widget Ident movieWidgets :: AppS -> Widget Ident