diff options
author | jao <jao@gnu.org> | 2018-11-25 03:08:40 +0000 |
---|---|---|
committer | jao <jao@gnu.org> | 2018-11-25 03:08:40 +0000 |
commit | 658dd00771852286bb9ce007d11db869c237d934 (patch) | |
tree | 42884b7028392fdd68b550e89cee33c2687e8eed /src/lib/Xmobar/Types.hs | |
parent | 071794d33443ff76d85be035394103fc8bf48e98 (diff) | |
download | xmobar-658dd00771852286bb9ce007d11db869c237d934.tar.gz xmobar-658dd00771852286bb9ce007d11db869c237d934.tar.bz2 |
Refactoring: Xmobar.X11
Diffstat (limited to 'src/lib/Xmobar/Types.hs')
-rw-r--r-- | src/lib/Xmobar/Types.hs | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/src/lib/Xmobar/Types.hs b/src/lib/Xmobar/Types.hs deleted file mode 100644 index f7c4fdf..0000000 --- a/src/lib/Xmobar/Types.hs +++ /dev/null @@ -1,47 +0,0 @@ ------------------------------------------------------------------------------- --- | --- Module: Xmobar.Types --- Copyright: (c) 2018 Jose Antonio Ortega Ruiz --- License: BSD3-style (see LICENSE) --- --- Maintainer: jao@gnu.org --- Stability: unstable --- Portability: portable --- Created: Sat Nov 24, 2018 19:02 --- --- --- The Xmobar basic type --- ------------------------------------------------------------------------------- - - -module Xmobar.Types (X , XConf (..), runX) where - -import Graphics.X11.Xlib -import Control.Monad.Reader -import Data.Map - -import Xmobar.Config -import Xmobar.Bitmap -import Xmobar.XUtil - - --- The Xmobar data type and basic loops and functions. - --- | The X type is a ReaderT -type X = ReaderT XConf IO - --- | The ReaderT inner component -data XConf = - XConf { display :: Display - , rect :: Rectangle - , window :: Window - , fontListS :: [XFont] - , verticalOffsets :: [Int] - , iconS :: Map FilePath Bitmap - , config :: Config - } - --- | Runs the ReaderT -runX :: XConf -> X () -> IO () -runX xc f = runReaderT f xc |