Xmonad: Add initial configuration

1 files changed, 19 insertions, 0 deletions

diff --git a/tag-xmonad/xmonad/xmonad.hs b/tag-xmonad/xmonad/xmonad.hs
new file mode 100644
index 0000000..fda328c
--- /dev/null
+++ b/tag-xmonad/xmonad/xmonad.hs
@@ -0,0 +1,19 @@
+import XMonad
+import XMonad.Hooks.DynamicLog
+import XMonad.Hooks.ManageDocks
+import XMonad.Util.Run(spawnPipe)
+import XMonad.Util.EZConfig(additionalKeys)
+import System.IO
+
+main = do
+  xmproc <-spawnPipe "/usr/bin/xmobar /home/alan/.xmobarrc"
+  xmonad $ defaultConfig {
+    manageHook = manageDocks <+> manageHook defaultConfig,
+    layoutHook = avoidStruts  $  layoutHook defaultConfig,
+    logHook = dynamicLogWithPP xmobarPP {
+      ppOutput = hPutStrLn xmproc,
+      ppTitle  = xmobarColor "green" "" . shorten 50
+    },
+    terminal = "urxvt",
+    modMask = mod4Mask
+  }