M lib/XMonad/Config/LaNinpre.hs → lib/XMonad/Config/LaNinpre.hs

@@ -17,31 +17,95 @@ import XMonad
 import qualified XMonad.StackSet as W
 
 import XMonad.Actions.GridSelect
-import XMonad.Actions.WithAll(sinkAll)
+    ( GSConfig(GSConfig, gs_font, gs_bordercolor)
+    , buildDefaultGSConfig
+    , bringSelected
+    , gridselect
+    , goToSelected
+    )
+import XMonad.Actions.WithAll (sinkAll)
 
 import XMonad.Hooks.EwmhDesktops
-import XMonad.Hooks.ManageDocks
+    ( ewmhFullscreen
+    , ewmh
+    )
+import XMonad.Hooks.ManageDocks (ToggleStruts(ToggleStruts))
 import XMonad.Hooks.ManageHelpers
-import XMonad.Hooks.SetWMName
+    ( doFullFloat
+    , isFullscreen
+    )
 import XMonad.Hooks.StatusBar
+    ( StatusBarConfig
+    , defToggleStrutsKey
+    , statusBarProp
+    , withEasySB
+    )
 import XMonad.Hooks.StatusBar.PP
+    ( PP(ppSep, ppCurrent, ppHidden, ppHiddenNoWindows, ppLayout)
+    , filterOutWsPP
+    , xmobarColor
+    , xmobarFont
+    )
 
-import XMonad.Layout.BoringWindows hiding (Replace)
-import XMonad.Layout.NoBorders
+import XMonad.Layout.BoringWindows
+    ( boringWindows
+    , focusDown
+    , focusMaster
+    , focusUp
+    , swapDown
+    , swapUp
+    )
+import XMonad.Layout.NoBorders (noBorders, smartBorders)
 import XMonad.Layout.Renamed
-import XMonad.Layout.ResizableThreeColumns
+    ( Rename(Replace)
+    , renamed
+    )
+import XMonad.Layout.ResizableThreeColumns (ResizableThreeCol(ResizableThreeColMid))
 import XMonad.Layout.ResizableTile
-import XMonad.Layout.Simplest
+    (ResizableTall(ResizableTall)
+    , MirrorResize(MirrorShrink, MirrorExpand)
+    )
+import XMonad.Layout.Simplest (Simplest(Simplest))
 import XMonad.Layout.Spacing
+    ( spacingWithEdge
+    , toggleWindowSpacingEnabled
+    , toggleScreenSpacingEnabled
+    )
 import XMonad.Layout.SubLayouts
+    ( GroupMsg(UnMerge, UnMergeAll)
+    , onGroup
+    , pullGroup
+    , subLayout
+    )
 import XMonad.Layout.Tabbed
-import XMonad.Layout.ToggleLayouts
-import XMonad.Layout.WindowNavigation
+    (Theme
+        ( activeBorderWidth
+        , activeColor
+        , activeTextColor
+        , fontName
+        , inactiveBorderWidth
+        , inactiveColor
+        , inactiveTextColor
+        , urgentBorderWidth
+        , urgentColor
+        , urgentTextColor
+        )
+    , addTabs
+    , shrinkText
+    )
+import XMonad.Layout.ToggleLayouts (ToggleLayout(ToggleLayout), toggleLayouts)
+import XMonad.Layout.WindowNavigation (Direction2D(D, L, R, U), windowNavigation)
 
-import XMonad.Util.ClickableWorkspaces
-import XMonad.Util.EZConfig
+import XMonad.Util.ClickableWorkspaces (clickablePP)
+import XMonad.Util.EZConfig (mkKeymap)
 import XMonad.Util.NamedScratchpad
-import XMonad.Util.SpawnOnce
+    ( NamedScratchpad(NS)
+    , customFloating
+    , namedScratchpadAction
+    , namedScratchpadManageHook
+    , scratchpadWorkspaceTag
+    )
+import XMonad.Layout.Groups (onLayout)
 
 -- * fonts
 --