49 lines
1.3 KiB
Haskell
49 lines
1.3 KiB
Haskell
{-|
|
|
|
|
Module: Password.App
|
|
Description: the application frontend
|
|
Copyright: (C) Jonathan Lamothe
|
|
License: LGPLv3 (or later)
|
|
Maintainer: jonathan@jlamothe.net
|
|
|
|
This program is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU Lesser General Public License as
|
|
published by the Free Software Foundation, either version 3 of the
|
|
License, or (at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful, but
|
|
WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Lesser General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Lesser General Public
|
|
License along with this program. If not, see
|
|
<https://www.gnu.org/licenses/>.
|
|
|
|
-}
|
|
|
|
module Password.App (passmanApp) where
|
|
|
|
import Brick
|
|
( App (..)
|
|
, attrMap
|
|
, showFirstCursor
|
|
, style
|
|
)
|
|
|
|
import Password.App.Draw
|
|
import Password.App.Event
|
|
import Password.App.Types
|
|
|
|
-- | The main application
|
|
passmanApp :: App AppState () ResName
|
|
passmanApp = App
|
|
{ appDraw = drawFunc
|
|
, appChooseCursor = showFirstCursor
|
|
, appHandleEvent = eventHandler
|
|
, appStartEvent = loadDatabase
|
|
, appAttrMap = const $ attrMap (style 0) []
|
|
}
|
|
|
|
--jl
|