summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authortv <tv@krebsco.de>2022-06-19 12:34:14 +0200
committertv <tv@krebsco.de>2022-07-14 15:48:10 +0200
commit88a2a5fc9d6003722203e234096e1306bc9b01e6 (patch)
tree86b7c9ec4313b068a2707802796069bcbb757448
parentf5eefc5cadd503b4dff96e184f53d202e026c16c (diff)
tv xmonad: add 22.05 compatibility
-rw-r--r--tv/5pkgs/haskell/xmonad-tv/src/main.hs8
1 files changed, 6 insertions, 2 deletions
diff --git a/tv/5pkgs/haskell/xmonad-tv/src/main.hs b/tv/5pkgs/haskell/xmonad-tv/src/main.hs
index cf0c0f538..81373f410 100644
--- a/tv/5pkgs/haskell/xmonad-tv/src/main.hs
+++ b/tv/5pkgs/haskell/xmonad-tv/src/main.hs
@@ -7,7 +7,7 @@ module Main (main) where
import System.Exit (exitFailure)
import Control.Exception
-import Control.Monad.Extra (ifM, whenJustM)
+import Control.Monad.Extra (whenJustM)
import qualified Data.List
import Graphics.X11.ExtraTypes.XF86
import Text.Read (readEither)
@@ -68,7 +68,9 @@ mainNoArgs :: IO ()
mainNoArgs = do
workspaces0 <- getWorkspaces0
handleShutdownEvent <- newShutdownEventHandler
- launch
+ let
+ config =
+ id
$ withUrgencyHook (SpawnUrgencyHook "echo emit Urgency ")
$ def
{ terminal = {-pkg:rxvt_unicode-}"urxvtc"
@@ -100,6 +102,8 @@ mainNoArgs = do
, focusedBorderColor = "#f000b0"
, handleEventHook = handleShutdownEvent
}
+ directories <- getDirectories
+ launch config directories
getWorkspaces0 :: IO [String]