diff options
| author | Azat Bahawi <azahi@teknik.io> | 2021-11-22 00:46:38 +0300 |
|---|---|---|
| committer | Azat Bahawi <azahi@teknik.io> | 2021-11-22 00:46:38 +0300 |
| commit | 49f1d6b3acece70f886e3d52f7a8cb336b7f3f63 (patch) | |
| tree | 9dd71b3db9df8b6c0d26a6e2d2e68cb3048df341 /src | |
| parent | Whoops (diff) | |
Making progress
Diffstat (limited to 'src')
| -rw-r--r-- | src/Main.hs | 32 | ||||
| -rw-r--r-- | src/XMonad/Custom/Layout.hs | 2 | ||||
| -rw-r--r-- | src/XMonad/Custom/Log.hs | 1 | ||||
| -rw-r--r-- | src/XMonad/Custom/Misc.hs | 1 | ||||
| -rw-r--r-- | src/XMonad/Custom/Startup.hs | 1 |
5 files changed, 26 insertions, 11 deletions
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 <azahi@teknik.io> -- 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 <azahi@teknik.io> -- 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 <azahi@teknik.io> -- 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 <azahi@teknik.io> -- Stability : unstable -- Portability : unportable --- module XMonad.Custom.Startup ( startupHook |