diff options
| -rw-r--r-- | XMonad/Layout/IM.hs | 107 | ||||
| -rw-r--r-- | xmonad-contrib.cabal | 1 |
2 files changed, 108 insertions, 0 deletions
diff --git a/XMonad/Layout/IM.hs b/XMonad/Layout/IM.hs new file mode 100644 index 0000000..dae15d1 --- /dev/null +++ b/XMonad/Layout/IM.hs @@ -0,0 +1,107 @@ +{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses, TypeSynonymInstances, FlexibleContexts #-} + +----------------------------------------------------------------------------- +-- | +-- Module : XMonad.Layout.IM +-- Copyright : (c) Roman Cheplyaka +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Roman Cheplyaka <roma@ro-che.info> +-- Stability : unstable +-- Portability : unportable +-- +-- Layout suitable for workspace with multi-windowed instant messanger (like +-- Psi or Tkabber). +-- +----------------------------------------------------------------------------- + +module XMonad.Layout.IM ( + -- * Usage + -- $usage + + -- * Hints + -- $hints + + -- * TODO + -- $todo + Property(..), IM(..) +) where + +import XMonad +import qualified XMonad.StackSet as S +import Data.List +import XMonad.Layout (splitHorizontallyBy) +import XMonad.Layout.Grid (arrange) + +-- $usage +-- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@: +-- +-- > import XMonad.Layout.IM +-- > import Data.Ratio ((%)) +-- +-- Then edit your @layoutHook@ by adding the IM layout: +-- +-- > myLayouts = IM (1%7) (ClassName "Tkabber") ||| Full ||| etc.. +-- > main = xmonad defaultConfig { layoutHook = myLayouts } +-- +-- Here @1%7@ is the part of the screen which your roster will occupy, +-- @ClassName \"Tkabber\"@ tells xmonad which window is actually your roster. +-- +-- Screenshot: <http://haskell.org/haskellwiki/Image:Xmonad-layout-im.png> +-- +-- For more detailed instructions on editing the layoutHook see: +-- +-- "XMonad.Doc.Extending#Editing_the_layout_hook" + +-- $hints +-- +-- To launch IM layout automatically on your IM workspace use "XMonad.Layout.PerWorkspace". + +-- $todo +-- All these items are questionable. Please let me know if you find them useful. +-- +-- * shrink\/expand +-- +-- * allow roster placement on the right side or even on top\/bottom +-- +-- * use arbitrary layout instead of grid + +data IM a = IM Rational Property deriving (Read, Show) + +-- It's hard to reuse code from ManageHook because Query Bool is not in Show/Read. +data Property = Title String + | ClassName String + | Resource String + | And Property Property + | Or Property Property + | Not Property + | Const Bool + deriving (Read, Show) +infixr 9 `And` +infixr 8 `Or` + +-- | Does given window have this property? +hasProperty :: Property -> Window -> X Bool +hasProperty (Title s) w = withDisplay $ \d -> fmap (Just s ==) $ io $ fetchName d w +hasProperty (Resource s) w = withDisplay $ \d -> fmap ((==) s . resName ) $ io $ getClassHint d w +hasProperty (ClassName s) w = withDisplay $ \d -> fmap ((==) s . resClass) $ io $ getClassHint d w +hasProperty (And p1 p2) w = do { r1 <- hasProperty p1 w; r2 <- hasProperty p2 w; return $ r1 && r2 } +hasProperty (Or p1 p2) w = do { r1 <- hasProperty p1 w; r2 <- hasProperty p2 w; return $ r1 || r2 } +hasProperty (Not p1) w = do { r1 <- hasProperty p1 w; return $ not r1 } +hasProperty (Const b) _ = return b + +instance LayoutClass IM Window where + description _ = "IM" + doLayout (IM r prop) rect stack = do + let ws = S.integrate stack + let (masterRect, slaveRect) = splitHorizontallyBy r rect + master <- findM (hasProperty prop) ws + let positions = case master of + Just w -> (w, masterRect) : arrange slaveRect (filter (w /=) ws) + Nothing -> arrange rect ws + return (positions, Nothing) + +-- | Like find, but works with monadic computation instead of pure function. +findM :: Monad m => (a-> m Bool) -> [a] -> m (Maybe a) +findM _ [] = return Nothing +findM f (x:xs) = do { b <- f x; if b then return (Just x) else findM f xs } diff --git a/xmonad-contrib.cabal b/xmonad-contrib.cabal index 3bf3305..c01ee0e 100644 --- a/xmonad-contrib.cabal +++ b/xmonad-contrib.cabal @@ -106,6 +106,7 @@ library XMonad.Layout.DwmStyle XMonad.Layout.Grid XMonad.Layout.HintedTile + XMonad.Layout.IM XMonad.Layout.LayoutCombinators XMonad.Layout.LayoutHints XMonad.Layout.LayoutModifier |