ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

REF clean up imports

This commit is contained in:
Nathan Dwarshuis 2020-03-22 23:23:02 -04:00
parent 80b8a2cec6
commit 84e3c4a0a1
2 changed files with 59 additions and 64 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.stylish-haskell.yaml
View File

@ -42,7 +42,7 @@ steps:
# - none: Do not perform any alignment. # - none: Do not perform any alignment.
# #
# Default: global. # Default: global.
align: group align: global
# The following options affect only import list alignment. # The following options affect only import list alignment.
# #

121
bin/xmonad.hs
View File

@ -3,83 +3,78 @@
module Main (main) where module Main (main) where
import ACPI import ACPI
import DBus.Client (Client) import DBus.Client (Client)
import Notify import Notify
import SendXMsg import SendXMsg
import Shell import Shell
import DBus.Common import DBus.Common
import DBus.IntelBacklight import DBus.IntelBacklight
import DBus.Screensaver import DBus.Screensaver
import qualified Theme as T import qualified Theme as T
import Control.Concurrent import Control.Concurrent
import Control.Monad (forM, forM_, mapM_, void, when) import Control.Monad
( forM
, forM_
, mapM_
, void
, when
)
import Data.List (find, sortBy, sortOn) import Data.List (find, sortBy, sortOn)
import qualified Data.Map.Lazy as M import qualified Data.Map.Lazy as M
import Data.Maybe (catMaybes, isJust) import Data.Maybe (catMaybes, isJust)
import Data.Monoid (All (..)) import Data.Monoid (All (..))
import Graphics.X11.Types import Graphics.X11.Types
import Graphics.X11.Xlib.Atom import Graphics.X11.Xlib.Atom
import Graphics.X11.Xlib.Extras import Graphics.X11.Xlib.Extras
import Graphics.X11.Xrandr import Graphics.X11.Xrandr
import Control.Arrow (first) import Control.Arrow (first)
import Control.Exception import Control.Exception
import System.Directory import System.Directory
import System.Exit import System.Exit
import System.IO import System.IO
import System.Posix.IO import System.Posix.IO
import System.Posix.Process import System.Posix.Process
import System.Posix.Signals import System.Posix.Signals
import System.Posix.Types import System.Posix.Types
import System.Process (waitForProcess) import System.Process (waitForProcess)
import System.Process.Internals import System.Process.Internals
( ProcessHandle__ (ClosedHandle, OpenHandle) ( ProcessHandle__ (ClosedHandle, OpenHandle)
, mkProcessHandle , mkProcessHandle
, withProcessHandle , withProcessHandle
) )
import Text.Read (readMaybe) import Text.Read (readMaybe)
import XMonad import XMonad
import XMonad.Actions.CopyWindow import XMonad.Actions.CopyWindow
import XMonad.Actions.CycleWS import XMonad.Actions.CycleWS
import XMonad.Actions.DynamicWorkspaces import XMonad.Actions.DynamicWorkspaces
import XMonad.Actions.PhysicalScreens import XMonad.Actions.PhysicalScreens
import XMonad.Actions.Volume import XMonad.Actions.Volume
-- import XMonad.Config.Desktop import XMonad.Hooks.DynamicLog
import XMonad.Hooks.DynamicLog import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageHelpers
-- import XMonad.Layout.IndependentScreens import XMonad.Layout.Named
import XMonad.Hooks.ManageHelpers import XMonad.Layout.NoBorders
-- import XMonad.Layout.BinarySpacePartition (emptyBSP) import XMonad.Layout.NoFrillsDecoration
-- import XMonad.Layout.DragPane import XMonad.Layout.PerWorkspace
-- import XMonad.Layout.IM import XMonad.Layout.Tabbed
-- import XMonad.Layout.LayoutCombinators hiding ((|||)) import XMonad.Prompt
import XMonad.Layout.Named import XMonad.Prompt.ConfirmPrompt
import XMonad.Layout.NoBorders import XMonad.Util.EZConfig
import XMonad.Layout.NoFrillsDecoration import XMonad.Util.NamedActions
import XMonad.Layout.PerWorkspace import XMonad.Util.Run
-- import XMonad.Layout.ResizableTile
import XMonad.Layout.Tabbed
-- import XMonad.Layout.ToggleLayouts (ToggleLayout(..), toggleLayouts)
import XMonad.Prompt
import XMonad.Prompt.ConfirmPrompt
-- import XMonad.Prompt.XMonad
-- import XMonad.Prompt.Shell
import XMonad.Util.EZConfig
import XMonad.Util.NamedActions
import XMonad.Util.Run
-- import XMonad.Util.WindowProperties
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
main :: IO () main :: IO ()
main = do main = do