XMobar

1 files changed, 15 insertions, 13 deletions

diff --git a/modules/xmonad.hs b/modules/xmonad.hs
index 1df21b5..6de28c7 100644
--- a/modules/xmonad.hs
+++ b/modules/xmonad.hs
@@ -1,5 +1,8 @@
 import XMonad
 import XMonad.Util.EZConfig (additionalKeys)
+import XMonad.Hooks.ManageDocks
+import XMonad.Hooks.StatusBar
+import XMonad.Hooks.StatusBar.PP
 import Control.Monad (when)
 import Text.Printf (printf)
 import System.Posix.Process (executeFile)
@@ -7,23 +10,22 @@ import System.Info (arch,os)
 import System.Environment (getArgs)
 import System.FilePath ((</>))
 
-compiledConfig = printf "xmonad-%s-%s" arch os
+myLayout = avoidStruts (tiled ||| Mirror tiled ||| Full)
+  where
+    tiled   = Tall nmaster delta ratio
+    nmaster = 1      -- Default number of windows in the master pane
+    ratio   = 1/2    -- Default proportion of screen occupied by master pane
+    delta   = 3/100  -- Percent of screen to increment by when resizing panes
 
 myConfig = defaultConfig
   { modMask = mod1Mask
+  , layoutHook = myLayout
+  , focusedBorderColor = "#4eb4fa"
   , terminal = "alacritty" }
   `additionalKeys`
-  [ ( (mod1Mask, xK_r), compileRestart True)
-  , ( (mod1Mask, xK_q), restart "xmonad" True ) ]
+  [ ( (mod1Mask, xK_q), restart "xmonad" True ) ]
 
-compileRestart resume = do
-  dirs <- asks directories
-  whenX (recompile dirs True) $ do
-    when resume writeStateToFile
-    catchIO
-      ( do
-          args <- getArgs
-          executeFile (cacheDir dirs </> compiledConfig) False args Nothing
-      )
+mySB = statusBarProp "xmobar" (pure xmobarPP)
+-- main = xmonad $ withEasySB mySB defToggleStrutsKey def
 
-main = getDirectories >>= launch myConfig  
+main = getDirectories >>= launch (docks $ withSB mySB myConfig)