フォーカスがあたっているターミナル上のシェルの CWD で新しくターミナルを開く XMonad 用関数

gistfile1.hs

getWindowPID :: Window -> X (Maybe Int)
getWindowPID w = withDisplay $ \dpy -> do
    atom <- getAtom "_NET_WM_PID"
    ret <- io $ getWindowProperty32 dpy atom w
    case ret of
        Just (pid:_) -> return $ Just $ fromIntegral pid
        _            -> return Nothing

spawnTerminalInCWD :: X ()
spawnTerminalInCWD = do
    XConf { config = XConfig { terminal = term } } <- ask
    withWindowSet $ \ws -> do
        case W.peek ws of
            Just w  -> do
                ret <- getWindowPID w
                case ret of
                    Just pid -> spawn $ "cwd=$(readlink /proc/$(ps --ppid " ++ show pid ++ " ho pid | head -n 1 | tr -d ' ')/cwd); \
                                        \cd \"${cwd}\"; \
                                        \exec " ++ term
                    Nothing  -> spawn term
            Nothing ->
                spawn term