summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--.config/systemd/user/urxvtd.service10
-rw-r--r--.xmonad/xmonad.hs11
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]
2Description=urxvtd - urxvt terminal daemon
3
4[Service]
5Type=simple
6ExecStart=/bin/sh -c urxvtd
7Restart=always
8
9[Install]
10WantedBy=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)
40import Graphics.X11.ExtraTypes.XF86 40import Graphics.X11.ExtraTypes.XF86
41import XMonad.Util.Cursor 41import XMonad.Util.Cursor
42import XMonad.Actions.Warp 42import XMonad.Actions.Warp
43import XMonad.Util.SpawnOnce
44import System.Directory
45import System.FilePath
43 46
44import XMonad.Layout.IM 47import XMonad.Layout.IM
45 48
@@ -164,11 +167,13 @@ main = do
164 xmonad $ myConfig 167 xmonad $ myConfig
165 168
166autostart = [ spawnKeychain 169autostart = [ spawnKeychain
170 , spawnOnce "urxvtd -o"
167 ] 171 ]
168 172
169spawnKeychain = safeSpawn "urxvt" $ ["-e", "keychain"] ++ keys 173spawnKeychain = 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
173assimilateKeychain :: X () 178assimilateKeychain :: X ()
174assimilateKeychain = liftIO $ assimilateKeychain' >> return () 179assimilateKeychain = liftIO $ assimilateKeychain' >> return ()