Xmonad/xmobar changes

11aca26002211221e9cd3ace65d8cc81c47f4087
Alexis Sellier committed ago 1 parent df9504cf
.xmobarrc +1 -1
4 4 
       font = "xft:Inconsolata:size=14,monospace:size=12"
5 5 
     , borderColor = "black"
6 6 
     , border = TopB
7 7 
     , bgColor = "#000000"
8 8 
     , fgColor = "#777777"
9 - 
     , position = TopW L 100
9 + 
     , position = Top
10 10 
     , commands = [ Run DynNetwork [ "--template", "<dev> <tx> <rx>", "-w", "7", "-S", "True" ] 10
11 11 
                  , Run MultiCpu   [ "--template", "<total0>% <total1>% <total2>% <total3>%", "-w", "3" ] 50
12 12 
                  , Run Memory     [ "--template", "<used>/<available> MB" ] 50
13 13 
                  , Run Date       "%b %d %Y %H:%M" "date" 10
14 14 
                  , Run DiskU      [("/", "<used>/<size>"), ("/home", "<used>/<size>")] [] 20
.xmonad/xmonad.hs +4 -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.Layout.ThreeColumns
10 11 
import XMonad.Hooks.EwmhDesktops
11 12 
import XMonad.Actions.CycleWS
12 13 
import XMonad.Hooks.UrgencyHook
13 14 
import XMonad.Hooks.FloatNext
14 15 

    

  
  
  

  
  

  

  
  
    

      32
      33
       
      
        , normalBorderColor  = "#1F1F1F"

    

  
    

      33
      34
       
      
        , borderWidth        = 1

    

  
    

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

    

  
    

      35
      36
       
      
        , keys               = myKeys home

    

  
    

      36
      37
       
      
        , logHook            = dynamicLogWithPP (barConfig xmproc)

    

  
    

      37
      
      -
      
        , layoutHook         = avoidStruts $ smartBorders $ layoutHook def

    

  
    

      
      38
      +
      
        , layoutHook         = avoidStruts $ smartBorders $ myLayout

    

  
    

      38
      39
       
      
        , manageHook         = floatNextHook <+> manageDocks <+> manageHook def

    

  
    

      39
      40
       
      
        , startupHook        = startup

    

  
    

      40
      41
       
      
        }

    

  
    

      
      42
      +
      
  where

    

  
    

      
      43
      +
      
    myLayout = layoutHook def ||| ThreeCol 1 (3/100) (1/2) ||| ThreeColMid 1 (3/100) (1/2)

    

  
    

      41
      44
       
      

    

  
    

      42
      45
       
      
startup :: X ()

    

  
    

      43
      46
       
      
startup = do

    

  
    

      44
      47
       
      
    -- Open a terminal if none are open.

    

  
    

      45
      48
       
      
    withWindowSet $ \wins -> do