2015-10-25 01:06:37 +00:00
|
|
|
{-# LANGUAGE LambdaCase #-}
|
2015-10-24 20:09:55 +00:00
|
|
|
|
2018-11-30 13:18:14 +00:00
|
|
|
module Main (main) where
|
2015-10-24 20:09:55 +00:00
|
|
|
|
2018-11-28 16:03:15 +00:00
|
|
|
import System.Exit (exitFailure)
|
|
|
|
|
2015-10-25 11:21:46 +00:00
|
|
|
import Control.Exception
|
2017-11-11 22:47:52 +00:00
|
|
|
import Control.Monad.Extra (whenJustM)
|
2015-11-25 00:51:35 +00:00
|
|
|
import Graphics.X11.ExtraTypes.XF86
|
2015-10-25 11:21:46 +00:00
|
|
|
import Text.Read (readEither)
|
2015-10-24 20:09:55 +00:00
|
|
|
import XMonad
|
2015-10-28 20:21:27 +00:00
|
|
|
import System.IO (hPutStrLn, stderr)
|
2018-11-28 16:03:53 +00:00
|
|
|
import System.Environment (getArgs, getEnv, getEnvironment, lookupEnv)
|
2015-10-26 10:27:02 +00:00
|
|
|
import System.Posix.Process (executeFile)
|
2015-10-24 20:09:55 +00:00
|
|
|
import XMonad.Actions.DynamicWorkspaces ( addWorkspacePrompt, renameWorkspace
|
|
|
|
, removeEmptyWorkspace)
|
|
|
|
import XMonad.Actions.CycleWS (toggleWS)
|
|
|
|
import XMonad.Layout.NoBorders ( smartBorders )
|
2018-12-01 10:40:01 +00:00
|
|
|
import XMonad.Layout.ResizableTile (ResizableTall(ResizableTall))
|
|
|
|
import XMonad.Layout.ResizableTile (MirrorResize(MirrorExpand,MirrorShrink))
|
2015-10-24 20:09:55 +00:00
|
|
|
import qualified XMonad.StackSet as W
|
|
|
|
import Data.Map (Map)
|
|
|
|
import qualified Data.Map as Map
|
|
|
|
import XMonad.Hooks.UrgencyHook (SpawnUrgencyHook(..), withUrgencyHook)
|
2018-11-28 08:55:38 +00:00
|
|
|
import XMonad.Hooks.ManageHelpers (doCenterFloat)
|
2015-10-24 20:09:55 +00:00
|
|
|
import XMonad.Hooks.Place (placeHook, smart)
|
|
|
|
import XMonad.Actions.PerWorkspaceKeys (chooseAction)
|
|
|
|
|
2015-11-09 16:58:53 +00:00
|
|
|
import XMonad.Stockholm.Pager
|
|
|
|
import XMonad.Stockholm.Shutdown
|
2018-11-30 08:03:52 +00:00
|
|
|
import qualified Paths
|
2015-10-24 20:09:55 +00:00
|
|
|
|
|
|
|
|
|
|
|
myFont :: String
|
|
|
|
myFont = "-schumacher-*-*-*-*-*-*-*-*-*-*-*-iso10646-*"
|
|
|
|
|
2018-11-30 13:18:14 +00:00
|
|
|
|
2015-10-24 20:09:55 +00:00
|
|
|
main :: IO ()
|
2015-10-25 01:06:37 +00:00
|
|
|
main = getArgs >>= \case
|
2018-11-28 16:03:15 +00:00
|
|
|
[] -> mainNoArgs
|
2018-11-29 20:24:31 +00:00
|
|
|
["--shutdown"] -> shutdown
|
2018-11-28 16:03:15 +00:00
|
|
|
args -> hPutStrLn stderr ("bad arguments: " <> show args) >> exitFailure
|
|
|
|
|
2018-11-30 13:18:14 +00:00
|
|
|
|
2015-10-25 01:06:37 +00:00
|
|
|
mainNoArgs :: IO ()
|
|
|
|
mainNoArgs = do
|
2018-12-01 10:40:01 +00:00
|
|
|
let width = 1366
|
2015-10-25 11:21:46 +00:00
|
|
|
workspaces0 <- getWorkspaces0
|
2018-11-29 20:24:31 +00:00
|
|
|
handleShutdownEvent <- newShutdownEventHandler
|
2019-02-09 03:05:39 +00:00
|
|
|
launch
|
2015-10-24 20:09:55 +00:00
|
|
|
$ withUrgencyHook (SpawnUrgencyHook "echo emit Urgency ")
|
2016-02-12 13:20:51 +00:00
|
|
|
$ def
|
2018-11-30 08:03:52 +00:00
|
|
|
{ terminal = Paths.urxvtc
|
2015-10-24 20:09:55 +00:00
|
|
|
, modMask = mod4Mask
|
|
|
|
, keys = myKeys
|
2015-10-25 11:21:46 +00:00
|
|
|
, workspaces = workspaces0
|
2018-12-01 10:40:01 +00:00
|
|
|
, layoutHook =
|
|
|
|
smartBorders $
|
|
|
|
ResizableTall
|
|
|
|
1
|
|
|
|
(10 * 6 / width)
|
|
|
|
((80 * 6 + 2 * (1+1+1))/width) []
|
|
|
|
|||
|
|
|
|
Full
|
2018-11-28 08:55:38 +00:00
|
|
|
, manageHook =
|
|
|
|
composeAll
|
|
|
|
[ appName =? "fzmenu-urxvt" --> doCenterFloat
|
|
|
|
, appName =? "pinentry" --> doCenterFloat
|
|
|
|
, placeHook (smart (1,0))
|
|
|
|
]
|
2017-11-11 22:47:52 +00:00
|
|
|
, startupHook =
|
2018-11-28 13:47:08 +00:00
|
|
|
whenJustM (io (lookupEnv "XMONAD_STARTUP_HOOK"))
|
2017-11-11 22:47:52 +00:00
|
|
|
(\path -> forkFile path [] Nothing)
|
2015-10-24 20:09:55 +00:00
|
|
|
, normalBorderColor = "#1c1c1c"
|
|
|
|
, focusedBorderColor = "#f000b0"
|
2015-10-25 01:06:37 +00:00
|
|
|
, handleEventHook = handleShutdownEvent
|
2015-10-24 20:09:55 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2015-10-25 11:21:46 +00:00
|
|
|
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
|
2015-10-28 20:21:27 +00:00
|
|
|
warn msg = hPutStrLn stderr ("getWorkspaces0: " ++ msg) >> return []
|
2015-10-25 11:21:46 +00:00
|
|
|
|
2018-11-30 13:18:14 +00:00
|
|
|
|
2015-10-25 11:21:46 +00:00
|
|
|
displaySomeException :: SomeException -> String
|
|
|
|
displaySomeException = displayException
|
|
|
|
|
|
|
|
|
2016-05-24 23:26:25 +00:00
|
|
|
forkFile :: FilePath -> [String] -> Maybe [(String, String)] -> X ()
|
|
|
|
forkFile path args env =
|
|
|
|
xfork (executeFile path False args env) >> return ()
|
|
|
|
|
2018-11-30 13:18:14 +00:00
|
|
|
|
2016-05-24 23:26:25 +00:00
|
|
|
spawnRootTerm :: X ()
|
|
|
|
spawnRootTerm =
|
|
|
|
forkFile
|
2018-11-30 08:03:52 +00:00
|
|
|
Paths.urxvtc
|
|
|
|
["-name", "root-urxvt", "-e", Paths.su, "-"]
|
2016-05-24 23:26:25 +00:00
|
|
|
Nothing
|
|
|
|
|
2018-11-30 13:18:14 +00:00
|
|
|
|
2015-10-24 20:09:55 +00:00
|
|
|
spawnTermAt :: String -> X ()
|
2015-10-26 10:27:02 +00:00
|
|
|
spawnTermAt ws = do
|
2018-11-28 13:47:08 +00:00
|
|
|
env <- io getEnvironment
|
2015-10-26 10:27:02 +00:00
|
|
|
let env' = ("XMONAD_SPAWN_WORKSPACE", ws) : env
|
2018-11-30 08:03:52 +00:00
|
|
|
forkFile Paths.urxvtc [] (Just env')
|
2015-10-24 20:09:55 +00:00
|
|
|
|
2018-11-30 13:18:14 +00:00
|
|
|
|
2015-10-24 20:09:55 +00:00
|
|
|
myKeys :: XConfig Layout -> Map (KeyMask, KeySym) (X ())
|
|
|
|
myKeys conf = Map.fromList $
|
2018-11-30 08:03:52 +00:00
|
|
|
[ ((_4 , xK_Escape ), forkFile Paths.slock [] Nothing)
|
2015-10-24 20:09:55 +00:00
|
|
|
, ((_4S , xK_c ), kill)
|
|
|
|
|
2018-11-30 08:03:52 +00:00
|
|
|
, ((_4 , xK_o ), forkFile Paths.otpmenu [] Nothing)
|
|
|
|
, ((_4 , xK_p ), forkFile Paths.passmenu [] Nothing)
|
2018-03-26 11:00:23 +00:00
|
|
|
|
2015-10-24 20:09:55 +00:00
|
|
|
, ((_4 , xK_x ), chooseAction spawnTermAt)
|
2016-05-24 23:26:25 +00:00
|
|
|
, ((_4C , xK_x ), spawnRootTerm)
|
2015-10-24 20:09:55 +00:00
|
|
|
|
|
|
|
, ((0 , xK_Menu ), gets windowset >>= allWorkspaceNames >>= pager pagerConfig (windows . W.view) )
|
|
|
|
, ((_S , xK_Menu ), gets windowset >>= allWorkspaceNames >>= pager pagerConfig (windows . W.shift) )
|
|
|
|
, ((_C , xK_Menu ), toggleWS)
|
2018-11-30 13:18:14 +00:00
|
|
|
|
2015-10-24 20:09:55 +00:00
|
|
|
, ((_4 , xK_space ), sendMessage NextLayout)
|
2018-12-01 10:40:58 +00:00
|
|
|
, ((_4M , xK_space ), resetLayout)
|
2015-10-24 20:09:55 +00:00
|
|
|
|
2018-12-01 10:40:33 +00:00
|
|
|
, ((_4 , xK_m ), windows W.focusMaster)
|
2015-10-24 20:09:55 +00:00
|
|
|
, ((_4 , xK_j ), windows W.focusDown)
|
|
|
|
, ((_4 , xK_k ), windows W.focusUp)
|
|
|
|
|
|
|
|
, ((_4S , xK_m ), windows W.swapMaster)
|
|
|
|
, ((_4S , xK_j ), windows W.swapDown)
|
|
|
|
, ((_4S , xK_k ), windows W.swapUp)
|
|
|
|
|
2018-12-01 10:40:01 +00:00
|
|
|
, ((_4M , xK_h ), sendMessage Shrink)
|
|
|
|
, ((_4M , xK_l ), sendMessage Expand)
|
|
|
|
|
|
|
|
, ((_4M , xK_j ), sendMessage MirrorShrink)
|
|
|
|
, ((_4M , xK_k ), sendMessage MirrorExpand)
|
2015-10-24 20:09:55 +00:00
|
|
|
|
2018-12-01 10:40:58 +00:00
|
|
|
, ((_4 , xK_t ), withFocused $ windows . W.sink)
|
2015-10-24 20:09:55 +00:00
|
|
|
|
|
|
|
, ((_4 , xK_comma ), sendMessage $ IncMasterN 1)
|
|
|
|
, ((_4 , xK_period ), sendMessage $ IncMasterN (-1))
|
|
|
|
|
2016-02-12 13:20:51 +00:00
|
|
|
, ((_4 , xK_a ), addWorkspacePrompt def)
|
|
|
|
, ((_4 , xK_r ), renameWorkspace def)
|
2015-10-24 20:09:55 +00:00
|
|
|
, ((_4 , xK_Delete ), removeEmptyWorkspace)
|
|
|
|
|
|
|
|
, ((_4 , xK_Return ), toggleWS)
|
2018-11-30 15:17:32 +00:00
|
|
|
|
|
|
|
, ((0, xF86XK_AudioLowerVolume), audioLowerVolume)
|
|
|
|
, ((0, xF86XK_AudioRaiseVolume), audioRaiseVolume)
|
|
|
|
, ((0, xF86XK_AudioMute), audioMute)
|
2018-12-02 14:43:49 +00:00
|
|
|
|
|
|
|
, ((_4, xK_Prior), forkFile Paths.xcalib ["-invert", "-alter"] Nothing)
|
2015-10-24 20:09:55 +00:00
|
|
|
]
|
|
|
|
where
|
|
|
|
_4 = mod4Mask
|
|
|
|
_C = controlMask
|
|
|
|
_S = shiftMask
|
|
|
|
_M = mod1Mask
|
|
|
|
_4C = _4 .|. _C
|
|
|
|
_4S = _4 .|. _S
|
|
|
|
_4M = _4 .|. _M
|
|
|
|
_4CM = _4 .|. _C .|. _M
|
|
|
|
_4SM = _4 .|. _S .|. _M
|
|
|
|
|
2018-11-30 15:17:32 +00:00
|
|
|
pactl args = forkFile Paths.pactl args Nothing
|
|
|
|
audioLowerVolume = pactl ["--", "set-sink-volume", "@DEFAULT_SINK@", "-5%"]
|
|
|
|
audioRaiseVolume = pactl ["--", "set-sink-volume", "@DEFAULT_SINK@", "+5%"]
|
|
|
|
audioMute = pactl ["--", "set-sink-mute", "@DEFAULT_SINK@", "toggle"]
|
2016-05-24 23:26:25 +00:00
|
|
|
|
2018-12-01 10:40:58 +00:00
|
|
|
resetLayout = setLayout $ XMonad.layoutHook conf
|
|
|
|
|
2015-10-24 20:09:55 +00:00
|
|
|
|
|
|
|
pagerConfig :: PagerConfig
|
2016-02-12 13:20:51 +00:00
|
|
|
pagerConfig = def
|
2015-10-24 20:09:55 +00:00
|
|
|
{ pc_font = myFont
|
|
|
|
, pc_cellwidth = 64
|
|
|
|
, pc_matchmethod = MatchPrefix
|
|
|
|
, pc_windowColors = windowColors
|
|
|
|
}
|
|
|
|
where
|
|
|
|
windowColors _ _ _ True _ = ("#ef4242","#ff2323")
|
|
|
|
windowColors wsf m c u wf = do
|
2016-02-12 13:20:51 +00:00
|
|
|
let y = defaultWindowColors wsf m c u wf
|
2015-10-24 20:09:55 +00:00
|
|
|
if m == False && wf == True
|
2016-02-12 13:20:51 +00:00
|
|
|
then ("#402020", snd y)
|
|
|
|
else y
|
2015-10-24 20:09:55 +00:00
|
|
|
|
|
|
|
|
|
|
|
allWorkspaceNames :: W.StackSet i l a sid sd -> X [i]
|
2018-12-01 10:40:58 +00:00
|
|
|
allWorkspaceNames = return . map W.tag . W.workspaces
|