From 729e030dd25da2e36fa5a1312b8ecb3415dc1675 Mon Sep 17 00:00:00 2001
From: Azat Bahawi <azahi@teknik.io>
Date: Tue, 23 Nov 2021 03:19:06 +0300
Subject: Huge update

---
 src/exe/Main.hs | 70 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 70 insertions(+)
 create mode 100644 src/exe/Main.hs

(limited to 'src/exe')

diff --git a/src/exe/Main.hs b/src/exe/Main.hs
new file mode 100644
index 0000000..3a57650
--- /dev/null
+++ b/src/exe/Main.hs
@@ -0,0 +1,70 @@
+-- |
+-- Module                  : Main
+-- Description             : Entrypoint
+-- Copyright               : (c) Azat Bahawi 2018-2021
+-- SPDX-License-Identifier : GPL-3.0-or-later
+-- Maintainer              : azahi@teknik.io
+-- Stability               : experimental
+-- Portability             : non-portable
+--
+
+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 )
+
+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
+          }
-- 
cgit 1.4.1