Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Jul 17th, 2012  |  syntax: None  |  size: 1.96 KB  |  hits: 15  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. import XMonad
  2. import XMonad.Core
  3. import XMonad.Config.Gnome
  4. import XMonad.Util.Dmenu
  5. import XMonad.Layout.NoBorders
  6. import qualified XMonad.StackSet as W
  7. import qualified Data.Map        as M
  8. import XMonad.Hooks.ManageDocks
  9.  
  10. myManageHook = composeAll
  11.     [ className =? "MPlayer"          --> doFloat
  12.     , title =? "GNU Image Manipulation Program" --> doFloat
  13.     , title =? "GIMP"                  --> doFloat
  14.     , className =? "Do"               --> doIgnore
  15.     , className =? "Gnome-Screenshot" --> doIgnore
  16.     , className =? "Tilda"            --> doFloat
  17.     , className =? "feh"              --> doFloat
  18.     , className =? "Pidgin"           --> doFloat
  19.     , className =? "Skype"            --> doFloat
  20.     , className =? "Amarokapp"        --> doFloat
  21.     , title     =? "Save a Bookmark"  --> doFloat
  22.     , className =? "Download"         --> doFloat
  23.     , className =? "Extension"        --> doFloat
  24.     , className =? "Qalculate-gtk"    --> doFloat
  25.     , className =? "Terminator"       --> doF (W.shift "terms" )
  26.     , className =? "Prism"            --> doF (W.shift "prism" )
  27.     , className =? "Firefox"          --> doF (W.shift "web" )
  28.     -- main is the desktop where i keep chat, twitter and my tomboy todo list
  29.     , className =? "Pidgin"           --> doF (W.shift "main" )
  30.     , title =?     "Start Here"       --> doF (W.shift "main" )
  31.     , title =?     "irssi"            --> doF (W.shift "main" )
  32.     , className =? "Twhirl"           --> doF (W.shift "main" )
  33.     , className =? "Gedit"            --> doF (W.shift "code" )
  34.     , title =?     "Brood War"        --> doIgnore
  35.     , resource  =? "desktop_window"   --> doIgnore
  36.     , resource  =? "kdeskt6op"        --> doIgnore ]
  37.                 <+> manageDocks
  38.  
  39. main = xmonad gnomeConfig {
  40.           modMask = mod4Mask
  41.           , terminal = "terminator"
  42.           , focusFollowsMouse = True
  43.           , layoutHook  = smartBorders (layoutHook gnomeConfig)
  44.           , borderWidth = 1
  45.           , manageHook  = myManageHook
  46.     }
create a new version of this paste RAW Paste Data