stockholm/lass/5pkgs/xmonad-lass/Main.hs

150 lines
5.2 KiB
Haskell
Raw Normal View History

2015-11-13 00:07:54 +00:00
{-# LANGUAGE DeriveDataTypeable #-} -- for XS
{-# LANGUAGE FlexibleContexts #-} -- for xmonad'
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE ScopedTypeVariables #-}
module Main where
2016-04-25 13:25:47 +00:00
import XMonad
2015-11-13 00:07:54 +00:00
2016-04-25 13:25:47 +00:00
import qualified XMonad.StackSet as W
2015-11-13 00:07:54 +00:00
import Control.Exception
2016-04-25 13:25:47 +00:00
import Data.List (isInfixOf)
import System.Environment (getArgs, withArgs, getEnv)
2015-11-13 00:07:54 +00:00
import System.IO (hPutStrLn, stderr)
2016-04-25 13:25:47 +00:00
import Text.Read (readEither)
import XMonad.Actions.CopyWindow (copy, kill1)
2015-11-13 00:07:54 +00:00
import XMonad.Actions.CycleWS (toggleWS)
2016-04-25 13:25:47 +00:00
import XMonad.Actions.DynamicWorkspaces ( addWorkspacePrompt, renameWorkspace, removeEmptyWorkspace)
import XMonad.Actions.DynamicWorkspaces (withWorkspace)
import XMonad.Actions.GridSelect (GSConfig(..), gridselectWorkspace, navNSearch)
import XMonad.Hooks.FloatNext (floatNext)
import XMonad.Hooks.FloatNext (floatNextHook)
import XMonad.Hooks.ManageDocks (avoidStruts, ToggleStruts(ToggleStruts))
import XMonad.Hooks.Place (placeHook, smart)
import XMonad.Hooks.UrgencyHook (focusUrgent)
2015-11-13 00:07:54 +00:00
import XMonad.Hooks.UrgencyHook (SpawnUrgencyHook(..), withUrgencyHook)
import XMonad.Layout.FixedColumn (FixedColumn(..))
2016-04-25 14:31:08 +00:00
import XMonad.Layout.Minimize (minimize, minimizeWindow, MinimizeMsg(RestoreNextMinimizedWin))
2016-04-25 15:24:54 +00:00
import XMonad.Layout.NoBorders (smartBorders)
2016-04-25 13:25:47 +00:00
import XMonad.Prompt (autoComplete, searchPredicate, XPConfig)
import XMonad.Prompt.Window (windowPromptGoto, windowPromptBringCopy)
import XMonad.Stockholm.Shutdown (sendShutdownEvent, handleShutdownEvent)
2015-11-13 00:07:54 +00:00
import XMonad.Util.EZConfig (additionalKeysP)
2015-11-13 00:07:54 +00:00
myTerm :: String
myTerm = "urxvtc"
myFont :: String
myFont = "-schumacher-*-*-*-*-*-*-*-*-*-*-*-iso10646-*"
main :: IO ()
main = getArgs >>= \case
["--shutdown"] -> sendShutdownEvent
_ -> mainNoArgs
mainNoArgs :: IO ()
mainNoArgs = do
workspaces0 <- getWorkspaces0
2015-11-13 00:07:54 +00:00
xmonad'
$ withUrgencyHook (SpawnUrgencyHook "echo emit Urgency ")
$ def
2015-11-13 00:07:54 +00:00
{ terminal = myTerm
, modMask = mod4Mask
, workspaces = workspaces0
2015-11-13 00:07:54 +00:00
, layoutHook = smartBorders $ myLayoutHook
, manageHook = placeHook (smart (1,0)) <+> floatNextHook
, startupHook = spawn "echo emit XMonadStartup"
, normalBorderColor = "#1c1c1c"
, focusedBorderColor = "#f000b0"
, handleEventHook = handleShutdownEvent
} `additionalKeysP` myKeyMap
myLayoutHook = defLayout
where
2016-04-25 14:31:08 +00:00
defLayout = minimize $ ((avoidStruts $ Tall 1 (3/100) (1/2) ||| Full ||| Mirror (Tall 1 (3/100) (1/2))) ||| FixedColumn 2 80 80 1)
2015-11-13 00:07:54 +00:00
xmonad' :: (LayoutClass l Window, Read (l Window)) => XConfig l -> IO ()
xmonad' conf = do
path <- getEnv "XMONAD_STATE"
try (readFile path) >>= \case
Right content -> do
hPutStrLn stderr ("resuming from " ++ path ++ "; state = " ++ show content)
2015-11-13 00:07:54 +00:00
withArgs ("--resume" : lines content) (xmonad conf)
Left e -> do
hPutStrLn stderr (displaySomeException e)
xmonad conf
getWorkspaces0 :: IO [String]
getWorkspaces0 =
try (getEnv "XMONAD_WORKSPACES0_FILE") >>= \case
Left e -> warn (displaySomeException e)
Right p -> try (readFile p) >>= \case
Left e -> warn (displaySomeException e)
Right x -> case readEither x of
Left e -> warn e
Right y -> return y
where
warn msg = hPutStrLn stderr ("getWorkspaces0: " ++ msg) >> return []
2015-11-13 00:07:54 +00:00
displaySomeException :: SomeException -> String
displaySomeException = displayException
2016-04-25 13:25:47 +00:00
myKeyMap :: [([Char], X ())]
2015-11-13 00:07:54 +00:00
myKeyMap =
[ ("M4-<F11>", spawn "i3lock -i /var/lib/wallpaper/wallpaper -f")
2015-11-13 00:07:54 +00:00
, ("M4-p", spawn "passmenu --type")
, ("<XF86AudioRaiseVolume>", spawn "pactl -- set-sink-volume 0 +4%")
, ("<XF86AudioLowerVolume>", spawn "pactl -- set-sink-volume 0 -4%")
, ("<XF86AudioMute>", spawn "pactl -- set-sink-mute 0 toggle")
, ("<XF86AudioMicMute>", spawn "pactl -- set-source-mute 1 toggle")
2016-04-25 13:25:47 +00:00
, ("<XF86Launch1>", gridselectWorkspace gridConfig W.view)
2016-04-27 10:51:47 +00:00
, ("<XF86MonBrightnessUp>", spawn "xbacklight -steps 1 -time 1 -inc 3")
, ("<XF86MonBrightnessDown>", spawn "xbacklight -steps 1 -time 1 -dec 3")
2015-11-13 00:07:54 +00:00
, ("M4-a", focusUrgent)
2016-04-25 13:25:47 +00:00
, ("M4-S-r", renameWorkspace def)
, ("M4-S-a", addWorkspacePrompt def)
2015-11-13 00:07:54 +00:00
, ("M4-S-<Backspace>", removeEmptyWorkspace)
, ("M4-S-c", kill1)
, ("M4-<Esc>", toggleWS)
, ("M4-S-<Enter>", spawn myTerm)
, ("M4-x", floatNext True >> spawn myTerm)
, ("M4-f", floatNext True)
, ("M4-b", sendMessage ToggleStruts)
2016-04-25 13:25:47 +00:00
, ("M4-v", withWorkspace autoXPConfig (windows . W.view))
, ("M4-S-v", withWorkspace autoXPConfig (windows . W.shift))
, ("M4-C-v", withWorkspace autoXPConfig (windows . copy))
2015-11-13 00:07:54 +00:00
2016-04-25 14:31:08 +00:00
, ("M4-m", withFocused minimizeWindow)
, ("M4-S-m", sendMessage RestoreNextMinimizedWin)
2016-04-25 13:25:47 +00:00
, ("M4-q", windowPromptGoto infixAutoXPConfig)
, ("M4-C-q", windowPromptBringCopy infixAutoXPConfig)
2015-11-13 00:07:54 +00:00
, ("M4-S-q", return ())
]
2016-04-25 13:25:47 +00:00
autoXPConfig :: XPConfig
autoXPConfig = def
2015-11-13 00:07:54 +00:00
{ autoComplete = Just 5000
}
2016-04-25 13:25:47 +00:00
infixAutoXPConfig :: XPConfig
infixAutoXPConfig = autoXPConfig
{ searchPredicate = isInfixOf
2015-11-13 00:07:54 +00:00
}
2016-04-25 13:25:47 +00:00
gridConfig :: GSConfig WorkspaceId
gridConfig = def
{ gs_cellwidth = 100
, gs_cellheight = 30
2016-04-25 13:25:47 +00:00
, gs_cellpadding = 2
2015-11-13 00:07:54 +00:00
, gs_navigate = navNSearch
2016-04-25 13:25:47 +00:00
, gs_font = myFont
2015-11-13 00:07:54 +00:00
}