From 35a852935e3c7cf53e6bbbcf03b775f2b9958ac9 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Fri, 18 Jul 2014 20:32:23 +0100
Subject: Xmonad: Add initial configuration

---
 tag-xmonad/xmonad/xmonad.hs | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 tag-xmonad/xmonad/xmonad.hs

(limited to 'tag-xmonad')

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
+  }
-- 
cgit 1.4.1