From f4cdf79bd4a75e9eafe68b9a908f4cc68682b7ef Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Tue, 5 Apr 2022 21:39:55 +0200
Subject: boom

---
 src/Pager/Types.hs | 22 ++++++++++++++++------
 1 file changed, 16 insertions(+), 6 deletions(-)

(limited to 'src/Pager/Types.hs')

diff --git a/src/Pager/Types.hs b/src/Pager/Types.hs
index 95dd837..a2ea5aa 100644
--- a/src/Pager/Types.hs
+++ b/src/Pager/Types.hs
@@ -1,10 +1,24 @@
 {-# LANGUAGE TemplateHaskell #-}
 module Pager.Types where
 
-import Data.Aeson.TH (Options(fieldLabelModifier), deriveJSON, defaultOptions)
 import Data.Text (Text)
+import Scanner (Scan)
 
 
+data Action
+  = None
+  | FocusWorkspace Text
+
+data Command =
+  ViewWorkspace |
+  ShiftWindowToWorkspace Int |
+  ShiftWindowToAndViewWorkspace Int
+
+data Event =
+    EResize Int Int |
+    EScan Scan |
+    EShutdown
+
 data Geometry = Geometry
   { geometry_x :: Int
   , geometry_y :: Int
@@ -24,9 +38,5 @@ data Workspace = Workspace
   { workspace_geometry :: Geometry
   , workspace_focused :: Bool
   , workspace_name :: Text
-  , workspace_windows :: [Window]
+  , workspace_windows :: [Window] -- sorted by z-order, earlier windows overlap later ones
   }
-
-$(deriveJSON defaultOptions { fieldLabelModifier = tail . dropWhile (/='_') } ''Geometry)
-$(deriveJSON defaultOptions { fieldLabelModifier = tail . dropWhile (/='_') } ''Window)
-$(deriveJSON defaultOptions { fieldLabelModifier = tail . dropWhile (/='_') } ''Workspace)
-- 
cgit v1.2.3