diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2015-07-16 19:33:04 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2015-07-16 19:33:04 +0200 |
| commit | e62a346d035773783ae0ce72963f9bdfb5a03601 (patch) | |
| tree | b42cf9e1e29f515758178caa466517b0144d5a4c | |
| parent | 8f0c21a828f9f2b854f5850b454a3b0b76476493 (diff) | |
| download | dotfiles-e62a346d035773783ae0ce72963f9bdfb5a03601.tar dotfiles-e62a346d035773783ae0ce72963f9bdfb5a03601.tar.gz dotfiles-e62a346d035773783ae0ce72963f9bdfb5a03601.tar.bz2 dotfiles-e62a346d035773783ae0ce72963f9bdfb5a03601.tar.xz dotfiles-e62a346d035773783ae0ce72963f9bdfb5a03601.zip | |
Managing keychain terminal like scratchpad
| -rw-r--r-- | .xmonad/xmonad.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs index 621d1e1..ab3bc4c 100644 --- a/.xmonad/xmonad.hs +++ b/.xmonad/xmonad.hs | |||
| @@ -109,7 +109,7 @@ spawnBindings conf (k, cmds) = zipWith (\m cmd -> ((modm .|. mod1Mask .|. m, k), | |||
| 109 | where | 109 | where |
| 110 | modm = XMonad.modMask conf | 110 | modm = XMonad.modMask conf |
| 111 | 111 | ||
| 112 | manageScratchTerm = resource =? "scratchpad" -?> doRectFloat $ RationalRect (1 % 16) (1 % 16) (7 % 8) (7 % 8) | 112 | manageScratchTerm = (resource =? "scratchpad" <||> resource =? "keysetup") -?> doRectFloat $ RationalRect (1 % 16) (1 % 16) (7 % 8) (7 % 8) |
| 113 | 113 | ||
| 114 | tabbedLayout t = renamed [Replace "Tabbed"] $ reflectHoriz $ t CustomShrink $ tabbedTheme | 114 | tabbedLayout t = renamed [Replace "Tabbed"] $ reflectHoriz $ t CustomShrink $ tabbedTheme |
| 115 | tabbedTheme = defaultTheme { activeColor = "black" | 115 | tabbedTheme = defaultTheme { activeColor = "black" |
| @@ -173,7 +173,7 @@ autostart = [ spawnKeychain | |||
| 173 | spawnKeychain = do | 173 | spawnKeychain = do |
| 174 | home <- liftIO getHomeDirectory | 174 | home <- liftIO getHomeDirectory |
| 175 | let keys = map ((home </>) . ("/.ssh/id_" ++)) ["ed25519", "ecdsa", "rsa"] | 175 | let keys = map ((home </>) . ("/.ssh/id_" ++)) ["ed25519", "ecdsa", "rsa"] |
| 176 | safeSpawn "urxvt" $ ["-e", "keychain"] ++ keys | 176 | safeSpawn "urxvt" $ ["-title", "keysetup", "-e", "keychain"] ++ keys |
| 177 | 177 | ||
| 178 | assimilateKeychain :: X () | 178 | assimilateKeychain :: X () |
| 179 | assimilateKeychain = liftIO $ assimilateKeychain' >> return () | 179 | assimilateKeychain = liftIO $ assimilateKeychain' >> return () |