From 49f1d6b3acece70f886e3d52f7a8cb336b7f3f63 Mon Sep 17 00:00:00 2001 From: Azat Bahawi Date: Mon, 22 Nov 2021 00:46:38 +0300 Subject: Making progress --- src/Main.hs | 32 +++++++++++++++++++++++++------- 1 file changed, 25 insertions(+), 7 deletions(-) (limited to 'src/Main.hs') diff --git a/src/Main.hs b/src/Main.hs index 23514e1..74b63a1 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -5,13 +5,31 @@ -- Maintainer : Azat Bahawi -- Stability : unstable -- Portability : unportable --- module Main where -import XMonad -import XMonad.Actions.DynamicProjects -import XMonad.Actions.Navigation2D +import XMonad ( Default(def) + , XConfig + ( borderWidth + , clickJustFocuses + , focusFollowsMouse + , focusedBorderColor + , handleEventHook + , keys + , layoutHook + , logHook + , 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 @@ -23,9 +41,9 @@ 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 -import XMonad.Hooks.ManageDocks -import XMonad.Layout.Fullscreen +import XMonad.Hooks.EwmhDesktops ( ewmh ) +import XMonad.Hooks.ManageDocks ( docks ) +import XMonad.Layout.Fullscreen ( fullscreenSupport ) main :: IO () main = -- cgit 1.4.1