From 766675ca92cac6aa3bb67fa45ae28da28ae86bcc Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Sat, 1 Feb 2020 23:46:55 -0700
Subject: First XMonad-JRahm Commit

Have an install script to install XMonad-jrahm on the expected platform.
---
 src/Main.hs | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 src/Main.hs

(limited to 'src/Main.hs')

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