summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--install3
-rw-r--r--xmonad/xmonad.hs56
2 files changed, 58 insertions, 1 deletions
diff --git a/install b/install
index d970ae5..00a78b5 100644
--- a/install
+++ b/install
@@ -26,7 +26,8 @@ files="abcde.conf
procmail
terminfo
urxvt
- vim"
+ vim
+ xmonad"
function install() {
if [[ -e "$2" && ! -h "$2" ]]; then
diff --git a/xmonad/xmonad.hs b/xmonad/xmonad.hs
new file mode 100644
index 0000000..68c0ec1
--- /dev/null
+++ b/xmonad/xmonad.hs
@@ -0,0 +1,56 @@
+--
+-- xmonad example config file.
+--
+-- A template showing all available configuration hooks,
+-- and how to override the defaults in your own xmonad.hs conf file.
+--
+-- Normally, you'd only override those defaults you care about.
+--
+
+import XMonad
+import XMonad.Actions.CycleWS
+import XMonad.Hooks.ManageDocks
+import XMonad.Hooks.DynamicLog
+import XMonad.Layout.Reflect
+import XMonad.Layout.WindowNavigation
+import XMonad.Util.Run(spawnPipe)
+import XMonad.Util.EZConfig(additionalKeysP)
+import qualified XMonad.StackSet as W
+import System.IO
+
+main = do
+ xmproc <- spawnPipe "xmobar"
+ xmonad $ defaultConfig {
+ terminal = "urxvtc",
+ modMask = mod4Mask,
+ normalBorderColor = "#000000",
+ focusedBorderColor = "#aaaaaa",
+ layoutHook = avoidStruts myLayout,
+ manageHook = manageDocks <+> manageHook defaultConfig,
+ logHook = dynamicLogWithPP $ xmobarPP
+ { ppOutput = hPutStrLn xmproc
+ , ppTitle = xmobarColor "green" "" . shorten 100
+ }
+ } `additionalKeysP` [("C-M1-o", spawn "urxvtc")
+ ,("C-M1-b", spawn "firefox")
+ ,("C-S-l", spawn "xscreensaver-command -lock")
+ ,("C-M1-r", spawn "gmrun")
+ ,("C-M1-c", restart "xmonad" True)
+ ,("C-M1-<Left>", prevWS)
+ ,("C-M1-<Right>", nextWS)
+ ,("C-S-M1-<Left>", shiftToPrev)
+ ,("C-S-M1-<Right>", shiftToNext)
+ ,("M1-<Tab>", windows W.focusDown)
+ ,("M1-S-<Tab>", windows W.focusUp)
+ ,("C-M1-h", sendMessage $ Go L)
+ ,("C-M1-j", sendMessage $ Go D)
+ ,("C-M1-k", sendMessage $ Go U)
+ ,("C-M1-l", sendMessage $ Go R)
+ ]
+
+myLayout = configurableNavigation noNavigateBorders (tiled ||| Mirror tiled ||| Full)
+ where
+ tiled = reflectHoriz $ Tall nmaster delta ratio
+ nmaster = 2
+ ratio = 0.5955
+ delta = 0.0005