First XMonad-JRahm Commit

Have an install script to install XMonad-jrahm on the expected platform.

1 files changed, 32 insertions, 0 deletions

diff --git a/src/Main.hs b/src/Main.hs
new file mode 100644
index 0000000..c067b62
--- /dev/null
+++ b/src/Main.hs
@@ -0,0 +1,32 @@
+import XMonad
+import XMonad.Hooks.DynamicLog
+import XMonad.Layout.Spacing
+import XMonad.Actions.WindowNavigation
+import XMonad.Util.CustomKeys
+import System.Directory
+import System.FilePath
+import System.Process
+import Internal.Layout
+
+import Internal.Keys
+
+main = do
+  -- Execute some commands.
+  homeDir <- getHomeDirectory
+  let fp = homeDir </> ".xmonad" </> "startup"
+
+  config <-
+    applyKeys $ def
+       { terminal    = "st"
+       , modMask     = mod4Mask
+       , borderWidth = 0
+       , keys = \config -> mempty
+       , focusedBorderColor = "#FFFFFF"
+       , normalBorderColor = "#000000"
+       , layoutHook = spacingRaw True (Border 5 5 5 5) True (Border 5 5 5 5) True $
+                      myLayout
+       , startupHook = do
+           spawn fp
+       }
+
+  xmonad =<< xmobar config { modMask = mod4Mask }