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

Set conky gap for all monitored hosts

Browse Source
This commit is contained in:
Trey Blancher 2021-06-18 19:37:14 -04:00
parent 16332be629
commit bcc0c1bcf9
1 changed files with 35 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
xmonad.hs
View File

@ -28,6 +28,7 @@ import XMonad.Hooks.SetWMName
-- Layout -- Layout
import XMonad.Layout import XMonad.Layout
import XMonad.Layout.Gaps
import XMonad.Layout.IM as IM -- GIMP stuff import XMonad.Layout.IM as IM -- GIMP stuff
import qualified XMonad.Layout.IndependentScreens as IS import qualified XMonad.Layout.IndependentScreens as IS
import XMonad.Layout.LayoutHints (layoutHints) import XMonad.Layout.LayoutHints (layoutHints)
@ -90,15 +91,35 @@ getTopBar sc = if sc == 1
then "dzen2 -dock -p -x 0 -ta l -w 1024 -e 'onstart:lower;button2=togglehide;sigusr1=togglehide'" 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'" else "dzen2 -dock -p -x 1920 -ta l -w 1024 -e 'onstart:lower;button2=togglehide;sigusr1=togglehide'"
getTennessineBar :: Int -> String getBarbicanBar :: Int -> String
getTennessineBar sc = if sc == 1 getBarbicanBar sc = if sc == 1
then "ssh tennessine 'conky' | dzen2 -dock -p -x 0 -y -1 -ta l -w 1920 -e 'sigusr1=togglehide'" then "ssh barbican 'conky' | dzen2 -dock -p -x 0 -y -108 -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'" else "ssh barbican 'conky' | dzen2 -dock -p -x 1920 -y -108 -ta l -w 1920 -e 'sigusr1=togglehide'"
getFerrumBar :: Int -> String getFerrumBar :: Int -> String
getFerrumBar sc = if sc == 1 getFerrumBar sc = if sc == 1
then "conky | dzen2 -dock -p -x 0 -y -38 -ta l -w 1920 -e 'sigusr1=togglehide'" then "conky | dzen2 -dock -p -x 0 -y -90 -ta l -w 1920 -e 'sigusr1=togglehide'"
else "conky | dzen2 -dock -p -x 1920 -y -38 -ta l -w 1920 -e 'sigusr1=togglehide'" else "conky | dzen2 -dock -p -x 1920 -y -90 -ta l -w 1920 -e 'sigusr1=togglehide'"
getGammachunkBar :: Int -> String
getGammachunkBar sc = if sc == 1
then "ssh gammachunk 'conky' | dzen2 -dock -p -x 0 -y -72 -ta l -w 1920 -e 'sigusr1=togglehide'"
else "ssh gammachunk 'conky' | dzen2 -dock -p -x 1920 -y -72 -ta l -w 1920 -e 'sigusr1=togglehide'"
getOsmiumBar :: Int -> String
getOsmiumBar sc = if sc == 1
then "ssh osmium 'conky' | dzen2 -dock -p -x 0 -y -54 -ta l -w 1920 -e 'sigusr1=togglehide'"
else "ssh osmium 'conky' | dzen2 -dock -p -x 1920 -y -54 -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 -36 -ta l -w 1920 -e 'sigusr1=togglehide'"
else "ssh tennessine 'conky' | dzen2 -dock -p -x 1920 -y -36 -ta l -w 1920 -e 'sigusr1=togglehide'"
getBlancherBar :: Int -> String
getBlancherBar sc = if sc == 1
then "ssh blancher.net 'conky' | dzen2 -dock -p -x 0 -y -1 -ta l -w 1920 -e 'sigusr1=togglehide'"
else "ssh blancher.net 'conky' | dzen2 -dock -p -x 1920 -y -1 -ta l -w 1920 -e 'sigusr1=togglehide'"
toggleHomeScreens :: X () toggleHomeScreens :: X ()
toggleHomeScreens = do toggleHomeScreens = do
@ -250,15 +271,19 @@ launcher = makeLauncher "-x" "eval" "\"exec " "\""
main = do main = do
sc <- IS.countScreens sc <- IS.countScreens
dzenTopBar <- spawnPipe (getTopBar sc) dzenTopBar <- spawnPipe (getTopBar sc)
dzenTennessineBar <- spawnPipe (getTennessineBar sc) dzenBarbicanBar <- spawnPipe (getBarbicanBar sc)
dzenFerrumBar <- spawnPipe (getFerrumBar sc) dzenFerrumBar <- spawnPipe (getFerrumBar sc)
dzenGammachunkBar <- spawnPipe (getGammachunkBar sc)
dzenOsmiumBar <- spawnPipe (getOsmiumBar sc)
dzenTennessineBar <- spawnPipe (getTennessineBar sc)
dzenBlancherBar <- spawnPipe (getBlancherBar sc)
xmonad $ docks $ ewmh $ desktopConfig { xmonad $ docks $ ewmh $ desktopConfig {
workspaces = ["shell","vivaldi","pindrop","kofc","VM"] workspaces = ["shell","vivaldi","pindrop","kofc","VM"]
, terminal = myTerminal , terminal = myTerminal
, focusFollowsMouse = True , focusFollowsMouse = True
, manageHook = manageDocks <+> myManageHook <+> manageHook desktopConfig , manageHook = manageDocks <+> myManageHook <+> manageHook desktopConfig
, handleEventHook = docksEventHook <+> handleEventHook desktopConfig , handleEventHook = docksEventHook <+> handleEventHook desktopConfig
, layoutHook = avoidStruts $ layoutH , layoutHook = avoidStruts $ gaps [(D,90)] $ layoutH
, logHook = myLogHook dzenTopBar >> fadeHook >> updatePointer (0.5, 0.5) (0, 0) , logHook = myLogHook dzenTopBar >> fadeHook >> updatePointer (0.5, 0.5) (0, 0)
, borderWidth = 1 , borderWidth = 1
, normalBorderColor = "#333333" , normalBorderColor = "#333333"
@ -389,7 +414,8 @@ myKeys = [
, ((winKey , xK_b), do , ((winKey , xK_b), do
spawnHere "pkill -USR1 dzen2" spawnHere "pkill -USR1 dzen2"
spawnHere "pkill trayer" spawnHere "pkill trayer"
sendMessage $ ToggleStrut U) sendMessage $ ToggleStruts
sendMessage $ ToggleGaps)
, ((lAlt , xK_g), spawnHere "~/bin/google_selection.sh") , ((lAlt , xK_g), spawnHere "~/bin/google_selection.sh")
--, ((winKey , xK_g), ifWindows (className =? "Google-chrome") (mapM_ focus) (spawnHere "google-chrome")) --, ((winKey , xK_g), ifWindows (className =? "Google-chrome") (mapM_ focus) (spawnHere "google-chrome"))
, ((winKey , xK_g), ifWindows (className =? "Google-chrome") (mapM_ focus) (spawnHere "google-chrome-stable")) , ((winKey , xK_g), ifWindows (className =? "Google-chrome") (mapM_ focus) (spawnHere "google-chrome-stable"))