summaryrefslogtreecommitdiffstats
path: root/tv/5pkgs/simple/xmonad-tv
diff options
context:
space:
mode:
authortv <tv@krebsco.de>2017-12-05 16:34:25 +0100
committertv <tv@krebsco.de>2017-12-05 16:34:25 +0100
commite5ab9b686ad7337d54e5d2b2ff6e8f88ac7a68f1 (patch)
treebe089f63bd882a26066fbf16d8607bb7cbea8d80 /tv/5pkgs/simple/xmonad-tv
parentf2bdf5590eb97e6fde86e332f93a733005dfb4a7 (diff)
tv xmonad: replace XMONAD_STATE by XMONAD_*_DIR
Diffstat (limited to 'tv/5pkgs/simple/xmonad-tv')
-rw-r--r--tv/5pkgs/simple/xmonad-tv/default.nix13
1 files changed, 1 insertions, 12 deletions
diff --git a/tv/5pkgs/simple/xmonad-tv/default.nix b/tv/5pkgs/simple/xmonad-tv/default.nix
index 94554f57c..94c70153d 100644
--- a/tv/5pkgs/simple/xmonad-tv/default.nix
+++ b/tv/5pkgs/simple/xmonad-tv/default.nix
@@ -71,7 +71,7 @@ main = getArgs >>= \case
mainNoArgs :: IO ()
mainNoArgs = do
workspaces0 <- getWorkspaces0
- xmonad'
+ xmonad
-- $ withUrgencyHookC dzenUrgencyHook { args = ["-bg", "magenta", "-fg", "magenta", "-h", "2"], duration = 500000 }
-- urgencyConfig { remindWhen = Every 1 }
-- $ withUrgencyHook borderUrgencyHook "magenta"
@@ -95,17 +95,6 @@ mainNoArgs = do
}
-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)
- 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