Add urgency hook to xmonad

e60341d99f14bd5eedf3beb4d3d45935ddbd751e
Alexis Sellier committed ago 1 parent 579961ba
.xmonad/xmonad.hs +5 -3
7 7 
import XMonad.StackSet
8 8 
import XMonad.ManageHook
9 9 
import XMonad.Layout.NoBorders
10 10 
import XMonad.Hooks.EwmhDesktops
11 11 
import XMonad.Actions.CycleWS
12 + 
import XMonad.Hooks.UrgencyHook
12 13 

    

  
    

      13
      14
       
      
import System.Directory

    

  
    

      14
      15
       
      
import System.IO

    

  
    

      15
      16
       
      
import Text.Printf

    

  
    

      16
      17
       
      
import Data.Map (Map)

    

  
  
  

  
  

  

  
  
    

      22
      23
       
      

    

  
    

      23
      24
       
      
main :: IO ()

    

  
    

      24
      25
       
      
main = do

    

  
    

      25
      26
       
      
    home <- getHomeDirectory

    

  
    

      26
      27
       
      
    xmproc <- spawnPipe "xmobar"

    

  
    

      27
      
      -
      
    xmonad $ ewmh $ desktopConfig

    

  
    

      
      28
      +
      
    xmonad $ withUrgencyHook NoUrgencyHook $ ewmh $ desktopConfig

    

  
    

      28
      29
       
      
        { terminal           = termName

    

  
    

      29
      30
       
      
        , focusedBorderColor = "#555"

    

  
    

      30
      31
       
      
        , normalBorderColor  = "#1F1F1F"

    

  
    

      31
      32
       
      
        , borderWidth        = 2

    

  
    

      32
      33
       
      
        , handleEventHook    = mconcat [docksEventHook, handleEventHook def]

    

  
  
  

  
  

  

  
  
    

      48
      49
       
      
barConfig :: Handle -> PP

    

  
    

      49
      50
       
      
barConfig h = xmobarPP

    

  
    

      50
      51
       
      
    { ppCurrent         = xmobarColor white   black  . wrap " " " "

    

  
    

      51
      52
       
      
    , ppHiddenNoWindows = xmobarColor grey    black  . wrap " " " "

    

  
    

      52
      53
       
      
    , ppHidden          = xmobarColor light   dark   . wrap " " " "

    

  
    

      53
      
      -
      
    , ppUrgent          = xmobarColor black   red

    

  
    

      
      54
      +
      
    , ppUrgent          = xmobarColor black   red    . wrap " " " "

    

  
    

      
      55
      +
      
    , ppTitle           = xmobarColor red     black

    

  
    

      54
      56
       
      
    , ppLayout          = const ""

    

  
    

      55
      57
       
      
    , ppWsSep           = ""

    

  
    

      56
      58
       
      
    , ppSep             = "  "

    

  
    

      57
      59
       
      
    , ppOutput          = hPutStrLn h

    

  
    

      58
      60
       
      
    }

    

  
    

      59
      61
       
      
  where

    

  
    

      60
      
      -
      
    red   = "red"

    

  
    

      
      62
      +
      
    red   = "#AA0000"

    

  
    

      61
      63
       
      
    white = "white"

    

  
    

      62
      64
       
      
    black = "black"

    

  
    

      63
      65
       
      
    light = "#888888"

    

  
    

      64
      66
       
      
    dark  = "#333333"

    

  
    

      65
      67
       
      
    grey  = "#555555"