1 files changed, 0 insertions, 46 deletions
diff --git a/plug/src/Config.hs b/plug/src/Config.hs
deleted file mode 100644
index c76898e..0000000
--- a/plug/src/Config.hs
+++ /dev/null
@@ -1,46 +0,0 @@
-module Config () where
-
-import Control.Monad.IO.Class (liftIO)
-import Data.Bits (shiftL, (.&.))
-import Data.Word (Word32)
-import Montis.Core
-import Montis.Base.Foreign.Runtime
-import Montis.Standard.Drag (DragConfig (DragConfig), unwrapSelf)
-import Montis.Standard.Keys (KeysConfig (KeysConfig), subkeys)
-import Montis.Standard.Mouse (MouseConfig (MouseConfig))
-
-foreign export ccall "plugin_cold_start"
-  coldStart :: MontisColdStart
-
-foreign export ccall "plugin_hot_start"
-  hotStart :: MontisHotStart
-
-coldStart :: MontisColdStart
-coldStart = coldStartMontis config
-
-hotStart :: MontisHotStart
-hotStart = hotStartMontis config
-
-keys :: KeyEvent -> Montis Bool
-keys ev
-  | keyEvent_modifiers ev .&. mod1Mask == 0 = return False
-  | otherwise = case keyEvent_codepoint ev of
-      'j' -> do
-        liftIO (putStrLn "j was pressed!")
-        subkeys $ \ev -> case keyEvent_codepoint ev of
-          'k' -> do
-            liftIO (putStrLn "k was pressed after j!")
-            self <- getSelfPtr
-            liftIO $ foreign_warpCursor (unwrapSelf self) 0 0
-            return True
-          _ -> return False
-      _ -> return False
-
-mod1Mask :: Word32
-mod1Mask = 1 `shiftL` 3 -- WLR_MODIFIER_ALT
-
-config :: MontisConfig
-config =
-  install MouseConfig $
-    install (DragConfig mod1Mask) $
-      install (KeysConfig keys) defaultConfig