[xmonad] Firefox and Opera windows

[Carsten Mattner]

On Sat, Sep 22, 2012 at 4:39 PM, Brandon Allbery <allbery.b at gmail.com> wrote:
> On Sat, Sep 22, 2012 at 6:45 AM, Carsten Mattner <carstenmattner at gmail.com>
> wrote:
>>
>> > Any idea what's going on?
>> Any idea?
>
>
> I don't see a config anywhere so we can't even really begin to guess; for
> one thing, there are at least three ways to add fullscreen support to a
> config, each of which only works with some programs.

import XMonad
import XMonad.Util.EZConfig
import XMonad.Util.Run
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers
--import XMonad.Actions.FloatSnap
import XMonad.Layout.NoBorders
import XMonad.Layout.LayoutHints
import XMonad.Layout.Fullscreen
import XMonad.Prompt.Shell
import XMonad.Prompt

main =
     xmonad $ defaultConfig
        { terminal = "xterm"
         , manageHook = myManageHook <+> fullscreenManageHook <+>
manageDocks <+> manageHook defaultConfig
         , layoutHook = fullscreenFloat $ fullscreenFocus $
layoutHints $ smartBorders $ avoidStruts $ layoutHook defaultConfig
         , handleEventHook = fullscreenEventHook
         }
        `removeKeysP` ["M-S-p", "M-h", "M-l", "M-e", "M-p", "M-w", "M-q", "M-t"]
        `additionalKeys`
         [ ((defModMask, xK_p), shellPrompt myXPConfig)
           , ((mod4Mask, xK_q), spawn "xmonad --recompile && xmonad --restart")
         ]
        --`removeMouseBindings`
        -- [ (defModMask, button1) ]
        --`additionalMouseBindings`
        -- [ ((defModMask, button1),
        --    (\w -> focus w >> mouseMoveWindow w
        --                   >> snapMagicMove (Just 50) (Just 50) w)) ]

defModMask = mod1Mask

myXPConfig = defaultXPConfig
    { fgColor   = "#bbbbbb"
    , bgColor  = "#222222"
    , bgHLight = "#005577"
    , fgHLight = "#eeeeee"
    , position = Top
    , promptBorderWidth = 0
    , defaultText = ""
    , alwaysHighlight = True
    }

myManageHook = composeAll [
    -- isFullscreen rule said to be not required since 0.10, but appears to be
    -- needed for Flash fullscreen or otherwise creates window border
    isFullscreen                      --> doFullFloat,
    className =? "MuPDF"              --> doFloat,
    className =? "llpp"               --> doFloat,
    className =? "ffplay"             --> doFloat,
    className =? "Plugin-container"   --> doFloat, -- Firefox flash, etc.
    className =? "Firefox" <&&> title =? "About Nightly"  --> doFloat,
    className =? "Firefox" <&&> title =? "About Mozilla Firefox"  --> doFloat,
    className =? "Firefox" <&&> title =? "Library"  --> doFloat,
    className =? "Firefox" <&&> title =? "Preferences"  --> doFloat,
    ]