XMonad snippet for IRB prompt

xmonad-irb-prompt.hs

-- === Utilities === {{{1

withLabels :: (a -> b) -> [a] -> [(b, a)]
withLabels label items = (label <$> items) `zip` items

labelled :: [a] -> (a -> b) -> [(b, a)]
labelled = flip withLabels


----- Ruby prompts ----- {{{3

irbGridSelect :: X ()
irbGridSelect = do
    rubies <- io $ listRubies
    ruby <- gridselect defaultGSConfig $ rubies `labelled` label
    whenJust ruby irb
  where label ruby = drop 5 ruby -- TODO this is a cheap hack!
        irb ruby = safeSpawnX "bash" ["-i", unwords ["rvm", ruby, "exec", "irb"]]

listRubies :: IO [String]
listRubies = do
    rubyDirs <- dir rubiesDir
    return $ filter (/= "default") rubyDirs
  where rubiesDir = ".rvm/rubies"