diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Main.hs b/src/Main.hs index 741e6dc..94fb5a7 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -6,6 +6,7 @@ import System.FilePath ((</>)) import XMonad.Hooks.EwmhDesktops (ewmhDesktopsStartup) import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat) import XMonad.Layout.Fullscreen (fullscreenEventHook) +import System.Environment (setEnv) import Internal.XMobarLog import Internal.Keys @@ -19,6 +20,8 @@ main = do homeDir <- getHomeDirectory let fp = homeDir </> ".xmonad" </> "startup" + setEnv "SUDO_ASKPASS" "/usr/bin/ssh-askpass" + xmobar <- spawnXMobar (=<<) X.xmonad $ @@ -39,6 +42,7 @@ main = do , className =? "yakuake" --> doFloat , className =? "MPlayer" --> doFloat , title =? "Event Tester" --> doFloat + , title =? "Floating Term" --> doFloat , className =? "mpv" --> doFloat , className =? "gnubby_ssh_prompt" --> doFloat ] |