Give hints for screen recording

fd9a4e8ec8ba0ebffce180a2c81ef69f7ee69a03
Alexis Sellier committed ago 1 parent c3018158
.xmonad/xmonad.hs +2 -1
5 5 
import XMonad.Util.Run
6 6 
import XMonad.Layout.Spacing
7 7 
import XMonad.StackSet
8 8 
import XMonad.ManageHook
9 9 
import XMonad.Layout.NoBorders
10 + 
import XMonad.Hooks.EwmhDesktops
10 11 

    

  
    

      11
      12
       
      
import System.Directory

    

  
    

      12
      13
       
      
import System.IO

    

  
    

      13
      14
       
      
import Text.Printf

    

  
    

      14
      15
       
      
import Data.Map (Map)

    

  
  
  

  
  

  

  
  
    

      20
      21
       
      

    

  
    

      21
      22
       
      
main :: IO ()

    

  
    

      22
      23
       
      
main = do

    

  
    

      23
      24
       
      
    home <- getHomeDirectory

    

  
    

      24
      25
       
      
    xmproc <- spawnPipe "xmobar"

    

  
    

      25
      
      -
      
    xmonad $ desktopConfig

    

  
    

      
      26
      +
      
    xmonad $ ewmh $ desktopConfig

    

  
    

      26
      27
       
      
        { terminal           = termName

    

  
    

      27
      28
       
      
        , focusedBorderColor = "#555"

    

  
    

      28
      29
       
      
        , normalBorderColor  = "#1F1F1F"

    

  
    

      29
      30
       
      
        , borderWidth        = 2

    

  
    

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