diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2015-07-16 19:29:03 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2015-07-16 19:29:03 +0200 |
| commit | 8f0c21a828f9f2b854f5850b454a3b0b76476493 (patch) | |
| tree | 5349b3605ee0290702038c7c5db386e3f6c32bbe | |
| parent | 7e14dc64630e39adf884f229a57b5431fec434a5 (diff) | |
| download | dotfiles-8f0c21a828f9f2b854f5850b454a3b0b76476493.tar dotfiles-8f0c21a828f9f2b854f5850b454a3b0b76476493.tar.gz dotfiles-8f0c21a828f9f2b854f5850b454a3b0b76476493.tar.bz2 dotfiles-8f0c21a828f9f2b854f5850b454a3b0b76476493.tar.xz dotfiles-8f0c21a828f9f2b854f5850b454a3b0b76476493.zip | |
Moved urxvtd back into xmonad; Fixed spawnKeychain in xmonad
| -rw-r--r-- | .config/systemd/user/urxvtd.service | 10 | ||||
| -rw-r--r-- | .xmonad/xmonad.hs | 11 |
2 files changed, 8 insertions, 13 deletions
diff --git a/.config/systemd/user/urxvtd.service b/.config/systemd/user/urxvtd.service deleted file mode 100644 index c5ff9b9..0000000 --- a/.config/systemd/user/urxvtd.service +++ /dev/null | |||
| @@ -1,10 +0,0 @@ | |||
| 1 | [Unit] | ||
| 2 | Description=urxvtd - urxvt terminal daemon | ||
| 3 | |||
| 4 | [Service] | ||
| 5 | Type=simple | ||
| 6 | ExecStart=/bin/sh -c urxvtd | ||
| 7 | Restart=always | ||
| 8 | |||
| 9 | [Install] | ||
| 10 | WantedBy=default.target | ||
diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs index 35112a5..621d1e1 100644 --- a/.xmonad/xmonad.hs +++ b/.xmonad/xmonad.hs | |||
| @@ -40,6 +40,9 @@ import Control.Monad (when) | |||
| 40 | import Graphics.X11.ExtraTypes.XF86 | 40 | import Graphics.X11.ExtraTypes.XF86 |
| 41 | import XMonad.Util.Cursor | 41 | import XMonad.Util.Cursor |
| 42 | import XMonad.Actions.Warp | 42 | import XMonad.Actions.Warp |
| 43 | import XMonad.Util.SpawnOnce | ||
| 44 | import System.Directory | ||
| 45 | import System.FilePath | ||
| 43 | 46 | ||
| 44 | import XMonad.Layout.IM | 47 | import XMonad.Layout.IM |
| 45 | 48 | ||
| @@ -164,11 +167,13 @@ main = do | |||
| 164 | xmonad $ myConfig | 167 | xmonad $ myConfig |
| 165 | 168 | ||
| 166 | autostart = [ spawnKeychain | 169 | autostart = [ spawnKeychain |
| 170 | , spawnOnce "urxvtd -o" | ||
| 167 | ] | 171 | ] |
| 168 | 172 | ||
| 169 | spawnKeychain = safeSpawn "urxvt" $ ["-e", "keychain"] ++ keys | 173 | spawnKeychain = do |
| 170 | where | 174 | home <- liftIO getHomeDirectory |
| 171 | keys = map ("~/.ssh/id_" ++) ["ed25519", "ecdsa", "rsa"] | 175 | let keys = map ((home </>) . ("/.ssh/id_" ++)) ["ed25519", "ecdsa", "rsa"] |
| 176 | safeSpawn "urxvt" $ ["-e", "keychain"] ++ keys | ||
| 172 | 177 | ||
| 173 | assimilateKeychain :: X () | 178 | assimilateKeychain :: X () |
| 174 | assimilateKeychain = liftIO $ assimilateKeychain' >> return () | 179 | assimilateKeychain = liftIO $ assimilateKeychain' >> return () |
