Update xmonad config
							parent
							
								
									a68cb91717
								
							
						
					
					
						commit
						82b6187cd6
					
				| 
						 | 
					@ -32,7 +32,7 @@ import XMonad.Util.Ungrab
 | 
				
			||||||
myXmobarPP :: PP
 | 
					myXmobarPP :: PP
 | 
				
			||||||
myXmobarPP =
 | 
					myXmobarPP =
 | 
				
			||||||
  def
 | 
					  def
 | 
				
			||||||
    { ppSep = tertiaryColor " | ",
 | 
					    { ppSep = tertiaryColor "  ",
 | 
				
			||||||
      ppCurrent = brackitify,
 | 
					      ppCurrent = brackitify,
 | 
				
			||||||
      ppHidden = secondaryColor,
 | 
					      ppHidden = secondaryColor,
 | 
				
			||||||
      ppHiddenNoWindows = tertiaryColor,
 | 
					      ppHiddenNoWindows = tertiaryColor,
 | 
				
			||||||
| 
						 | 
					@ -52,8 +52,8 @@ myXmobarPP =
 | 
				
			||||||
      ppExtras = [logTitles formatFocused formatUnfocused]
 | 
					      ppExtras = [logTitles formatFocused formatUnfocused]
 | 
				
			||||||
    }
 | 
					    }
 | 
				
			||||||
  where
 | 
					  where
 | 
				
			||||||
    brackitify = wrap "[" "]"
 | 
					    brackitify = wrap "〈" "〉"
 | 
				
			||||||
    formatFocused = secondaryColor . brackitify . ppWindow
 | 
					    formatFocused = secondaryColor . ppWindow
 | 
				
			||||||
    formatUnfocused = tertiaryColor . ppWindow
 | 
					    formatUnfocused = tertiaryColor . ppWindow
 | 
				
			||||||
 | 
					
 | 
				
			||||||
    ppWindow = xmobarRaw . (\w -> if null w then "Untitled" else w) . shorten 16
 | 
					    ppWindow = xmobarRaw . (\w -> if null w then "Untitled" else w) . shorten 16
 | 
				
			||||||
| 
						 | 
					@ -83,16 +83,17 @@ myManageHook =
 | 
				
			||||||
 | 
					
 | 
				
			||||||
-- layoutHook
 | 
					-- layoutHook
 | 
				
			||||||
myLayoutHook =
 | 
					myLayoutHook =
 | 
				
			||||||
  smartBorders $
 | 
					    -- smartBorders $
 | 
				
			||||||
    -- Column layouts
 | 
					    -- Tiled layouts
 | 
				
			||||||
    threeCol
 | 
					          tiled
 | 
				
			||||||
      ||| threeColMid
 | 
					      -- --   Note: magnifier is off by default
 | 
				
			||||||
      -- Tiled layouts
 | 
					      -- --   (controllable usingarrow keys)
 | 
				
			||||||
      --   Note: magnifier is off by default
 | 
					      -- ||| magnifiercz magnificationFactorH tiled
 | 
				
			||||||
      --   (controllable usingarrow keys)
 | 
					      -- ||| magnifiercz magnificationFactorV (Mirror tiled)
 | 
				
			||||||
      ||| magnifiercz magnificationFactorH tiled
 | 
					 | 
				
			||||||
      ||| magnifiercz magnificationFactorV (Mirror tiled)
 | 
					 | 
				
			||||||
      -- Single window / monocle layout
 | 
					      -- Single window / monocle layout
 | 
				
			||||||
 | 
					    -- Column layouts
 | 
				
			||||||
 | 
					      -- ||| threeColMid
 | 
				
			||||||
 | 
					      -- Monocle layouts
 | 
				
			||||||
      ||| Full
 | 
					      ||| Full
 | 
				
			||||||
  where
 | 
					  where
 | 
				
			||||||
    magnificationFactorV = 1.384
 | 
					    magnificationFactorV = 1.384
 | 
				
			||||||
| 
						 | 
					@ -119,8 +120,8 @@ myConfig =
 | 
				
			||||||
          "etc"
 | 
					          "etc"
 | 
				
			||||||
        ],
 | 
					        ],
 | 
				
			||||||
      -- Styling
 | 
					      -- Styling
 | 
				
			||||||
      focusedBorderColor = "#888",
 | 
					      focusedBorderColor = "#000",
 | 
				
			||||||
      normalBorderColor = "#000",
 | 
					      normalBorderColor = "#0000",
 | 
				
			||||||
      borderWidth = 2,
 | 
					      borderWidth = 2,
 | 
				
			||||||
      -- Hooks
 | 
					      -- Hooks
 | 
				
			||||||
      manageHook = myManageHook <+> manageHook def,
 | 
					      manageHook = myManageHook <+> manageHook def,
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue