summaryrefslogtreecommitdiffstats
path: root/xmonad
diff options
context:
space:
mode:
Diffstat (limited to 'xmonad')
-rw-r--r--xmonad/xmonad-0.7.hs87
-rw-r--r--xmonad/xmonad-0.8.hs70
2 files changed, 0 insertions, 157 deletions
diff --git a/xmonad/xmonad-0.7.hs b/xmonad/xmonad-0.7.hs
deleted file mode 100644
index 4a8443a..0000000
--- a/xmonad/xmonad-0.7.hs
+++ /dev/null
@@ -1,87 +0,0 @@
-import XMonad
-import System.Exit
-
-import qualified XMonad.StackSet as W
-import qualified Data.Map as M
-
-myTerminal = "x-terminal-emulator"
-myBorderWidth = 1
-myModMask = mod1Mask
-myNumlockMask = mod2Mask
-myWorkspaces = ["1","2","3","4","5","6","7","8","9"]
-myNormalBorderColor = "#dddddd"
-myFocusedBorderColor = "#ff0000"
-
-myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
- [ ((modMask, xK_Return), spawn $ XMonad.terminal conf)
- , ((modMask, xK_q ), spawn "exe=`dmenu_path | dmenu` && eval \"exec $exe\"")
- , ((modMask, xK_l ), spawn "xscreensaver-command -lock")
- , ((modMask .|. shiftMask, xK_c ), kill)
- , ((modMask, xK_space ), sendMessage NextLayout)
- , ((modMask .|. shiftMask, xK_space ), setLayout $ XMonad.layoutHook conf)
- , ((modMask, xK_r ), windows W.focusDown)
- , ((modMask, xK_g ), windows W.focusUp )
- , ((modMask, xK_m ), windows W.focusMaster )
- , ((modMask .|. shiftMask, xK_r ), windows W.swapDown )
- , ((modMask .|. shiftMask, xK_g ), windows W.swapUp )
- , ((modMask, xK_n ), sendMessage Shrink)
- , ((modMask, xK_t ), sendMessage Expand)
- , ((modMask, xK_h ), withFocused $ windows . W.sink)
- , ((modMask, xK_comma ), sendMessage (IncMasterN 1))
- , ((modMask, xK_period), sendMessage (IncMasterN (-1)))
- , ((modMask, xK_k ), spawn "amixer -c 0 set PCM 2dB+")
- , ((modMask, xK_s ), spawn "amixer -c 0 set PCM 2dB-")
- ]
- ++
-
- [((m .|. modMask, k), windows $ f i)
- | (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9]
- , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]
-
-myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $
- [ ((modMask, button1), (\w -> focus w >> mouseMoveWindow w))
- , ((modMask, button2), (\w -> focus w >> windows W.swapMaster))
- , ((modMask, button3), (\w -> focus w >> mouseResizeWindow w))
- ]
-
-myLayout = tiled ||| Mirror tiled ||| Full
- where
- tiled = Tall nmaster delta ratio
- nmaster = 1
- ratio = 55/100
- delta = 1/100
-
-myManageHook = composeAll
- [ className =? "MPlayer" --> doFloat
- , className =? "Skype" --> doFloat
- , className =? "Twinkle" --> doFloat
- , className =? "VirtualBox" --> doFloat
- , className =? "Gimp" --> doFloat
- , className =? "Qemu-launcher" --> doFloat
- , className =? "Default - Wine desktop" --> doFloat
- ]
-
-myFocusFollowsMouse :: Bool
-myFocusFollowsMouse = True
-
-myLogHook = return ()
-
-main = xmonad defaults
-
-defaults = defaultConfig {
- terminal = myTerminal,
- focusFollowsMouse = myFocusFollowsMouse,
- borderWidth = myBorderWidth,
- modMask = myModMask,
- numlockMask = myNumlockMask,
- workspaces = myWorkspaces,
- normalBorderColor = myNormalBorderColor,
- focusedBorderColor = myFocusedBorderColor,
-
- keys = myKeys,
- mouseBindings = myMouseBindings,
-
- layoutHook = myLayout,
- manageHook = myManageHook,
- logHook = myLogHook
- }
diff --git a/xmonad/xmonad-0.8.hs b/xmonad/xmonad-0.8.hs
deleted file mode 100644
index 1d3664b..0000000
--- a/xmonad/xmonad-0.8.hs
+++ /dev/null
@@ -1,70 +0,0 @@
-import XMonad
-import XMonad.Hooks.DynamicLog
-import XMonad.Hooks.ManageDocks
-import XMonad.Hooks.EwmhDesktops
-import XMonad.Actions.CycleWS
-import System.Exit
-import System.IO
-
-import qualified XMonad.StackSet as W
-import qualified Data.Map as M
-
-myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
- [ ((modMask, xK_Return), spawn $ XMonad.terminal conf)
- , ((modMask, xK_q ), spawn "exe=`dmenu_path | dmenu` && eval \"exec $exe\"")
- , ((modMask, xK_l ), spawn "slock")
- , ((modMask .|. shiftMask, xK_c ), kill)
- , ((modMask, xK_space ), sendMessage NextLayout)
- , ((modMask .|. shiftMask, xK_space ), setLayout $ XMonad.layoutHook conf)
- , ((modMask, xK_r ), windows W.focusDown)
- , ((modMask, xK_g ), windows W.focusUp )
- , ((modMask, xK_m ), windows W.focusMaster )
- , ((modMask .|. shiftMask, xK_r ), windows W.swapDown )
- , ((modMask .|. shiftMask, xK_g ), windows W.swapUp )
- , ((modMask, xK_h ), prevWS)
- , ((modMask, xK_f ), nextWS)
- , ((modMask .|. shiftMask, xK_q ), io (exitWith ExitSuccess))
- , ((modMask , xK_n ), sendMessage (IncMasterN 1))
- , ((modMask , xK_t ), sendMessage (IncMasterN (-1)))
- ]
- ++
-
- [((m .|. modMask, k), windows $ f i)
- | (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9]
- , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]
-
-myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $
- [ ((modMask, button1), (\w -> focus w >> mouseMoveWindow w))
- , ((modMask, button2), (\w -> focus w >> windows W.swapMaster))
- , ((modMask, button3), (\w -> focus w >> mouseResizeWindow w))
- ]
-
-myManageHook = composeAll
- [ className =? "MPlayer" --> doFloat
- , className =? "Gimp" --> doFloat
- , className =? "PacketTracer5" --> doFloat
- ]
-
-myFocusFollowsMouse :: Bool
-myFocusFollowsMouse = True
-
-myConfig = defaultConfig
-
-main = do
-xmonad $ defaultConfig {
- manageHook = manageDocks <+> manageHook defaultConfig,
- terminal = "x-terminal-emulator",
- focusFollowsMouse = myFocusFollowsMouse,
- borderWidth = 1,
- modMask = mod1Mask,
- numlockMask = mod2Mask,
- workspaces = ["0","1","2","3","4","5","6","7","8","9"],
- normalBorderColor = "#dddddd",
- focusedBorderColor = "#ff0000",
- keys = myKeys,
- mouseBindings = myMouseBindings,
- logHook = ewmhDesktopsLogHook,
- --logHook = dynamicLog,
- layoutHook = avoidStruts $ layoutHook defaultConfig,
- startupHook = return()
- }