From 0a6b4afd95b381b44e59717839250e2bcbe248a1 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sat, 2 Jun 2018 18:06:31 +0200 Subject: ... --- custom/notify-user.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'custom/notify-user.hs') diff --git a/custom/notify-user.hs b/custom/notify-user.hs index f9cc2369..264d6f86 100644 --- a/custom/notify-user.hs +++ b/custom/notify-user.hs @@ -24,7 +24,7 @@ deriving instance Read Notify.Urgency main :: IO () main = do - envFiles <- glob "@userHome@/.dbus/session-bus/*" + envFiles <- glob "@home@/.dbus/session-bus/*" forM_ envFiles $ \envFile -> do sessionAddr <- unQuote . tail . snd . break (== '=') . head . filter ("DBUS_SESSION_BUS_ADDRESS=" `isPrefixOf`) . lines <$> readFile envFile setEnv "DBUS_SESSION_BUS_ADDRESS" sessionAddr @@ -37,7 +37,7 @@ main = do ] let urgency = fromMaybe Notify.Normal $ readMaybe . caseForRead =<< Map.lookup "urgency" opts - appName = fromMaybe "notify-@userName@" $ Map.lookup "app-name" opts + appName = fromMaybe "notify-@user@" $ Map.lookup "app-name" opts category = fromMaybe "" $ Map.lookup "category" opts Notify.display_ $ Notify.summary summary <> Notify.body contents <> Notify.appName appName <> Notify.urgency urgency <> Notify.category category _ -> exitWith $ ExitFailure 2 -- cgit v1.2.3