Login
[x]
Log in using an account from:
Fedora Account System
Red Hat Associate
Red Hat Customer
Or login using a Red Hat Bugzilla account
Forgot Password
Login:
Hide Forgot
Create an Account
Red Hat Bugzilla – Attachment 860366 Details for
Bug 1061568
Certain X applications do not update window correctly under xmonad-mate
[?]
New
Simple Search
Advanced Search
My Links
Browse
Requests
Reports
Current State
Search
Tabular reports
Graphical reports
Duplicates
Other Reports
User Changes
Plotly Reports
Bug Status
Bug Severity
Non-Defaults
|
Product Dashboard
Help
Page Help!
Bug Writing Guidelines
What's new
Browser Support Policy
5.0.4.rh83 Release notes
FAQ
Guides index
User guide
Web Services
Contact
Legal
This site requires JavaScript to be enabled to function correctly, please enable it.
xmonad configuration
xmonad.hs (text/x-haskell), 1.96 KB, created by
David Gibson
on 2014-02-07 02:14:45 UTC
(
hide
)
Description:
xmonad configuration
Filename:
MIME Type:
Creator:
David Gibson
Created:
2014-02-07 02:14:45 UTC
Size:
1.96 KB
patch
obsolete
>import XMonad >import XMonad.Config.Gnome >import XMonad.Hooks.DynamicLog >import XMonad.Hooks.EwmhDesktops >import XMonad.Hooks.ManageHelpers >import XMonad.Hooks.SetWMName >import XMonad.Layout.NoBorders >import XMonad.Util.Run(spawnPipe) >import XMonad.Util.EZConfig(additionalKeys) >import qualified XMonad.StackSet as W >import Control.Monad >import Data.Monoid >import System.IO > >main = > xmonad $ gnomeConfig { layoutHook = smartBorders (layoutHook gnomeConfig) > , manageHook = myManageHook > , handleEventHook = mappend evHook (handleEventHook gnomeConfig) > , startupHook = setWMName "LG3D" > , terminal = "mate-terminal" > } > > >myManageHook = composeAll > [ isFullscreen --> doFullFloat > , className =? "Wine" --> doFullFloat] > <+> manageHook gnomeConfig > >-- Helper functions to fullscreen the window >fullFloat, tileWin :: Window -> X () >fullFloat w = windows $ W.float w r > where r = W.RationalRect 0 0 1 1 >tileWin w = windows $ W.sink w > >evHook :: Event -> X All >evHook (ClientMessageEvent _ _ _ dpy win typ dat) = do > state <- getAtom "_NET_WM_STATE" > fullsc <- getAtom "_NET_WM_STATE_FULLSCREEN" > isFull <- runQuery isFullscreen win > > -- Constants for the _NET_WM_STATE protocol > let remove = 0 > add = 1 > toggle = 2 > > -- The ATOM property type for changeProperty > ptype = 4 > > action = head dat > atoms = tail dat > > when (typ == state && elem (fromIntegral fullsc) atoms) $ do > when (action == add || (action == toggle && not isFull)) $ do > io $ changeProperty32 dpy win state ptype propModeReplace [fromIntegral fullsc] > fullFloat win > when (head dat == remove || (action == toggle && isFull)) $ do > io $ changeProperty32 dpy win state ptype propModeReplace [] > tileWin win > > -- It shouldn't be necessary for xmonad to do anything more with this event > return $ All False > >evHook _ = return $ All True
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Raw
Actions:
View
Attachments on
bug 1061568
: 860366