[WIP] - Window change hooks

1 files changed, 25 insertions, 0 deletions

diff --git a/src/Rahm/Desktop/History.hs b/src/Rahm/Desktop/History.hs
new file mode 100644
index 0000000..8aff845
--- /dev/null
+++ b/src/Rahm/Desktop/History.hs
@@ -0,0 +1,25 @@
+module Rahm.Desktop.History where
+
+import Data.IntMap (IntMap)
+import qualified Data.IntMap as IntMap
+import Data.Default
+
+import Rahm.Desktop.Hooks.WindowChange
+
+data History = History {
+    currentIndex :: Int
+  , history :: IntMap Location
+  }
+
+instance Default History where
+  def = History 0 IntMap.empty
+
+addToHistory :: Location -> History -> History
+addToHistory loc (History currentIndex hist) =
+  let hist' = if currentIndex > 100
+                then IntMap.delete (currentIndex - 100) hist
+                else hist
+    in History (currentIndex + 1 ) (IntMap.insert currentIndex loc hist)
+
+historyHook :: Location -> Location -> X ()
+historyHook = undefined