2 files changed, 6 insertions, 6 deletions

diff --git a/accounts/gkleen@sif/xmonad/lib/XMonad/Prompt/MySsh.hs b/accounts/gkleen@sif/xmonad/lib/XMonad/Prompt/MySsh.hs
index 729941aa..998c533e 100644
--- a/accounts/gkleen@sif/xmonad/lib/XMonad/Prompt/MySsh.hs
+++ b/accounts/gkleen@sif/xmonad/lib/XMonad/Prompt/MySsh.hs
@@ -137,7 +137,7 @@ connParser = do
 sshPrompt :: [Override] -> XPConfig -> X ()
 sshPrompt o c = do
   sc <- io sshComplList
-  mkXPrompt Ssh c (mkComplFunFromList sc) $ ssh o
+  mkXPrompt Ssh c (mkComplFunFromList c sc) $ ssh o
 
 ssh :: [Override] -> String -> X ()
 ssh overrides str = do
diff --git a/accounts/gkleen@sif/xmonad/xmonad.hs b/accounts/gkleen@sif/xmonad/xmonad.hs
index 7a71ca56..8f66bf39 100644
--- a/accounts/gkleen@sif/xmonad/xmonad.hs
+++ b/accounts/gkleen@sif/xmonad/xmonad.hs
@@ -235,7 +235,7 @@ hostFromName h
                                           , hWsp = hWsp
                                           , hCoWsp = hCoWsp
                                           , hKeysMod = \conf -> Map.union $ (Map.fromList $ join $ map (spawnBindings conf) [ (xK_e, ["emacsclient -c"])
-                                                                                                                            , (xK_d, [fromString browser, "google-chrome", "notmuch-links"])
+                                                                                                                            , (xK_d, [fromString browser, "google-chrome" {- , "notmuch-links" -}])
                                                                                                                             , (xK_c, [ inputPrompt xPConfigMonospace "dc" ?+ dc ])
                                                                                                                             , (xK_g, ["pidgin"])
                                                                                                                             , (xK_s, ["skype"])
@@ -249,10 +249,10 @@ hostFromName h
                                                                                                                                      , "tmux new-window -dt media mpv $(xclip -o -selection clipboard)"
                                                                                                                                      , "alacritty --class media -e tmuxp load /var/media"
                                                                                                                                      ])
-                                                                                                                            , (xK_m, [ "emacsclient -c -F \"'(title . \\\"Mail\\\")\" -e '(notmuch)'"
+                                                                                                                            {- , (xK_m, [ "emacsclient -c -F \"'(title . \\\"Mail\\\")\" -e '(notmuch)'"
                                                                                                                                      , "emacsclient -c -F \"'(title . \\\"Mail\\\")\" -e '(notmuch-mua-new-mail)'"
                                                                                                                                      , "emacsclient -c -F \"'(title . \\\"Mail\\\")\" -e \"(browse-url-mail \"$(xclip -o)\")\""
-                                                                                                                                     ])
+                                                                                                                                     ]) -}
                                                                                                                             , (xK_Return, ["keynav start,windowzoom", "keynav start"])
                                                                                                                             , (xK_t, [inputPrompt xPConfigMonospace "fuzzytime timer" ?+ fuzzytime, fuzzytime "unset", work_fuzzytime])
                                                                                                                             , (xK_a, [inputPrompt xPConfigMonospace "adjmix" ?+ adjmix])
@@ -411,7 +411,7 @@ hostFromName h
         (first : rest) = filter (not . null) $ lines result
         notification = Notify.summary first <> Notify.body (unlines rest) <> Notify.timeout Infinite <> Notify.urgency Normal <> Notify.appName "dc"
       void $ Notify.display notification
-    synergyCompl = mkComplFunFromList' ["mathw86"]
+    synergyCompl = mkComplFunFromList' xPConfigMonospace ["mathw86"] 
     synergyStart host = safeSpawn "systemctl" ["--user", "start", "synergy-rtunnel@" ++ host ++ ".service"]
     synergyStop host = safeSpawn "systemctl" ["--user", "stop", "synergy-rtunnel@" ++ host ++ ".service"]
       
@@ -603,7 +603,7 @@ main = do
                     userCodeDef () $ whenJust (Map.lookup (mClean, s) ks) id
                 | otherwise = return ()
               handle _ = return ()
-      handle shutdown $ launch myConfig
+      handle shutdown $ launch myConfig =<< getDirectories
   
 secs :: Int -> Int
 secs = (* 1000000)