nojhan/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add an xterm scratchpad

Browse source
This commit is contained in:
nojhan 2012-06-22 09:19:45 +02:00
commit 9a3a06e987
1 changed files with 17 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

21
xmonad.hs
View file

@ -7,7 +7,7 @@ import XMonad.Util.EZConfig
import XMonad.Actions.CycleWS import XMonad.Actions.CycleWS
import XMonad.Layout.ResizableTile import XMonad.Layout.ResizableTile
import XMonad.Actions.WindowGo import XMonad.Actions.WindowGo
import XMonad.Util.Scratchpad (scratchpadSpawnAction, scratchpadManageHook, scratchpadFilterOutWorkspace) import XMonad.Util.Scratchpad (scratchpadSpawnAction, scratchpadSpawnActionTerminal, scratchpadManageHook, scratchpadFilterOutWorkspace)
import XMonad.Layout.WindowNavigation import XMonad.Layout.WindowNavigation
import XMonad.Actions.FloatSnap import XMonad.Actions.FloatSnap
import XMonad.Actions.PhysicalScreens import XMonad.Actions.PhysicalScreens
@ -24,14 +24,20 @@ import qualified Data.Map as M
modm = mod1Mask modm = mod1Mask
myTerminal :: String
-- myTerminal = "$XTERMCMD"
myTerminal = "xterm"
myScratchPad = scratchpadSpawnActionTerminal myTerminal
main = xmonad $ gnomeConfig main = xmonad $ gnomeConfig
{ {
terminal = "$XTERMCMD" terminal = myTerminal
, XMonad.modMask = modm , XMonad.modMask = modm
, focusedBorderColor = "#ffbb00" , focusedBorderColor = "#ffbb00"
, borderWidth = 3 , borderWidth = 3
-- Switch workspaces with default first azerty row instead of plain numbers -- Switch workspaces with default first azerty row instead of plain numbers
, keys = \c -> bepoKeys c `M.union` keys gnomeConfig c , keys = \c -> bepoKeys c `M.union` keys gnomeConfig c
, manageHook = manageHook gnomeConfig <+> manageScratchPad
-- add a fullscreen tabbed layout that does not avoid covering -- add a fullscreen tabbed layout that does not avoid covering
-- up desktop panels before the desktop layouts -- up desktop panels before the desktop layouts
@ -108,8 +114,8 @@ main = xmonad $ gnomeConfig
-- Move focus to the master window -- Move focus to the master window
, ("M-m", windows W.focusMaster ) , ("M-m", windows W.focusMaster )
-- Scratchpad -- Scratchpad
, ("M-<Space>", scratchpadSpawnAction gnomeConfig { terminal = "$XTERMCMD" } ) , ("M-<Space>", myScratchPad )
, ("M-<XF86Calculator>", scratchpadSpawnAction gnomeConfig { terminal = "$XTERMCMD" } ) , ("M-<XF86Calculator>", myScratchPad )
-- Move focus to the next physical xinerama screen -- Move focus to the next physical xinerama screen
, ("M-$", onPrevNeighbour W.view) , ("M-$", onPrevNeighbour W.view)
@ -152,3 +158,10 @@ bepoKeys conf@(XConfig {modMask = modm}) = M.fromList $
| (i, k) <- zip (workspaces conf) numBepoNoj, | (i, k) <- zip (workspaces conf) numBepoNoj,
(f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]] (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]
manageScratchPad :: ManageHook
manageScratchPad = scratchpadManageHook (W.RationalRect l t w h)
where
h = 0.5 -- terminal height, 10%
w = 0.5 -- terminal width, 100%
t = 0.25 -- distance from top edge, 90%
l = 0.25 -- distance from left edge, 0%