trey
/
XMonad
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Added one per host conky dzen2 bar

This commit is contained in:
Trey Blancher 2021-05-14 19:10:40 -04:00
parent 46ef4013fb
commit 16332be629
1 changed files with 17 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
xmonad.hs
View File

@ -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"