Xmonad configuration updates

17c7fd90b05fb249f135963a57992b8d182d6ada
Alexis Sellier committed ago 1 parent f857b25b
.xmonad/xmonad.hs +7 -3
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 6 
import XMonad.Layout.Spacing
7 - 
import XMonad.StackSet
7 + 
import XMonad.StackSet hiding (workspaces)
8 8 
import XMonad.ManageHook
9 9 
import XMonad.Layout.NoBorders
10 10 
import XMonad.Layout.ThreeColumns
11 11 
import XMonad.Hooks.EwmhDesktops
12 12 
import XMonad.Actions.CycleWS
19 19 
import Data.Map (Map)
20 20 
import qualified Data.Map as Map
21 21 
import Control.Monad
22 22 

    

  
    

      23
      23
       
      
termName :: FilePath

    

  
    

      24
      
      -
      
termName = "st"

    

  
    

      
      24
      +
      
termName = "urxvt"

    

  
    

      25
      25
       
      

    

  
    

      26
      26
       
      
main :: IO ()

    

  
    

      27
      27
       
      
main = do

    

  
    

      28
      28
       
      
    home <- getHomeDirectory

    

  
    

      29
      29
       
      
    xmproc <- spawnPipe "xmobar"

    

  
    

      30
      30
       
      
    xmonad $ withUrgencyHook NoUrgencyHook $ ewmh $ desktopConfig

    

  
    

      31
      31
       
      
        { terminal           = termName

    

  
    

      32
      
      -
      
        , focusedBorderColor = "#555"

    

  
    

      
      32
      +
      
        , workspaces         = ["α", "β", "γ", "δ", "φ", "σ", "η", "θ", "λ", "ω"]

    

  
    

      
      33
      +
      
        , focusedBorderColor = "#A00"

    

  
    

      33
      34
       
      
        , normalBorderColor  = "#1F1F1F"

    

  
    

      34
      35
       
      
        , borderWidth        = 1

    

  
    

      35
      36
       
      
        , handleEventHook    = mconcat [docksEventHook, handleEventHook def]

    

  
    

      36
      37
       
      
        , keys               = myKeys home

    

  
    

      37
      38
       
      
        , logHook            = dynamicLogWithPP (barConfig xmproc)

    

  
  
  

  
  

  

  
  
    

      86
      87
       
      
       , ((modMask, xK_p),                      rofi)

    

  
    

      87
      88
       
      
       , ((modMask, xK_Tab),                    toggleWS)

    

  
    

      88
      89
       
      
       , ((modMask .|. controlMask, xK_Return), toggleFloatNext >> (spawn $ XMonad.terminal conf))

    

  
    

      89
      90
       
      
       , ((noModMask, xK_Print),                spawn $ printf "scrot -u -e 'mv $f %s/screenshots'" home)

    

  
    

      90
      91
       
      
       , ((modMask, xK_Print),                  safeSpawn "screenshot-region" [])

    

  
    

      
      92
      +
      
       , ((modMask, xK_0),                      windows $ greedyView "ω")

    

  
    

      
      93
      +
      
       , ((modMask, xK_Left),                   prevWS)

    

  
    

      
      94
      +
      
       , ((modMask, xK_Right),                  nextWS)

    

  
    

      91
      95
       
      
       , ((noModMask, 0x1008ff02),              safeSpawn "xbacklight" ["-inc", "10"]) -- XF86MonBrightnessUp

    

  
    

      92
      96
       
      
       , ((noModMask, 0x1008ff03),              safeSpawn "xbacklight" ["-dec", "10"]) -- XF86MonBrightnessDown

    

  
    

      93
      97
       
      
       ]

    

  
    

      94
      98
       
      
    dmenu :: X ()

    

  
    

      95
      99
       
      
    dmenu = safeSpawn