[xmonad] Only floating windows with window decoration

[Nathan Huesken]

Hi,

I think it is not 100% clear what I mean (or I am really missing
something).

I know how do add a floating layout and I also know how to put a window
into floating.

What I want is, that as soon as I put a window into floating, a window
decoration is added to it and as soons as I remove a window from
floating, the window decaration is removed.

On Fri, Oct 02, 2009 at 09:49:51AM -0400, Andrew Antle wrote:
> On Fri, Oct 02, 2009 at 08:29:18AM +0200, Nathan Huesken wrote:
> > On Thu, Oct 01, 2009 at 06:06:45PM -0400, Andrew Antle wrote:
> > > On Thu, Oct 01, 2009 at 09:51:36PM +0200, Nathan Huesken wrote:
> > >  
> > > > Can I somehow configure xmonad, so that only floating windows have
> > > > window decoaration? By this I mean a titlebar, which can be used to drag
> > > > them around ...
> > > 
> > > I'd take a look at XMonadContrib/XMonad/Layout/SimpleFloat.hs
> > > 
> > 
> > I can not find what I want on that page. Can you give me another hint?
> 
> Hi Nathan,
> 
> Do you have the source tree for XMonadContrib[1]? In the SimpleFloat.hs
> file there is a good example from Andrea on how to add that layout to your
> xmonad.hs:
> 
> ----
> 
> -- $usage
> -- You can use this module with the following in your
> -- @~\/.xmonad\/xmonad.hs@:
> --
> -- > import XMonad.Layout.SimpleFloat
> --
> -- Then edit your @layoutHook@ by adding the SimpleFloat layout:
> --
> -- > myLayouts = simpleFloat ||| Full ||| etc..
> -- > main = xmonad defaultConfig { layoutHook = myLayouts }
> --
> -- For more detailed instructions on editing the layoutHook see:
> --
> -- "XMonad.Doc.Extending#Editing_the_layout_hook"
> 
> -- | A simple floating layout where every window is placed according
> -- to the window's initial attributes.
> --
> -- This version is decorated with the 'SimpleDecoration' style.
> 
> ----
> 
> Or you can just specify which applications you want to float, then drag
> or resize them via *Mod+Left-Click* or *Mod+Right-Click* respectively:
> 
> ----
> 
> manageHook' :: ManageHook
> manageHook' = manageDocks <+> customManageHook
>                           <+> manageHook defaultConfig
> ...
> customManageHook = composeAll
>     [ className =? "Gimp"       --> doFloat
>     , className =? "VirtualBox" --> doFloat
>     ]
> ...
> main = do
>        xmonad $ defaultConfig
>        { workspaces = workspaces'
>        ...
>        , manageHook = manageHook'
>        }
> 
> ----
> 
> [1] http://hackage.haskell.org/packages/archive/xmonad-contrib/0.8.1/xmonad-contrib-0.8.1.tar.gz
> 
> or
> 
> darcs get http://code.haskell.org/xmonad
> darcs get http://code.haskell.org/XMonadContrib 
> 
> for devel.
> 
> HTH,
> -- 
> Andrew Antle
> <andrew.antle at gmail.com>
> <http://antlechrist.org>
> ##############################################
> ## <TMR> : Can't we just agree to disagree? ##
> ## <TBM> : I disagree!                      ##
> ## <Aq>  : And you're wrong!                ##
> ##############################################
> _______________________________________________
> xmonad mailing list
> xmonad at haskell.org
> http://www.haskell.org/mailman/listinfo/xmonad
> 

-- 
 _________________________________________ 
/  Sometimes I think the surest sign that \
| intelligent life exists elsewhere in    |
| the universe is that none of it has     |
\ tried to contact us. -- Calvin          /
 ----------------------------------------- 
       \   ,__,
        \  (oo)____
           (__)    )\
              ||--|| *