added RunOrRaisePrompt, exported getCommands from Shell

darcs-hash:20080323222632-18f27-a9eb1ed596a12f474f45f9d40a8f981ff01326d4.gz

1 files changed, 77 insertions, 0 deletions

diff --git a/XMonad/Prompt/RunOrRaise.hs b/XMonad/Prompt/RunOrRaise.hs
new file mode 100644
index 0000000..9fafb2c
--- /dev/null
+++ b/XMonad/Prompt/RunOrRaise.hs
@@ -0,0 +1,77 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  XMonad.Prompt.RunOrRaise
+-- Copyright   :  (C) 2008 Justin Bogner
+-- License     :  BSD3
+--
+-- Maintainer  :  mail@justinbogner.com
+-- Stability   :  unstable
+-- Portability :  unportable
+--
+-- A prompt for XMonad which will run a program, open a file,
+-- or raise an already running program, depending on context.
+--
+-----------------------------------------------------------------------------
+
+module XMonad.Prompt.RunOrRaise
+    ( -- * Usage
+      -- $usage
+      runOrRaisePrompt
+    ) where
+
+import XMonad hiding (config)
+import XMonad.Prompt
+import XMonad.Prompt.Shell
+import XMonad.Actions.WindowGo (runOrRaise)
+import XMonad.Util.Run (runProcessWithInput)
+
+import Control.Monad (liftM2)
+import Data.Maybe
+import System.Directory (doesDirectoryExist, doesFileExist, executable, getPermissions)
+
+-- $usage
+-- 1. In your @~\/.xmonad\/xmonad.hs@:
+--
+-- > import XMonad.Prompt
+-- > import XMonad.Prompt.RunOrRaise
+--
+-- 2. In your keybindings add something like:
+--
+-- >   , ((modMask x .|. controlMask, xK_x), runOrRaisePrompt defaultXPConfig)
+--
+-- For detailed instruction on editing the key binding see
+-- "XMonad.Doc.Extending#Editing_key_bindings".
+
+data RunOrRaisePrompt = RRP
+instance XPrompt RunOrRaisePrompt where
+    showXPrompt RRP = "Run or Raise: "
+
+runOrRaisePrompt :: XPConfig -> X ()
+runOrRaisePrompt c = do cmds <- io $ getCommands
+                        mkXPrompt RRP c (getShellCompl cmds) open
+open :: String -> X ()
+open path = (io $ isNormalFile path) >>= \b ->
+            if b
+            then spawn $ "xdg-open \"" ++ path ++ "\""
+            else uncurry runOrRaise . getTarget $ path
+    where
+      isNormalFile f = exists f >>= \e -> if e then (notExecutable f) else return False
+      exists f = fmap or $ sequence [doesFileExist f,doesDirectoryExist f]
+      notExecutable = fmap (not . executable) . getPermissions
+      getTarget x = (x,isApp x)
+
+isApp :: String -> Query Bool
+isApp "firefox" = className =? "Firefox-bin"
+isApp "thunderbird" = className =? "Thunderbird-bin"
+isApp x = liftM2 (==) pid $ pidof x
+
+pidof :: String -> Query Int
+pidof x = io $ (runProcessWithInput "pidof" [x] [] >>= readIO) `catch` (\_ -> return $ 0)
+
+pid :: Query Int
+pid = ask >>= (\w -> liftX $ withDisplay $ \d -> getPID d w)
+    where getPID d w = getAtom "_NET_WM_PID" >>= \a -> io $
+                       getWindowProperty32 d a w >>= return . getPID'
+          getPID' (Just (x:_)) = fromIntegral x
+          getPID' (Just [])     = -1
+          getPID' (Nothing)     = -1