From 32c8813fb1c7da8fc7d4e286621ed8c7c77f1868 Mon Sep 17 00:00:00 2001
From: Michael Raitza <spacefrogg-clfswm@meterriblecrew.net>
Date: Fri, 12 Oct 2012 23:09:53 +0200
Subject: [PATCH] Added set-layout-simple

---
 src/clfswm-layout.lisp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/clfswm-layout.lisp b/src/clfswm-layout.lisp
index 9af5020..710bbc0 100644
--- a/src/clfswm-layout.lisp
+++ b/src/clfswm-layout.lisp
@@ -60,6 +60,10 @@
   (fixe-real-size-current-child)
   (set-layout-dont-leave #'no-layout))
 
+(defun set-layout-simple (layout)
+  "Set the layout of the current child"
+  (set-layout-dont-leave layout)
+  (show-all-children))
 
 (defun get-managed-child (parent)
   "Return only the windows that are managed for tiling"
-- 
2.11.4.GIT