misc fixups

.emacs

@@ -38,5 +38,5 @@
 (put 'upcase-region 'disabled nil)
 (put 'downcase-region 'disabled nil)
 
-(load-file (let ((coding-system-for-read 'utf-8))
-                (shell-command-to-string "agda-mode locate")))
+;; (load-file (let ((coding-system-for-read 'utf-8))
+;;                 (shell-command-to-string "agda-mode locate")))

.xmonad/xmobarrc

@@ -3,7 +3,7 @@ Config { font         = "-*-fixed-medium-r-*-*-*-100-100-100-*-*-iso10646-*"
        , fgColor      = "#00FFFF"
        , position =  Bottom
        , lowerOnStart = False
-       , commands     = [ Run Com "date" ["'+%a %b %_d %H:%M'"] "" 300
+       , commands     = [ Run Com "/bin/date" ["'+%a %b %_d %H:%M'"] "" 300
                         , Run StdinReader
                         ]
        , sepChar      = "%"

.xmonad/xmonad.hs

@@ -48,7 +48,7 @@ main = do
                           , keys          = \c -> mykeys c `M.union` keys defaultConfig c
                           , manageHook = myManageHook
                           , workspaces = ["1:dev","2:mail","3:web","4:IM","5","6","7","8","9","0"]
-                          , logHook = dynamicLogWithPP (myXmobarPP xm) >> updatePointer (Relative 0.2 0.2) >> updateCurrentPList
+                          , logHook = dynamicLogWithPP (myXmobarPP xm) >> updatePointer (0.2,0.2) (0.5, 0.5) >> updateCurrentPList
                           , layoutHook = avoidStruts myLayouts
                           , startupHook = setWMName "LG3D" -- a fix for java applets
                           , focusFollowsMouse = True
@@ -85,6 +85,7 @@ main = do
                    , className =? "mplayer"     --> doFloat
                    , className =? "Pidgin"      --> moveTo "4:IM"
                    , className =? "Iceweasel" --> moveTo "3:web"
+                   , className =? "Firefox" --> moveTo "3:web"
                    ]
         where
           moveTo = doF . W.shift