bff0656806
This commit also adds a few other files that I've been working on, although most of it will get deleted again. This is just so I have them logged in git.
42 lines
1.3 KiB
Haskell
42 lines
1.3 KiB
Haskell
module TaskMachine.UI.ListScreen where
|
|
{-
|
|
( ListScreen
|
|
, newListScreen
|
|
, renderListScreen
|
|
, updateListScreen
|
|
) where
|
|
|
|
import qualified Brick as B
|
|
import qualified Brick.Widgets.List as B
|
|
import Data.Time
|
|
import qualified Graphics.Vty.Input.Events as VTY
|
|
import qualified Data.Vector as V
|
|
import qualified Database.SQLite.Simple as DB
|
|
|
|
import qualified TaskMachine.Database as TM
|
|
import qualified TaskMachine.Task as TM
|
|
import qualified TaskMachine.UI.Types as TM
|
|
|
|
type Res = TM.ResourceName
|
|
|
|
newtype ListScreen = ListScreen (B.List Res TM.Task)
|
|
|
|
newListScreen :: DB.Connection -> IO ListScreen
|
|
newListScreen conn = do
|
|
today <- utctDay <$> getCurrentTime
|
|
relevant <- map TM.fromTaskRow <$> TM.selectRelevantTasks conn today
|
|
let sorted = relevant -- TM.sort??? relevant
|
|
vector = V.fromList sorted
|
|
list = B.list TM.RTaskList vector 1
|
|
return $ ListScreen list
|
|
|
|
renderTask :: Bool -> TM.Task -> B.Widget Res
|
|
renderTask _ task = B.txt $ TM.taskDescription task
|
|
|
|
renderListScreen :: Bool -> ListScreen -> B.Widget Res
|
|
renderListScreen focused (ListScreen list) = B.renderList renderTask focused list
|
|
|
|
updateListScreen :: VTY.Event -> ListScreen -> B.EventM Res ListScreen
|
|
updateListScreen event (ListScreen list) =
|
|
ListScreen <$> B.handleListEventVi B.handleListEvent event list
|
|
-}
|