From 074d24c8feaa986966d9deffd8f6414f9649093c Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 4 May 2022 12:48:27 +0200 Subject: bump --- accounts/gkleen@sif/xmonad/lib/XMonad/Prompt/MySsh.hs | 2 +- accounts/gkleen@sif/xmonad/xmonad.hs | 10 +++++----- 2 files changed, 6 insertions(+), 6 deletions(-) (limited to 'accounts') 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) -- cgit v1.2.3