XMonad som fönsterhanterare

#!/bin/sh
 
# Load your X Resource defaults, if you have them...
 
if [ -f $HOME/.Xdefaults ]; then
  xrdb -merge $HOME/.Xdefaults
fi
 
#Hack to make OpenOffice dialogs work with Xmonad
export SAL_USE_VCLPLUGIN=gen
 
# Run dropbox
dropbox start&
 
#Start compositing manager. Light dropshadows and quick fades.
xcompmgr -cCfF -o0.40 -D3&
 
#Start metadata search tool
tracker-control -s&
 
#Automount removable media
udiskie&

URxvt.foreground: white
URxvt.depth: 32
URxvt*background: rgba:0000/0000/0000/dddd
 
URxvt.fading: 30
URxvt.fadeColor: [0]black
 
URxvt.saveLines:32767
URxvt.scrollBar: false
 
URxvt.urgentOnBell: true
 
URxvt*font:xft:Terminus:pixelsize=14
 
URxvt*color0:    #6c6c6c
URxvt*color1:    #e9897c
URxvt*color2:    #b6e77d
URxvt*color3:    #ecebbe
URxvt*color4:    #a9cdeb
URxvt*color5:    #ea96eb
URxvt*color6:    #c9caec
URxvt*color7:    #f2f2f2
URxvt*color8:    #747474
URxvt*color9:    #f99286
URxvt*color10:    #c3f786
URxvt*color11:    #fcfbcc
URxvt*color12:    #b6defb
URxvt*color13:    #fba1fb
URxvt*color14:    #d7d9fc
URxvt*color15:    #e2e2e2

import XMonad
import XMonad.Core
 
import XMonad.Prompt
import XMonad.Prompt.Shell
import XMonad.Prompt.Man
import XMonad.Prompt.AppLauncher as AL
 
import XMonad.Layout
import XMonad.Layout.NoBorders
import XMonad.Layout.ResizableTile
 
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.UrgencyHook
import XMonad.Hooks.SetWMName
import XMonad.Hooks.ManageHelpers
 
import qualified XMonad.StackSet as W
import XMonad.Util.EZConfig
import XMonad.Util.Run
import XMonad.Util.Loggers
import XMonad.Util.WorkspaceCompare
import XMonad.Util.Scratchpad
 
import XMonad.Actions.WindowBringer
 
import Control.Monad (liftM2)
import Graphics.X11.Xlib 
import Data.List 
import qualified Data.Map as M
import System.IO
 
main = do
  dzenproc <- spawnPipe myStatusBar
  conkyproc <- spawnPipe myConkyBar
  spawn myTrayer
  xmonad $ withUrgencyHook NoUrgencyHook
    $ defaultConfig {
         manageHook = manageDocks <+> myManageHook <+> manageHook defaultConfig
         , layoutHook = avoidStruts $ smartBorders $  layoutHook defaultConfig
         , logHook = dynamicLogWithPP $ myDzenPP dzenproc
         , modMask = myModKey     -- Rebind Mod to the Windows key
         , focusFollowsMouse = False
         , workspaces = myWorkspaces
         , terminal = "urxvt"
         } `additionalKeysP` myKeys
 
myManageHook = scratchpadManageHook (W.RationalRect 0.3 0.2 0.4 0.4) <+> 
               (composeAll . concat $
                [ [ isDialog --> doFloat]
    , [className =? c --> doFloat | c <- myCFloats]
    , [title =? t --> doFloat | t <- myTFloats]
    , [resource =? r --> doFloat | r <- myRFloats]
    , [ fmap ( c `isInfixOf`) className --> doFloat | c <- myMatchAnywhereFloatsC ]
    , [ fmap ( c `isInfixOf`) title     --> doFloat | c <- myMatchAnywhereFloatsT ]
    , [resource =? i --> doIgnore | i <- myIgnores]
    , [isFullscreen --> (doF W.focusDown <+> doFullFloat)]
    , [(className =? x <||> title =? x <||> resource =? x) --> doShift "1:web" | x <- my1Shifts]
    , [(className =? x <||> title =? x <||> resource =? x) --> doShift "2:comm" | x <- my2Shifts]
    , [(className =? x <||> title =? x <||> resource =? x) --> doShift "3:office" | x <- my3Shifts]
    , [(className =? x <||> title =? x <||> resource =? x) --> doShift "4:dev" | x <- my4Shifts]
    , [(className =? x <||> title =? x <||> resource =? x) --> doShiftAndGo "5:video" | x <- my5Shifts]
    , [(className =? x <||> title =? x <||> resource =? x) --> doShiftAndGo "6" | x <- my6Shifts]
    , [(className =? x <||> title =? x <||> resource =? x) --> doShiftAndGo "7" | x <- my7Shifts]
    , [(className =? x <||> title =? x <||> resource =? x) --> doShiftAndGo "8" | x <- my8Shifts]
    , [(className =? x <||> title =? x <||> resource =? x) --> doShiftAndGo "9:misc" | x <- my9Shifts]
    ] )
    where
      doShiftAndGo = doF . liftM2 (.) W.greedyView W.shift
      myCFloats = ["Nitrogen", "Nvidia-settings", "Transmission-gtk", "Xmessage", "Gimp", "Tracker-search-tool", "Qjackctl"]
      myTFloats = ["Downloads", "Firefox Preferences", "Save As..."]
      myRFloats = []
      myMatchAnywhereFloatsC = ["Ardour"]
      myMatchAnywhereFloatsT = []
      myIgnores = []
      my1Shifts = ["Firefox"]
      my2Shifts = ["Thunderbird"]
      my3Shifts = ["libreoffice-startcenter", "libreoffice-writer", "Libreoffice"]
      my4Shifts = ["emacs"]
      my5Shifts = ["Vlc"]
      my6Shifts = []
      my7Shifts = []
      my8Shifts = []
      my9Shifts = []
 
-- Theme settings
myFont = "-*-terminus-*-*-*-*-14-*-*-*-*-*-iso8859-*"
 
myNormalFGColor = "#ffffff"
myNormalBGColor = "#000000"
myFocusedFGColor = "#ff8888"
myFocusedBGColor = "#555555"
myVisibleFGColor = "#ffffff"
myVisibleBGColor = "#555555"
myHiddenFGColor = "#d0d0d0"
myHiddenBGColor = "#000000"
myUrgentFGColor = "#ffffff"
myUrgentBGColor = "#ff0000"
myHighlightedFGColor = "#FFFFFF"
myHighlightedBGColor = "#222222"
mySeperatorColor = "#555555"
myTitleColor = "#9F9FFF"
 
--Shell prompt settings               
myXPConfig = defaultXPConfig {
  position = Bottom,
  promptBorderWidth = 0,
  height = 24,
  bgColor = myNormalBGColor,
  fgColor = myNormalFGColor,
  fgHLight = myHighlightedFGColor,
  bgHLight = myHighlightedBGColor,
  font = myFont
  }
 
-- Define workspaces
myWorkspaces = ["1:web", "2:comm", "3:office", "4:dev", "5:video", "6", "7", "8", "9:misc"]
 
-- Modified key bindings
myModKey = mod4Mask
myKeys = 
  [
  -- Use shellPrompt instead of default dmenu
  ("M-p", shellPrompt myXPConfig)
  -- Do not leave useless conky, dzen and trayer after restart
  , ("M-q", spawn "killall trayer conky dzen2; xmonad --recompile; xmonad --restart")
  , ("M-s", spawn "dbus-send --system --print-reply --dest=\"org.freedesktop.UPower\" /org/freedesktop/UPower org.freedesktop.UPower.Suspend")
  , ("M-S-t", scratchpadSpawnAction defaultConfig {terminal = "urxvt"})
  , ("<XF86AudioLowerVolume>", spawn "amixer sset Master 3dB- unmute")
  , ("<XF86AudioRaiseVolume>", spawn "amixer sset Master 3dB+ unmute")
  , ("<XF86Eject>", spawn "eject -T")
  , ("M-S-g", gotoMenu)
  , ("M-S-b", bringMenu)
  , ("M-S-f", focusUrgent)
  , ("M-S-x", spawn "transmission-gtk")
  , ("M-S-p", spawn "tracker-search-tool")
  , ("M-S-s", spawn "setxkbmap se -variant svoraka2")
  , ("M-S-o", spawn "setxkbmap se -variant mac")
  ]
 
-- PP used to generate log data for dzen
myDzenPP h = defaultPP
    { ppSep = " "
    , ppWsSep = ""
    , ppCurrent = wrap ("^fg(" ++ myFocusedFGColor ++ ")^bg(" ++ myFocusedBGColor ++ ") ") " ^fg()^bg()^p()" . \wsId -> dropIx wsId
    , ppVisible = wrap ("^fg(" ++ myVisibleFGColor ++ ")^bg(" ++ myVisibleBGColor ++ ") ") " ^fg()^bg()^p()" . \wsId -> dropIx wsId
    , ppHidden = wrap ("^fg(" ++ myHiddenFGColor ++ ") ") " " . noScratchPad . \wsId -> dropIx wsId
    , ppUrgent =  wrap ("^bg(" ++ myUrgentBGColor ++ ")") "^bg()"
    , ppTitle = dzenColor ("" ++ myTitleColor ++ "") "" . wrap "< " " >"
    , ppLayout = dzenColor ("" ++ myNormalFGColor ++ "") "" .
        (\x -> case x of
        "Full" -> "[ ]"
        "Tall" -> "[|]"
        "Mirror Tall" -> "[-]"
        _ -> x
        ) 
    , ppSort = getSortByXineramaRule
    , ppOrder = \(ws:l:t:_) -> [ws] ++ [l] ++ [t] 
    , ppOutput = hPutStrLn h
    }
   where
     dropIx wsId = if (':' `elem` wsId) then drop 2 wsId else wsId --Remove the digit before the workspace name when displaying
     noScratchPad ws = if ws == "NSP" then "" else ws --Hide the workspace where the scratchpad is hidden away to
 
--Set up dzen2 for the status bar on Xinerama screen 1
myStatusBar = "dzen2 -xs 1 -x '0' -y '0' -h '18' -w '1428' -ta 'l' -fg '" ++ myNormalFGColor ++ "' -bg '" ++ myNormalBGColor ++ "' -fn '" ++ myFont ++ "'"
 
--Conky is piped into a secon instance of dzen2. Conky settings are read from .xmonad/conky_bar
myConkyBar = "conky -c '.xmonad/conky_bar' | dzen2 -xs 1 -x '1428' -y '0' -h '18' -w '300' -ta 'l' -fg '" ++ myNormalFGColor ++ "' -bg '" ++ myNormalBGColor ++ "' -fn '" ++ myFont ++ "'"
 
--Set up trayer in the top right corner
myTrayer = "trayer --edge top --align right --SetDockType true --SetPartialStrut true --expand true --widthtype pixel --width 192 --transparent true --alpha 0 --tint 0x000000 --heighttype pixel --height 18"