From 0eb06ba89af67ade0e4f29e8ee3ce9d632aff53c Mon Sep 17 00:00:00 2001
From: Stefan Ritter <xeno@thehappy.de>
Date: Sun, 6 Jan 2013 16:32:50 +0100
Subject: Cleanup

---
 xmonad/xmonad-0.7.hs | 87 ----------------------------------------------------
 1 file changed, 87 deletions(-)
 delete mode 100644 xmonad/xmonad-0.7.hs

(limited to 'xmonad/xmonad-0.7.hs')

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
-    }
-- 
cgit v1.2.3