diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-28 07:18:58 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-28 07:18:58 +0200 |
commit | 110c8e29c1c40bb3efa4c5ccd2aa768d0d54e561 (patch) | |
tree | a70a7e4f9c3403cbadd472768a500062ec9c95bf /Operations.hs | |
parent | 7ff28c1583eb41fd0a6c5b0e9ad67d56c5a643ba (diff) | |
download | xmonad-110c8e29c1c40bb3efa4c5ccd2aa768d0d54e561.tar.gz xmonad-110c8e29c1c40bb3efa4c5ccd2aa768d0d54e561.tar.xz xmonad-110c8e29c1c40bb3efa4c5ccd2aa768d0d54e561.zip |
LayoutSelection: describe the active layout only
darcs-hash:20070928051858-a5988-bebb34f737f554e027dc31ab5305c69189b897ba.gz
Diffstat (limited to 'Operations.hs')
-rw-r--r-- | Operations.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Operations.hs b/Operations.hs index ab585c7..ec93cca 100644 --- a/Operations.hs +++ b/Operations.hs @@ -386,6 +386,9 @@ instance ReadableSomeLayout a => Layout LayoutSelection a where return $ (\l' -> LayoutSelection (l':ls)) `fmap` ml' -- Unless there is no layout... handleMessage (LayoutSelection []) _ = return Nothing + + description (LayoutSelection (x:_)) = description x + description _ = "default" -- -- Builtin layout algorithms: -- |