Add spacing to xmonad views

c5286f1c7cc9470b0ce3066d40524e5606d441a1
Alexis Sellier committed ago 1 parent c83903f8
.xmonad/xmonad.hs +3 -2
1 1 
import XMonad
2 2 
import XMonad.Config.Desktop
3 3 
import XMonad.Hooks.DynamicLog
4 4 
import XMonad.Hooks.ManageDocks
5 5 
import XMonad.Util.Run
6 + 
import XMonad.Layout.Spacing
6 7 

    

  
    

      7
      8
       
      
import System.Directory

    

  
    

      8
      9
       
      
import System.IO

    

  
    

      9
      10
       
      
import Text.Printf

    

  
    

      10
      11
       
      
import Data.Map (Map)

    

  
  
  

  
  

  

  
  
    

      14
      15
       
      
main = do

    

  
    

      15
      16
       
      
    home <- getHomeDirectory

    

  
    

      16
      17
       
      
    xmproc <- spawnPipe "xmobar"

    

  
    

      17
      18
       
      
    xmonad $ desktopConfig

    

  
    

      18
      19
       
      
        { terminal           = "st dvtm -M"

    

  
    

      19
      
      -
      
        , focusedBorderColor = "#666666"

    

  
    

      
      20
      +
      
        , focusedBorderColor = "#555"

    

  
    

      20
      21
       
      
        , normalBorderColor  = "black"

    

  
    

      21
      22
       
      
        , borderWidth        = 2

    

  
    

      22
      23
       
      
        , handleEventHook    = mconcat [docksEventHook, handleEventHook def]

    

  
    

      23
      24
       
      
        , keys               = myKeys home

    

  
    

      24
      25
       
      
        , logHook            = dynamicLogWithPP (barConfig xmproc)

    

  
    

      25
      
      -
      
        , layoutHook         = avoidStruts $ layoutHook def

    

  
    

      
      26
      +
      
        , layoutHook         = smartSpacing 8 $ avoidStruts $ layoutHook def

    

  
    

      26
      27
       
      
        , manageHook         = manageDocks <+> manageHook def

    

  
    

      27
      28
       
      
        }

    

  
    

      28
      29
       
      

    

  
    

      29
      30
       
      
barConfig :: Handle -> PP

    

  
    

      30
      31
       
      
barConfig h = xmobarPP