aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuraj Hercek <juhe_xmonad@hck.sk>2008-02-29 22:22:57 +0100
committerJuraj Hercek <juhe_xmonad@hck.sk>2008-02-29 22:22:57 +0100
commit75fb4200f6bd93e2785351f00d24251e5b1ffabd (patch)
treee21078aba7df34dc3532af1655525067444b23a9
parent088edc7104f1a4b7e8ef50104231aadf4b01f17a (diff)
downloadXMonadContrib-75fb4200f6bd93e2785351f00d24251e5b1ffabd.tar.gz
XMonadContrib-75fb4200f6bd93e2785351f00d24251e5b1ffabd.tar.xz
XMonadContrib-75fb4200f6bd93e2785351f00d24251e5b1ffabd.zip
Import of new DirExec module.
- allows execution of executable files from specific directory darcs-hash:20080229212257-69f16-9a166d655acac098d7835e2d44764c40aae1baa0.gz
-rw-r--r--XMonad/Prompt/DirExec.hs90
-rw-r--r--xmonad-contrib.cabal1
2 files changed, 91 insertions, 0 deletions
diff --git a/XMonad/Prompt/DirExec.hs b/XMonad/Prompt/DirExec.hs
new file mode 100644
index 0000000..0595322
--- /dev/null
+++ b/XMonad/Prompt/DirExec.hs
@@ -0,0 +1,90 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module : XMonad.Prompt.DirExec
+-- Copyright : (C) 2008 Juraj Hercek
+-- License : BSD3
+--
+-- Maintainer : juhe_xmonad@hck.sk
+-- Stability : unstable
+-- Portability : unportable
+--
+-- A directory file executables prompt for XMonad. This might be useful if you
+-- don't want to have scripts in your PATH environment variable (same
+-- executable names, different behavior) - otherwise you might want to use
+-- "XMonad.Prompt.Shell" instead - but you want to have easy access to these
+-- executables through the xmonad's prompt.
+--
+-----------------------------------------------------------------------------
+
+module XMonad.Prompt.DirExec
+ ( -- * Usage
+ -- $usage
+ dirExecPrompt
+ , dirExecPromptWithName
+ ) where
+
+import System.Directory
+import Control.Monad
+import Data.List
+import XMonad
+import XMonad.Prompt
+
+-- $usage
+-- 1. In your @~\/.xmonad\/xmonad.hs@:
+--
+-- > import XMonad.Prompt.DirExec
+--
+-- 2. In your keybindings add something like:
+--
+-- > , ("M-C-x", dirExecPrompt defaultXPConfig "/home/joe/.scipts")
+--
+-- or
+--
+-- > , ("M-C-x", dirExecPromptWithName defaultXPConfig "/home/joe/.scripts"
+-- > "My Scripts: ")
+--
+-- The first alternative uses the last element of the directory path for
+-- a name of prompt. The second alternative uses the provided string
+-- for the name of the prompt.
+--
+-- For detailed instruction on editing the key binding see
+-- "XMonad.Doc.Extending#Editing_key_bindings".
+
+data DirExec = DirExec String
+
+instance XPrompt DirExec where
+ showXPrompt (DirExec name) = name
+
+-- | Function 'dirExecPrompt' starts the prompt with list of all executable
+-- files in directory specified by 'FilePath'. The name of the prompt is taken
+-- from the last element of the path. If you specify root directory - @/@ - as
+-- the path, name @Root:@ will be used as the name of the prompt instead. The
+-- 'XPConfig' parameter can be used to customize visuals of the prompt.
+dirExecPrompt :: XPConfig -> FilePath -> X ()
+dirExecPrompt cfg path = do
+ let name = (++ ": ") . last
+ . (["Root"] ++) -- handling of "/" path parameter
+ . words
+ . map (\x -> if x == '/' then ' ' else x)
+ $ path
+ dirExecPromptWithName cfg path name
+
+-- | Function 'dirExecPromptWithName' does the same as 'dirExecPrompt' except
+-- the name of the prompt is specified by 'String' parameter.
+dirExecPromptWithName :: XPConfig -> FilePath -> String -> X ()
+dirExecPromptWithName cfg path name = do
+ let path' = path ++ "/"
+ cmds <- io $ getDirectoryExecutables path'
+ mkXPrompt (DirExec name) cfg (compList cmds) (spawn . (path' ++))
+ where
+ compList cmds s = return . filter (isInfixOf s) $ cmds
+
+getDirectoryExecutables :: FilePath -> IO [String]
+getDirectoryExecutables path =
+ (getDirectoryContents path >>=
+ filterM (\x -> let x' = path ++ x in
+ liftM2 (&&)
+ (doesFileExist x')
+ (liftM executable (getPermissions x'))))
+ `catch` (return . return . show)
+
diff --git a/xmonad-contrib.cabal b/xmonad-contrib.cabal
index 336b4d3..3156940 100644
--- a/xmonad-contrib.cabal
+++ b/xmonad-contrib.cabal
@@ -148,6 +148,7 @@ library
XMonad.Prompt.Email
XMonad.Prompt.Layout
XMonad.Prompt.Man
+ XMonad.Prompt.DirExec
XMonad.Prompt.Shell
XMonad.Prompt.Ssh
XMonad.Prompt.Theme