diff --git a/xmonad.hs b/xmonad.hs index 4a796e3..fb9f7d4 100755 --- a/xmonad.hs +++ b/xmonad.hs @@ -85,14 +85,20 @@ instance ExtensionClass RightScreen where -- End DynamicWorkspaces code (keybindings are below) -- -getCenterBar :: Int -> String -getCenterBar sc = if sc == 1 +getTopBar :: Int -> String +getTopBar sc = if sc == 1 then "dzen2 -dock -p -x 0 -ta l -w 1024 -e 'onstart:lower;button2=togglehide;sigusr1=togglehide'" else "dzen2 -dock -p -x 1920 -ta l -w 1024 -e 'onstart:lower;button2=togglehide;sigusr1=togglehide'" -getBottomBar :: Int -> String -getBottomBar sc = if sc == 1 - then "conky | dzen2 -dock -p -x 0 -y 1080 -ta l -w 1920 -e 'sigusr1=togglehide'" - else "conky | dzen2 -dock -p -x 1920 -y 1080 -ta l -w 1920 -e 'sigusr1=togglehide'" + +getTennessineBar :: Int -> String +getTennessineBar sc = if sc == 1 + then "ssh tennessine 'conky' | dzen2 -dock -p -x 0 -y -1 -ta l -w 1920 -e 'sigusr1=togglehide'" + else "ssh tennessine 'conky' | dzen2 -dock -p -x 1920 -y -1 -ta l -w 1920 -e 'sigusr1=togglehide'" + +getFerrumBar :: Int -> String +getFerrumBar sc = if sc == 1 + then "conky | dzen2 -dock -p -x 0 -y -38 -ta l -w 1920 -e 'sigusr1=togglehide'" + else "conky | dzen2 -dock -p -x 1920 -y -38 -ta l -w 1920 -e 'sigusr1=togglehide'" toggleHomeScreens :: X () toggleHomeScreens = do @@ -229,7 +235,7 @@ myTheme :: Theme myTheme = defaultTheme { fontName = myFont } -myFont = "xft:xos4 Terminus:style=Regular:Pixelsize=12" +myFont = "xft:Terminus:style=Regular:Pixelsize=12" fadeHook = fadeInactiveLogHook fadeAmount where fadeAmount = 0.8 @@ -243,8 +249,9 @@ launcher = makeLauncher "-x" "eval" "\"exec " "\"" main = do sc <- IS.countScreens - dzenCenterBar <- spawnPipe (getCenterBar sc) - dzenBottomBar <- spawnPipe (getBottomBar sc) + dzenTopBar <- spawnPipe (getTopBar sc) + dzenTennessineBar <- spawnPipe (getTennessineBar sc) + dzenFerrumBar <- spawnPipe (getFerrumBar sc) xmonad $ docks $ ewmh $ desktopConfig { workspaces = ["shell","vivaldi","pindrop","kofc","VM"] , terminal = myTerminal @@ -252,7 +259,7 @@ main = do , manageHook = manageDocks <+> myManageHook <+> manageHook desktopConfig , handleEventHook = docksEventHook <+> handleEventHook desktopConfig , layoutHook = avoidStruts $ layoutH - , logHook = myLogHook dzenCenterBar >> fadeHook >> updatePointer (0.5, 0.5) (0, 0) + , logHook = myLogHook dzenTopBar >> fadeHook >> updatePointer (0.5, 0.5) (0, 0) , borderWidth = 1 , normalBorderColor = "#333333" , focusedBorderColor = "#CCCC00"