diff options
| author | Azat Bahawi <azahi@teknik.io> | 2021-12-02 10:46:40 +0300 |
|---|---|---|
| committer | Azat Bahawi <azahi@teknik.io> | 2021-12-02 10:46:40 +0300 |
| commit | 1be0f7aee9a571b4b0694136758df53b63c6f915 (patch) | |
| tree | 3817e90e0b4cdf6b24d8e9faac7579fe620f0c6b /src/exe/Main.hs | |
| parent | Update HIE (diff) | |
Some stuff
Diffstat (limited to 'src/exe/Main.hs')
| -rw-r--r-- | src/exe/Main.hs | 61 |
1 files changed, 4 insertions, 57 deletions
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 |