[xmonad] Re: Call for xmonad.hs

[Mauricio]

 > (...)
> 1) Upload your config
> 2) If you've uploaded your config, update it!
> 3) If you use someone else's config (...)
> 4) If you don't want to do any of 1-3, perhaps (...)

Since I was afraid of messing the wiki, here is
mine.

Best,
Maurício

----------------------------

module  Main  (  main )  where  {  import  qualified Data.Map  ;  import
System.Cmd  ;  import  XMonad  ; import  XMonad.Layout.Tabbed  ;  import
XMonad.StackSet ;

  comandoDoDmenu = "exe=`dmenu_path | dmenu` && eval \"exec $exe\"" ;

  executarNaInicialização = "\
  \ xmodmap -e \"keycode 113 = 0xffea 0xffe8\" ; \
  \ xmodmap -e \"keycode 117 = 0xffe3\" ; \
  \ xmodmap -e \"keycode 106 = 0xffe4\" ; \
  \ xmodmap -e \"remove lock = Caps_Lock\" ; \
  \ xmodmap -e \"add mod1 = Alt_R\" ; \
  \ xmodmap -e \"add mod1 = Meta_R\" ; \
  \ xmodmap -e \"remove mod5 = Alt_R\" ; \
  \ xset -r \
  \" ;

  teclas  conf   @  (   XConfig  {  XMonad.modMask   =  modMask  }   )  =
  Data.Map.fromList $  [ ( ( modMask  , xK_x ) ,  spawn $ XMonad.terminal
  conf ) , (  ( modMask , xK_d ) , spawn comandoDoDmenu  ) , ( (modMask ,
  xK_k ) , kill)  , ( ( modMask , xK_space ) , windows  focusDown ) , ( (
  modMask , xK_t ) , withFocused $ windows . sink) ] ;

  main  =  do {  system  executarNaInicialização  ; xmonad  defaultConfig
  {modMask =  mod4Mask , XMonad.workspaces = ["1"]  , focusFollowsMouse =
  False , layoutHook = tabbed shrinkText defaultTConf , keys = teclas } }

}

----------------------------