mirror of
https://github.com/elkowar/dots-of-war.git
synced 2024-11-06 03:12:24 +00:00
cleanup
This commit is contained in:
parent
504274e9a2
commit
233d2e4694
3 changed files with 26 additions and 24 deletions
Binary file not shown.
|
@ -2,59 +2,61 @@
|
|||
{-# OPTIONS_GHC -fno-warn-missing-signatures -fno-warn-unused-binds #-}
|
||||
-- Imports -------------------------------------------------------- {{{
|
||||
|
||||
|
||||
module Config (main) where
|
||||
import qualified Rofi
|
||||
|
||||
import Data.List (isSuffixOf, isPrefixOf)
|
||||
import Data.Char (isDigit)
|
||||
import Data.List (isSuffixOf, isPrefixOf)
|
||||
import System.Exit (exitSuccess)
|
||||
|
||||
import qualified System.IO as SysIO
|
||||
import qualified Data.Map as M
|
||||
import qualified Data.Monoid
|
||||
import qualified Rofi
|
||||
|
||||
import qualified Codec.Binary.UTF8.String as UTF8
|
||||
import qualified DBus as D
|
||||
import qualified DBus.Client as D
|
||||
import qualified Codec.Binary.UTF8.String as UTF8
|
||||
import qualified Data.Map as M
|
||||
import qualified Data.Monoid
|
||||
import qualified System.IO as SysIO
|
||||
|
||||
import XMonad hiding ((|||))
|
||||
import qualified XMonad.StackSet as W
|
||||
import XMonad.Actions.Commands
|
||||
import XMonad.Actions.CopyWindow
|
||||
import XMonad.Actions.Submap
|
||||
import XMonad.Config.Desktop
|
||||
import XMonad.Layout.BinarySpacePartition
|
||||
import XMonad.Hooks.DynamicLog
|
||||
import XMonad.Hooks.FadeInactive
|
||||
import XMonad.Hooks.ManageDocks
|
||||
import qualified XMonad.Hooks.ManageHelpers as ManageHelpers
|
||||
import qualified XMonad.Hooks.EwmhDesktops as Ewmh
|
||||
import XMonad.Hooks.SetWMName (setWMName)
|
||||
import XMonad.Layout.BinarySpacePartition
|
||||
import XMonad.Layout.BorderResize
|
||||
import XMonad.Layout.Gaps
|
||||
import XMonad.Layout.LayoutCombinators ((|||))
|
||||
import XMonad.Layout.NoBorders
|
||||
import XMonad.Layout.ResizableTile
|
||||
import XMonad.Layout.MouseResizableTile
|
||||
import XMonad.Layout.Spacing (spacingRaw, Border(..), toggleWindowSpacingEnabled)
|
||||
import XMonad.Layout.Renamed (renamed, Rename(Replace))
|
||||
import XMonad.Layout.LayoutHints
|
||||
import XMonad.Layout.Minimize
|
||||
import XMonad.Layout.MouseResizableTile
|
||||
import XMonad.Layout.NoBorders
|
||||
import XMonad.Layout.Renamed (renamed, Rename(Replace))
|
||||
import XMonad.Layout.ResizableTile
|
||||
import XMonad.Layout.Spacing (spacingRaw, Border(..), toggleWindowSpacingEnabled)
|
||||
import XMonad.Layout.Spiral (spiral)
|
||||
import XMonad.Layout.ToggleLayouts
|
||||
import XMonad.Layout.ZoomRow
|
||||
import XMonad.Layout.BorderResize
|
||||
import XMonad.Util.EZConfig (additionalKeysP, removeKeysP, checkKeymap)
|
||||
import XMonad.Util.NamedScratchpad
|
||||
import XMonad.Util.Run
|
||||
import XMonad.Util.SpawnOnce (spawnOnce)
|
||||
import qualified XMonad.Actions.Navigation2D as Nav2d
|
||||
import qualified XMonad.Util.XSelection as XSel
|
||||
-- Minimize stuff
|
||||
import XMonad.Layout.Minimize
|
||||
import qualified XMonad.Hooks.EwmhDesktops as Ewmh
|
||||
import qualified XMonad.Hooks.ManageHelpers as ManageHelpers
|
||||
import qualified XMonad.Layout.BoringWindows as BoringWindows
|
||||
import XMonad.Actions.Commands
|
||||
-- }}}
|
||||
import qualified XMonad.StackSet as W
|
||||
import qualified XMonad.Util.XSelection as XSel
|
||||
|
||||
{-# ANN module "HLint: ignore Redundant $" #-}
|
||||
{-# ANN module "HLint: ignore Redundant bracket" #-}
|
||||
{-# ANN module "HLint: ignore Move brackets to avoid $" #-}
|
||||
{-# ANN module "HLint: ignore Unused LANGUAGE pragma" #-}
|
||||
|
||||
-- }}}
|
||||
|
||||
-- Values -------------------- {{{
|
||||
|
||||
|
@ -111,10 +113,10 @@ myLayout = avoidStruts . BoringWindows.boringWindows . minimize . smartBorders .
|
|||
layouts =((rename "Bsp" $ spacingAndGaps $ borderResize $ emptyBSP)
|
||||
||| (rename "Tall" $ onlyGaps $ mouseResizableTile {draggerType = dragger}) -- ResizableTall 1 (3/100) (1/2) []
|
||||
||| (rename "Horizon" $ onlyGaps $ mouseResizableTileMirrored {draggerType = dragger}) -- Mirror $ ResizableTall 1 (3/100) (3/4) []
|
||||
||| (rename "Row" $ spacingAndGaps $ zoomRow))
|
||||
||| (rename "Row" $ spacingAndGaps $ zoomRow)
|
||||
||| (rename "spiral" $ spacingAndGaps $ spiral (6/7)))
|
||||
-- ||| (rename "threeCol" $ spacingAndGaps $ ThreeColMid 1 (3/100) (1/2))
|
||||
-- ||| (rename "spiral" $ spacingAndGaps $ spiral (9/21))
|
||||
-- ||| (rename "spiral" $ spiral (6/7)))
|
||||
-- Grid
|
||||
|
||||
rename n = renamed [Replace n]
|
||||
|
|
Binary file not shown.
Loading…
Reference in a new issue