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 +++++++++++++++++++++++++------- src/XMonad/Custom/Layout.hs | 2 +- src/XMonad/Custom/Log.hs | 1 - src/XMonad/Custom/Misc.hs | 1 - src/XMonad/Custom/Startup.hs | 1 - 5 files changed, 26 insertions(+), 11 deletions(-) (limited to 'src') 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 = diff --git a/src/XMonad/Custom/Layout.hs b/src/XMonad/Custom/Layout.hs index c7989b4..fe9224a 100644 --- a/src/XMonad/Custom/Layout.hs +++ b/src/XMonad/Custom/Layout.hs @@ -50,7 +50,7 @@ layoutHook = $ mkToggle (single NBFULL) $ avoidStruts $ applySpacing - -- $ mkToggle (single GAPS) + $ mkToggle (single GAPS) $ mkToggle (single REFLECTX) $ mkToggle (single REFLECTY) $ windowNavigation diff --git a/src/XMonad/Custom/Log.hs b/src/XMonad/Custom/Log.hs index bfd7093..6b7af37 100644 --- a/src/XMonad/Custom/Log.hs +++ b/src/XMonad/Custom/Log.hs @@ -5,7 +5,6 @@ -- Maintainer : Azat Bahawi -- Stability : unstable -- Portability : unportable --- module XMonad.Custom.Log ( logHook diff --git a/src/XMonad/Custom/Misc.hs b/src/XMonad/Custom/Misc.hs index e43e171..aa48ee2 100644 --- a/src/XMonad/Custom/Misc.hs +++ b/src/XMonad/Custom/Misc.hs @@ -7,7 +7,6 @@ -- Maintainer : Azat Bahawi -- Stability : unstable -- Portability : unportable --- module XMonad.Custom.Misc ( Applications(..) diff --git a/src/XMonad/Custom/Startup.hs b/src/XMonad/Custom/Startup.hs index 5a755b2..cdd63ac 100644 --- a/src/XMonad/Custom/Startup.hs +++ b/src/XMonad/Custom/Startup.hs @@ -5,7 +5,6 @@ -- Maintainer : Azat Bahawi -- Stability : unstable -- Portability : unportable --- module XMonad.Custom.Startup ( startupHook -- cgit 1.4.1