summaryrefslogtreecommitdiffstats
path: root/State.hs
diff options
context:
space:
mode:
Diffstat (limited to 'State.hs')
-rw-r--r--State.hs42
1 files changed, 0 insertions, 42 deletions
diff --git a/State.hs b/State.hs
deleted file mode 100644
index a291a53..0000000
--- a/State.hs
+++ /dev/null
@@ -1,42 +0,0 @@
-module State where
-
-import Blessings.String (Blessings)
-import qualified Data.Text as T
-import Data.Time
-import qualified Data.Tree.Zipper as Z
-import Scanner
-import System.Posix.Signals
-import TreeView (TreeView)
-
-data State = State
- { cursor :: Z.TreePos Z.Full TreeView
- , xoffset :: Int
- , yoffset :: Int
- , flashMessage :: Blessings String
- , screenWidth :: Int
- , screenHeight :: Int
- , headBuffer :: [Blessings String]
- , treeBuffer :: [Blessings String]
- , now :: UTCTime
- , signalHandlers :: [(Signal, IO ())]
- , query :: String
- , keymap :: String -> State -> IO State
- , mousemap :: Scan -> State -> IO State
- , tagSymbols :: [(T.Text, T.Text)]
- , colorConfig :: ColorConfig
- }
-
-data ColorConfig = ColorConfig
- { alt :: Blessings String -> Blessings String
- , search :: Blessings String -> Blessings String
- , focus :: Blessings String -> Blessings String
- , quote :: Blessings String -> Blessings String
- , boring :: Blessings String -> Blessings String
- , prefix :: Blessings String -> Blessings String
- , date :: Blessings String -> Blessings String
- , tags :: Blessings String -> Blessings String
- , unreadSearch :: Blessings String -> Blessings String
- , unreadMessage :: Blessings String -> Blessings String
- , boringMessage :: Blessings String -> Blessings String
- , tagMap :: [(T.Text, Blessings String -> Blessings String)]
- }