Add Xmonad config

makedots.sh

@@ -1,4 +1,4 @@
-#!/bin/bash -e
+#!/bin/bash
 
 DIR=$(pwd)
 
@@ -50,3 +50,16 @@ then
     rm -i $HOME/.antigen.zsh
 fi
 ln -s $DIR/antigen/antigen.zsh $HOME/.antigen.zsh
+
+# Xmonad
+if [ -h $HOME/.xmonad ]
+then
+    rm -i $HOME/.xmonad
+fi
+ln -s $DIR/xmonad $HOME/.xmonad
+
+if [ -h $HOME/.xmobarrc ]
+then
+    rm -i $HOME/.xmobarrc
+fi
+ln -s $DIR/xmonad/xmobarrc $HOME/.xmobarrc

xmonad/.gitignore

@@ -0,0 +1,3 @@
+*
+!.gitignore
+!xmonad.hs

xmonad/xmobarrc

@@ -0,0 +1,19 @@
+Config { font = "-*-Fixed-Bold-R-Normal-*-13-*-*-*-*-*-*-*"
+       , bgColor = "black"
+       , fgColor = "grey"
+       , position = TopW L 90
+       , lowerOnStart = True
+       , commands = [ Run Weather "EGPF" ["-t"," <tempF>F","-L","64","-H","77","--normal","green","--high","red","--low","lightblue"] 36000
+                    , Run Cpu ["-L","3","-H","50","--normal","green","--high","red"] 10
+                    , Run Memory ["-t","Mem: <usedratio>%"] 10
+                    , Run Swap [] 10
+                    , Run Date "%a %b %_d %l:%M" "date" 10
+                    , Run StdinReader
+                    ]
+       , sepChar = "%"
+       , alignSep = "}{"
+       , template = "%StdinReader% }{ %cpu% | %memory% * %swap%    <fc=#ee9a00>%date%</fc> | %EGPF%"
+       , overrideRedirect = False
+       , hideOnStart = False
+       , persistent = True
+}

xmonad/xmonad.hs

@@ -0,0 +1,56 @@
+import XMonad
+import XMonad.Config.Desktop
+import XMonad.Hooks.DynamicLog
+import XMonad.Hooks.ManageDocks
+import XMonad.Util.Run(spawnPipe, hPutStrLn)
+import XMonad.Util.EZConfig(additionalKeys)
+
+-- For shutdown commands and keys
+import Data.Map
+import XMonad.Prompt
+import XMonad.Prompt.XMonad
+import System.Exit
+
+main = do
+  xmproc <- spawnPipe "xmobar"
+  xmonad $ docks defaultConfig
+        { manageHook = manageDocks <+> manageHook defaultConfig
+        , layoutHook = avoidStruts  $  layoutHook defaultConfig
+	, logHook = dynamicLogWithPP xmobarPP
+		{ ppOutput = hPutStrLn xmproc
+		, ppTitle = xmobarColor "green" "" . shorten 50
+		}
+        , startupHook = startup
+        , terminal    = "gnome-terminal"
+	, modMask     = mod4Mask
+	} `additionalKeys`
+        [ ((controlMask, xK_Print), spawn "sleep 0.2; scrot -s")
+        , ((0, xK_Print), spawn "scrot")
+        , ((mod4Mask, xK_p ), spawn "rofi -show run")
+        , ((mod4Mask .|. shiftMask, xK_q),
+           xmonadPrompt defaultXPConfig
+           { promptKeymap = fromList
+             [ ((0, xK_r), do
+                   spawn "emacsclient -e '(kill emacs)'"
+                   spawn "systemctl reboot")
+             , ((shiftMask, xK_s), do
+                   spawn "emacsclient -e '(kill emacs)'"
+                   spawn "sudo poweroff")
+             , ((0, xK_e), do
+                   spawn "emacsclient -e '(kill emacs)'"
+                   io $ exitWith ExitSuccess)
+             , ((0, xK_l),  spawn "xscreensaver-command -lock")
+             , ((0, xK_s), do
+                   spawn "xscreensaver-command -lock"
+                   spawn "systemctl suspend")
+             , ((0, xK_Escape), quit)
+             ]
+           , defaultText = "(r) Reboot, (S) Shutdown, (e) Exit, (l) Lock, (s) Sleep"
+           })
+        ]
+
+startup :: X ()
+startup = do
+  spawn "feh --bg-scale ~/Owncloud/Backgrounds/Xmbindings.png"
+  spawn "owncloud"
+  spawn "trayer --transparent true --alpha 0 --tint 0x00000000 --SetDockType true --expand true --edge top --align right --width 15 --height 18"