Make a String description part of each Layout.

2025-08-01 04:31:53 -07:00 · 2007-09-24 18:57:53 +00:00
parent ee39e7fdb8
commit 9c35abaa46
5 changed files with 21 additions and 15 deletions
--- a/Config.hs
+++ b/Config.hs
@@ -92,10 +92,10 @@ borderWidth = 1
 -- |
 -- The default set of tiling algorithms
 --
-defaultLayouts :: [(String, SomeLayout Window)]
-defaultLayouts = [("tall", SomeLayout tiled)
-                 ,("wide", SomeLayout $ Mirror tiled)
-                 ,("full", SomeLayout Full)
+defaultLayouts :: [SomeLayout Window]
+defaultLayouts = [SomeLayout tiled
+                 ,SomeLayout $ Mirror tiled
+                 ,SomeLayout Full

                 -- Extension-provided layouts
                 ]