diff options
| author | makefu <github@syntax-fehler.de> | 2022-08-02 14:34:22 +0200 |
|---|---|---|
| committer | makefu <github@syntax-fehler.de> | 2022-08-02 14:34:22 +0200 |
| commit | 739fad41da87d206f76bc3db9861d8b2bd0a5639 (patch) | |
| tree | 023f294d5ba55b93905772eec90a3ebbe3667528 /tv/5pkgs/haskell | |
| parent | bebf0baf031fca08fde11cc7f840fc885737f5b7 (diff) | |
| parent | b3694198eaac7ffd13640c64bc3e3af27e40389b (diff) | |
Merge remote-tracking branch 'lass/master'
Diffstat (limited to 'tv/5pkgs/haskell')
| -rw-r--r-- | tv/5pkgs/haskell/xmonad-tv/src/main.hs | 8 |
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] |