mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 11:30:22 -07:00
773367e6b8
Just a small refactooring (well, now runCommand requires a command list, and I added runCommand's that will take a string to run it against the default command list) to include this module in MetaModule so that we can track it in case of API changes (this patch has been requested by Spencer).
102 lines
3.5 KiB
Haskell
102 lines
3.5 KiB
Haskell
-----------------------------------------------------------------------------
|
|
-- |
|
|
-- Module : XMonadContrib.Commands
|
|
-- Copyright : (c) David Glasser 2007
|
|
-- License : BSD3
|
|
--
|
|
-- Maintainer : glasser@mit.edu
|
|
-- Stability : stable
|
|
-- Portability : portable
|
|
--
|
|
-- Allows you to run internal xmonad commands (X () actions) using
|
|
-- a dmenu menu in addition to key bindings. Requires dmenu and
|
|
-- the Dmenu XMonadContrib module.
|
|
--
|
|
-----------------------------------------------------------------------------
|
|
|
|
module XMonadContrib.Commands (
|
|
-- * Usage
|
|
-- $usage
|
|
commandMap,
|
|
runCommand,
|
|
runCommand',
|
|
workspaceCommands,
|
|
screenCommands,
|
|
defaultCommands
|
|
) where
|
|
|
|
import XMonad
|
|
import Operations
|
|
import XMonadContrib.Dmenu (dmenu)
|
|
import {-# SOURCE #-} Config (workspaces)
|
|
|
|
import qualified Data.Map as M
|
|
import System.Exit
|
|
import Data.Maybe
|
|
|
|
-- $usage
|
|
--
|
|
-- To use, modify your Config.hs to:
|
|
--
|
|
-- > import XMonadContrib.Commands
|
|
--
|
|
-- and add a keybinding to the runCommand action:
|
|
--
|
|
-- > , ((modMask .|. controlMask, xK_y), runCommand)
|
|
--
|
|
-- and define the list commands:
|
|
--
|
|
-- > commands :: [(String, X ())]
|
|
-- > commands = defaultCommands
|
|
--
|
|
-- A popup menu of internal xmonad commands will appear. You can
|
|
-- change the commands by changing the contents of the list
|
|
-- 'commands'. (If you like it enough, you may even want to get rid
|
|
-- of many of your other key bindings!)
|
|
|
|
commandMap :: [(String, X ())] -> M.Map String (X ())
|
|
commandMap c = M.fromList c
|
|
|
|
workspaceCommands :: [(String, X ())]
|
|
workspaceCommands = [((m ++ show i), f (fromIntegral i))
|
|
| i <- [0 .. workspaces - 1]
|
|
, (f, m) <- [(view, "view"), (shift, "shift")]
|
|
]
|
|
|
|
screenCommands :: [(String, X ())]
|
|
screenCommands = [((m ++ show sc), screenWorkspace (fromIntegral sc) >>= flip whenJust f)
|
|
| sc <- [0, 1]::[Int] -- TODO: adapt to screen changes
|
|
, (f, m) <- [(view, "screen"), (shift, "screen-to-")]
|
|
]
|
|
|
|
defaultCommands :: [(String, X ())]
|
|
defaultCommands = workspaceCommands ++ screenCommands
|
|
++ [ ("shrink", sendMessage Shrink)
|
|
, ("expand", sendMessage Expand)
|
|
, ("restart-wm", restart Nothing True)
|
|
, ("restart-wm-no-resume", restart Nothing False)
|
|
, ("layout", switchLayout)
|
|
, ("xterm", spawn "xterm")
|
|
, ("run", spawn "exe=`dmenu_path | dmenu -b` && exec $exe")
|
|
, ("kill", kill)
|
|
, ("refresh", refresh)
|
|
, ("focus-up", focusUp)
|
|
, ("focus-down", focusDown)
|
|
, ("swap-up", swapUp)
|
|
, ("swap-down", swapDown)
|
|
, ("swap-master", swapMaster)
|
|
, ("sink", withFocused sink)
|
|
, ("quit-wm", io $ exitWith ExitSuccess)
|
|
]
|
|
|
|
runCommand :: [(String, X ())] -> X ()
|
|
runCommand cl = do
|
|
let m = commandMap cl
|
|
choice <- dmenu (M.keys m)
|
|
fromMaybe (return ()) (M.lookup choice m)
|
|
|
|
runCommand' :: String -> X ()
|
|
runCommand' c = do
|
|
let m = commandMap defaultCommands
|
|
fromMaybe (return ()) (M.lookup c m)
|