No borders in full screen

672cf489efa7ed7b540c14aa3e1f97b80199da2b
Alexis Sellier committed ago 1 parent 7ffbec50
.xmonad/xmonad.hs +2 -1
4 4 
import XMonad.Hooks.ManageDocks
5 5 
import XMonad.Util.Run
6 6 
import XMonad.Layout.Spacing
7 7 
import XMonad.StackSet
8 8 
import XMonad.ManageHook
9 + 
import XMonad.Layout.NoBorders
9 10 

    

  
    

      10
      11
       
      
import System.Directory

    

  
    

      11
      12
       
      
import System.IO

    

  
    

      12
      13
       
      
import Text.Printf

    

  
    

      13
      14
       
      
import Data.Map (Map)

    

  
  
  

  
  

  

  
  
    

      27
      28
       
      
        , normalBorderColor  = "#1F1F1F"

    

  
    

      28
      29
       
      
        , borderWidth        = 2

    

  
    

      29
      30
       
      
        , handleEventHook    = mconcat [docksEventHook, handleEventHook def]

    

  
    

      30
      31
       
      
        , keys               = myKeys home

    

  
    

      31
      32
       
      
        , logHook            = dynamicLogWithPP (barConfig xmproc)

    

  
    

      32
      
      -
      
        , layoutHook         = smartSpacing 8 $ avoidStruts $ layoutHook def

    

  
    

      
      33
      +
      
        , layoutHook         = avoidStruts $ smartSpacing 8 $ smartBorders $ layoutHook def

    

  
    

      33
      34
       
      
        , manageHook         = manageDocks <+> manageHook def

    

  
    

      34
      35
       
      
        , startupHook        = startup

    

  
    

      35
      36
       
      
        }

    

  
    

      36
      37
       
      

    

  
    

      37
      38
       
      
startup :: X ()