use brick

src/Password/App.hs

@@ -0,0 +1,55 @@
+{-|
+
+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 (..)
+  , BrickEvent
+  , EventM
+  , Widget
+  , attrMap
+  , emptyWidget
+  , halt
+  , neverShowCursor
+  , style
+  )
+
+-- | The main application
+passmanApp :: App () () ()
+passmanApp = App
+  { appDraw         = drawFunc
+  , appChooseCursor = neverShowCursor
+  , appHandleEvent  = eventHandler
+  , appStartEvent   = return ()
+  , appAttrMap      = const $ attrMap (style 0) []
+  }
+
+drawFunc :: () -> [Widget ()]
+drawFunc = const [emptyWidget]
+
+eventHandler :: BrickEvent () () -> EventM () () ()
+eventHandler = const halt
+
+--jl