redesigned the bars and now one is at the top whereas one at the bottom

1 files changed, 14 insertions, 27 deletions

diff --git a/XMonad/xmonad.hs b/XMonad/xmonad.hs
index 2f3ff01c..637fee8a 100644
--- a/XMonad/xmonad.hs
+++ b/XMonad/xmonad.hs
@@ -34,6 +34,7 @@ import XMonad.Layout.Spiral
 import XMonad.Layout.ResizableTile
 import XMonad.Layout.Maximize
 import XMonad.Layout.Tabbed -- fix this it doesnt work
+import XMonad.Layout.NoBorders
 
 -- hooks
 import XMonad.Hooks.SetWMName
@@ -51,7 +52,7 @@ import XMonad.Util.NamedScratchpad
 
 myStartupHook :: X ()
 myStartupHook = do
-	  spawnOnce "/home/zt/.xmonad/baraction | lemonbar -b  -g 500x21+800+0  -B '#171520' -F '#ffffff' -f 'Source Han Sans JP:size=10'"
+	  --spawnOnce "/home/zt/.xmonad/baraction | lemonbar -b  -g 500x21+800+0  -B '#171520' -F '#ffffff' -f 'Source Han Sans JP:size=10'"
 --          spawnOnce "nitrogen --restore"
 --          spawnOnce "startpage-server"
 --          spawnOnce "picom" 
@@ -123,7 +124,7 @@ fBorder = "#00ff85"
 myBorderWidth = 1
 
 sGap = 1 -- screen gap
-wGap = 1 -- window gap
+wGap = 2 -- window gap
 
 myExtraWorkspaces = [(xK_0, "  十  ")] -- , (xK_comma, "  十一  "), (xK_period, "  十二  "), (xK_slash, "  十三  ")]
 myWorkspaces = ["  一  ","  二  ","  三  ","  四  ","  五  ","  六  ","  七  ","  八  ", "  九  "] ++ (map snd myExtraWorkspaces)
@@ -160,17 +161,6 @@ myTSConfig = TS.TSConfig { TS.ts_hidechildren = False
                            , TS.ts_navigate     = TS.defaultNavigation
                            }
 
--- myTreeMenu :: TS.TSConfig (X ()) -> X ()
--- myTreeMenu a = TS.treeselectAction a
---    [ Node (TS.TSNode "Hello"    "displays hello"      (spawn "xmessage hello!")) []
---    , Node (TS.TSNode "Shutdown" "Poweroff the system" (spawn "shutdown")) []
---    , Node (TS.TSNode "Brightness" "Sets screen brightness using xbacklight" (return ()))
---        [ Node (TS.TSNode "Bright" "FULL POWER!!"            (spawn "xbacklight -set 100")) []
---        , Node (TS.TSNode "Normal" "Normal Brightness (50%)" (spawn "xbacklight -set 50"))  []
---        , Node (TS.TSNode "Dim"    "Quite dark"              (spawn "xbacklight -set 10"))  []
---        ]
---    ]
-
 myPowerMenu :: TS.TSConfig (X ()) -> X ()
 myPowerMenu a = TS.treeselectAction a
     [Node (TS.TSNode "SHUTDOWN" "It's not like I'm gonna miss you, b- baka!" (spawn "shutdown now")) []
@@ -363,24 +353,20 @@ myTabTheme = def { fontName            = "roboto"
 
 
 -- layouts
-myGap = spacingRaw False (Border sGap sGap sGap sGap) True (Border wGap wGap wGap wGap) True
-
+myGap = spacingRaw True (Border sGap sGap sGap sGap) True (Border wGap wGap wGap wGap) True
 
 
-myLayouts = avoidStruts (
-	renamed [R.Replace "BSP"]                  (maximize $ fullscreenFocus $ windowNavigation $ myGap $ emptyBSP)
-        ||| renamed [R.Replace "ThreeCol Mid (1)"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ ThreeColMid 1 (3/100) (1/2))
-        ||| renamed [R.Replace "ThreeCol Mid (2)"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ ThreeColMid 2 (3/100) (1/2))
-	||| renamed [R.Replace "Grid"]             (maximize $ fullscreenFocus $ windowNavigation $ myGap $ Grid)
-	||| renamed [R.Replace "TwoPane"]          (maximize $ fullscreenFocus $ windowNavigation $ myGap $ TwoPane (3/100) (1/2))
-	||| renamed [R.Replace "ThreeCol (1)"]     (maximize $ fullscreenFocus $ windowNavigation $ myGap $ ThreeCol 1 (3/100) (1/2))
-	||| renamed [R.Replace "ThreeCol (2)"]     (maximize $ fullscreenFocus $ windowNavigation $ myGap $ ThreeCol 2 (3/100) (1/2))
+myLayoutHook = avoidStruts (
+	renamed [R.Replace "BSP"]                  (maximize $ smartBorders $ fullscreenFocus $ windowNavigation $ myGap $ emptyBSP)
+        ||| renamed [R.Replace "ThreeCol Mid (1)"] (maximize $ smartBorders $ fullscreenFocus $ windowNavigation $ myGap $ ThreeColMid 1 (3/100) (1/2))
+        ||| renamed [R.Replace "ThreeCol Mid (2)"] (maximize $ smartBorders $ fullscreenFocus $ windowNavigation $ myGap $ ThreeColMid 2 (3/100) (1/2))
+	||| renamed [R.Replace "Grid"]             (maximize $ smartBorders $ fullscreenFocus $ windowNavigation $ myGap $ Grid)
+	||| renamed [R.Replace "TwoPane"]          (maximize $ smartBorders $ fullscreenFocus $ windowNavigation $ myGap $ TwoPane (3/100) (1/2))
+	||| renamed [R.Replace "ThreeCol (1)"]     (maximize $ smartBorders $ fullscreenFocus $ windowNavigation $ myGap $ ThreeCol 1 (3/100) (1/2))
+	||| renamed [R.Replace "ThreeCol (2)"]     (maximize $ smartBorders $ fullscreenFocus $ windowNavigation $ myGap $ ThreeCol 2 (3/100) (1/2))
 	||| tabbedRight shrinkText def
 	)
 
-myLayoutHook = myLayouts
-
-
 myLemonbarPP = def {ppCurrent = wrap "%{B#d33682}" "%{B-}" 
                    , ppWsSep = ""
 		   , ppHidden = wrap "%{B#268bd2}" "%{B-}"
@@ -394,7 +380,8 @@ myLemonbarPP = def {ppCurrent = wrap "%{B#d33682}" "%{B-}"
                    }
 
 main = do
-  notXMobar <- spawnPipe "lemonbar -b  -g 800x21+0+0  -B '#171520' -F '#ffffff' -f 'Source Han Sans JP:size=10' -o -3 -f 'RobotoMono Nerd Font:style=Regular:size=15' -f -n 'notXMobar' -o 0"
+  notXMobar <- spawnPipe "lemonbar -b  -g 1366x21+0+0  -B '#130F23' -F '#ffffff' -f 'Source Han Sans JP:size=10' -o -3 -f 'RobotoMono Nerd Font:style=Regular:size=15' -f -n 'notXMobar' -o 0"
+  statusBar <- spawnPipe "/home/zt/.xmonad/baraction | lemonbar -g 1366x21+0+0  -B '#130F23' -F '#ffffff' -o -3 -f 'Source Han Sans JP:size=10' -o 0 -f 'RobotoMono Nerd Font:style=Regular:size=15'"
   xmonad $ docks def
     {
   terminal           = myTerminal,