makefu/stockholm
1
0
Fork 0
Code Issues Pull requests Actions 1 Packages Projects Releases Wiki Activity

tv xmonad: add 22.05 compatibility

Browse source
This commit is contained in:
tv 2022-06-19 12:34:14 +02:00
parent f5eefc5cad
commit 88a2a5fc9d
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tv/5pkgs/haskell/xmonad-tv/src/main.hs
View file

@ -7,7 +7,7 @@ module Main (main) where
import System.Exit (exitFailure) import System.Exit (exitFailure)
import Control.Exception import Control.Exception
import Control.Monad.Extra (ifM, whenJustM) import Control.Monad.Extra (whenJustM)
import qualified Data.List import qualified Data.List
import Graphics.X11.ExtraTypes.XF86 import Graphics.X11.ExtraTypes.XF86
import Text.Read (readEither) import Text.Read (readEither)
@ -68,7 +68,9 @@ mainNoArgs :: IO ()
mainNoArgs = do mainNoArgs = do
workspaces0 <- getWorkspaces0 workspaces0 <- getWorkspaces0
handleShutdownEvent <- newShutdownEventHandler handleShutdownEvent <- newShutdownEventHandler
launch let
config =
id
$ withUrgencyHook (SpawnUrgencyHook "echo emit Urgency ") $ withUrgencyHook (SpawnUrgencyHook "echo emit Urgency ")
$ def $ def
{ terminal = {-pkg:rxvt_unicode-}"urxvtc" { terminal = {-pkg:rxvt_unicode-}"urxvtc"
@ -100,6 +102,8 @@ mainNoArgs = do
, focusedBorderColor = "#f000b0" , focusedBorderColor = "#f000b0"
, handleEventHook = handleShutdownEvent , handleEventHook = handleShutdownEvent
} }
directories <- getDirectories
launch config directories
getWorkspaces0 :: IO [String] getWorkspaces0 :: IO [String]