From 1be0f7aee9a571b4b0694136758df53b63c6f915 Mon Sep 17 00:00:00 2001
From: Azat Bahawi <azahi@teknik.io>
Date: Thu, 2 Dec 2021 10:46:40 +0300
Subject: Some stuff

---
 src/exe/Main.hs | 61 ++++-----------------------------------------------------
 1 file changed, 4 insertions(+), 57 deletions(-)

(limited to 'src/exe')

diff --git a/src/exe/Main.hs b/src/exe/Main.hs
index 3a57650..7b08f2a 100644
--- a/src/exe/Main.hs
+++ b/src/exe/Main.hs
@@ -1,6 +1,6 @@
 -- |
 -- Module                  : Main
--- Description             : Entrypoint
+-- Description             : Application entrypoint
 -- Copyright               : (c) Azat Bahawi 2018-2021
 -- SPDX-License-Identifier : GPL-3.0-or-later
 -- Maintainer              : azahi@teknik.io
@@ -10,61 +10,8 @@
 
 module Main where
 
-import           XMonad                         ( Default(def)
-                                                , XConfig
-                                                  ( borderWidth
-                                                  , clickJustFocuses
-                                                  , focusFollowsMouse
-                                                  , focusedBorderColor
-                                                  , handleEventHook
-                                                  , keys
-                                                  , layoutHook
-                                                  , manageHook
-                                                  , modMask
-                                                  , mouseBindings
-                                                  , normalBorderColor
-                                                  , startupHook
-                                                  , terminal
-                                                  , workspaces
-                                                  )
-                                                , xmonad
-                                                )
-import           XMonad.Actions.DynamicProjects ( dynamicProjects )
-import           XMonad.Actions.Navigation2D    ( withNavigation2DConfig )
-import qualified XMonad.Custom.Bindings        as C
-import qualified XMonad.Custom.Event           as C
-import qualified XMonad.Custom.Layout          as C
-import qualified XMonad.Custom.Manage          as C
-import qualified XMonad.Custom.Misc            as C
-import qualified XMonad.Custom.Navigation      as C
-import qualified XMonad.Custom.Projects        as C
-import qualified XMonad.Custom.Startup         as C
-import qualified XMonad.Custom.Theme           as C
-import qualified XMonad.Custom.Workspaces      as C
-import           XMonad.Hooks.EwmhDesktops      ( ewmh )
-import           XMonad.Hooks.ManageDocks       ( docks )
-import           XMonad.Layout.Fullscreen       ( fullscreenSupport )
+import           XMonad
+import           XMonad.Custom.Config
 
 main :: IO ()
-main =
-  xmonad
-    $ ewmh
-    $ fullscreenSupport
-    $ docks
-    $ withNavigation2DConfig C.navigation
-    $ dynamicProjects C.projects
-    $ def { borderWidth        = C.border
-          , workspaces         = C.workspaces
-          , layoutHook         = C.layoutHook
-          , terminal           = C.term C.applications
-          , normalBorderColor  = C.colorN
-          , focusedBorderColor = C.colorF
-          , modMask            = C.modMask
-          , keys               = C.keys
-          , startupHook        = C.startupHook
-          , mouseBindings      = C.mouseBindings
-          , manageHook         = C.manageHook
-          , handleEventHook    = C.handleEventHook
-          , focusFollowsMouse  = False
-          , clickJustFocuses   = False
-          }
+main = myConfig >>= xmonad
-- 
cgit 1.4.1