mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-07-30 03:31:51 -07:00
107 lines
3.9 KiB
Haskell
107 lines
3.9 KiB
Haskell
-----------------------------------------------------------------------------
|
|
-- |
|
|
-- Module : XMonad.Actions.WmiiActions
|
|
-- Copyright : (c) Juraj Hercek <juhe_xmonad@hck.sk>
|
|
-- License : BSD3
|
|
--
|
|
-- Maintainer : Juraj Hercek <juhe_xmonad@hck.sk>
|
|
-- Stability : unstable
|
|
-- Portability : unportable
|
|
--
|
|
-- Provides \"actions\" as in the Wmii window manager
|
|
-- (<http://wmii.suckless.org>). It also provides a slightly better
|
|
-- interface for running dmenu on xinerama screens. If you want to use
|
|
-- xinerama functions, you have to apply the following patch (see the
|
|
-- "XMonad.Util.Dmenu" module):
|
|
-- <http://www.jcreigh.com/dmenu/dmenu-3.2-xinerama.patch>. Don't
|
|
-- forget to recompile dmenu afterwards ;-).
|
|
-----------------------------------------------------------------------------
|
|
|
|
module XMonad.Actions.WmiiActions (
|
|
-- * Usage
|
|
-- $usage
|
|
wmiiActions
|
|
, wmiiActionsXinerama
|
|
, executables
|
|
, executablesXinerama
|
|
) where
|
|
|
|
import XMonad
|
|
import XMonad.Util.Dmenu (dmenu, dmenuXinerama)
|
|
import XMonad.Util.Run (runProcessWithInput)
|
|
|
|
import Control.Monad (filterM, liftM, liftM2)
|
|
import System.Directory (getDirectoryContents, doesFileExist, getPermissions, executable)
|
|
|
|
-- $usage
|
|
--
|
|
-- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@ file:
|
|
--
|
|
-- > import XMonad.Actions.WmiiActions
|
|
--
|
|
-- and add something like the following to your key bindings:
|
|
--
|
|
-- > ,((modMask x, xK_a), wmiiActions "/home/joe/.wmii-3.5/")
|
|
--
|
|
-- or, if you are using xinerama, you can use
|
|
--
|
|
-- > ,((modMask x, xK_a), wmiiActionsXinerama "/home/joe/.wmii-3.5/")
|
|
--
|
|
-- However, make sure you also have the xinerama build of dmenu (for more
|
|
-- information see the "XMonad.Util.Dmenu" extension).
|
|
--
|
|
-- For detailed instructions on editing your key bindings, see
|
|
-- "XMonad.Doc.Extending#Editing_key_bindings".
|
|
|
|
-- | The 'wmiiActions' function takes the file path as a first argument and
|
|
-- executes dmenu with all the executables found in the provided path.
|
|
wmiiActions :: FilePath -> X ()
|
|
wmiiActions path =
|
|
wmiiActionsDmenu path dmenu
|
|
|
|
-- | The 'wmiiActionsXinerama' does the same as 'wmiiActions', but it shows
|
|
-- dmenu only on the currently focused workspace.
|
|
wmiiActionsXinerama :: FilePath -> X ()
|
|
wmiiActionsXinerama path =
|
|
wmiiActionsDmenu path dmenuXinerama
|
|
|
|
wmiiActionsDmenu :: FilePath -> ([String] -> X String) -> X ()
|
|
wmiiActionsDmenu path dmenuBrand =
|
|
let path' = path ++ "/" in
|
|
getExecutableFileList path' >>= dmenuBrand >>= spawn . (path' ++)
|
|
|
|
getExecutableFileList :: FilePath -> X [String]
|
|
getExecutableFileList path =
|
|
io $ getDirectoryContents path >>=
|
|
filterM (\x -> let x' = path ++ x in
|
|
liftM2 (&&)
|
|
(doesFileExist x')
|
|
(liftM executable (getPermissions x')))
|
|
|
|
{-
|
|
getExecutableFileList :: FilePath -> X [String]
|
|
getExecutableFileList path =
|
|
io $ getDirectoryContents path >>=
|
|
filterM (doesFileExist . (path ++)) >>=
|
|
filterM (liftM executable . getPermissions . (path ++))
|
|
-}
|
|
|
|
-- | The 'executables' function runs the dmenu_path script, providing list of
|
|
-- executable files accessible from the $PATH variable.
|
|
executables :: X ()
|
|
executables = executablesDmenu dmenu
|
|
|
|
-- | The 'executablesXinerama' function does the same as the
|
|
-- 'executables' function, but on the workspace which currently has focus.
|
|
executablesXinerama :: X ()
|
|
executablesXinerama = executablesDmenu dmenuXinerama
|
|
|
|
executablesDmenu :: ([String] -> X String) -> X ()
|
|
executablesDmenu dmenuBrand =
|
|
getExecutablesList >>= dmenuBrand >>= spawn
|
|
|
|
getExecutablesList :: X [String]
|
|
getExecutablesList =
|
|
io $ liftM lines $ runProcessWithInput "dmenu_path" [] ""
|
|
|