Commit 939189cd authored by Abinaya Sudhir's avatar Abinaya Sudhir

Docview style changed

parent 6e229ca7
...@@ -170,10 +170,11 @@ layoutDocview = simpleSpec performAction render ...@@ -170,10 +170,11 @@ layoutDocview = simpleSpec performAction render
[ p'' [ p''
, div [] [ text " Filter ", input [] []] , div [] [ text " Filter ", input [] []]
, br' [] , br' []
, div [] [ b [] [text d.title] , div [className "row"]
, sizeDD d.pageSize dispatch [ div [className "col-md-1"] [b [] [text d.title]]
, textDescription d.currentPage d.pageSize d.totalRecords , div [className "col-md-2"] [sizeDD d.pageSize dispatch]
, pagination dispatch d.totalPages d.currentPage , div [className "col-md-3"] [textDescription d.currentPage d.pageSize d.totalRecords]
, div [className "col-md-3"] [pagination dispatch d.totalPages d.currentPage]
] ]
, table [ className "table"] , table [ className "table"]
[thead [ className "thead-dark"] [thead [ className "thead-dark"]
...@@ -193,6 +194,7 @@ layoutDocview = simpleSpec performAction render ...@@ -193,6 +194,7 @@ layoutDocview = simpleSpec performAction render
] ]
] ]
performAction :: PerformAction _ State _ Action performAction :: PerformAction _ State _ Action
performAction (ChangePageSize ps) _ _ = void (cotransform (\state -> changePageSize ps state )) performAction (ChangePageSize ps) _ _ = void (cotransform (\state -> changePageSize ps state ))
...@@ -335,8 +337,8 @@ optps cv val = option [ selected (cv == val), value $ show val ] [text $ show va ...@@ -335,8 +337,8 @@ optps cv val = option [ selected (cv == val), value $ show val ] [text $ show va
textDescription :: Int -> PageSizes -> Int -> ReactElement textDescription :: Int -> PageSizes -> Int -> ReactElement
textDescription currPage pageSize totalRecords textDescription currPage pageSize totalRecords
= div [className "row"] = div [className "row1"]
[ div [className "col-md-2"] [ div [className ""]
[ text $ "Showing " <> show start <> " to " <> show end <> " of " <> show totalRecords ] [ text $ "Showing " <> show start <> " to " <> show end <> " of " <> show totalRecords ]
] ]
where where
...@@ -425,5 +427,3 @@ lessthan x y = x < y ...@@ -425,5 +427,3 @@ lessthan x y = x < y
greaterthan :: forall t28. Ord t28 => t28 -> t28 -> Boolean greaterthan :: forall t28. Ord t28 => t28 -> t28 -> Boolean
greaterthan x y = x > y greaterthan x y = x > y
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment