xmonad.hs

------------------------------------------------------------------------------
-- shunsk's xmonad.hs file for 0.17.0
-- https://ok-xmonad.blogspot.com
--
-- base config with polybar 
-- v001
------------------------------------------------------------------------------
{-# LANGUAGE NoMonomorphismRestriction #-}

import XMonad
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.StatusBar
import XMonad.Hooks.StatusBar.PP

---------------------------------------------------------------
-- MAIN
---------------------------------------------------------------

main = xmonad
     $ withSB myPolybarConf
     $ ewmh
     $ docks
     $ def  { terminal           = "xterm"
            , modMask            = mod4Mask
            , layoutHook         = avoidStruts (layoutHook def)
            }

---------------------------------------------------------------
-- Polybar Setting
---------------------------------------------------------------

myPolybarConf
  = def { sbLogHook 
            = xmonadPropLog 
                =<< dynamicLogString polybarPPdef
        , sbStartupHook = spawn "~/.config/polybar/launch.sh --blocks"
        , sbCleanupHook = spawn "killall polybar"
        }

polybarPPdef 
  = def { ppCurrent 
            = polybarFgColor "#FF9F1C" . wrap "[" "]"
        , ppTitle = const ""
        }

polybarFgColor :: String -> String -> String
polybarFgColor fore_color contents
  = wrap ("%{F" <> fore_color <> "} ") " %{F-}"  contents 

polybarBgColor :: String -> String -> String
polybarBgColor back_color contents
  = wrap ("%{B" <> back_color <> "} ") " %{B-}"  contents