CleanupHEADmaster

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()
-	}