Attachment 860366 Details for Bug 1061568 – xmonad configuration

xmonad configuration

xmonad.hs (text/x-haskell), 1.96 KB, created by David Gibson on 2014-02-07 02:14:45 UTC

(hide)

Description:

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

Actions: View

Attachments on bug 1061568: 860366