From ec01b31f941fbab3e1d6adf3c3a9454862a5f165 Mon Sep 17 00:00:00 2001 From: frese Date: Thu, 1 May 2003 13:59:28 +0000 Subject: [PATCH] added a default layout: one workspace with a switch-wm --- src/config.scm | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/src/config.scm b/src/config.scm index 4404fb6..0454d4a 100644 --- a/src/config.scm +++ b/src/config.scm @@ -56,13 +56,14 @@ (get-root-layout root-wm))))) (define (restore-layout root-wm) - (let ((fn (layout-filename (root-wm:dpy root-wm)))) - (if (file-exists? fn) - (call-with-input-file fn - (lambda (p) - (create-root-layout root-wm - (port->sexp-list p)))) - '()))) + (let* ((fn (layout-filename (root-wm:dpy root-wm))) + (layout (if (file-exists? fn) + (call-with-input-file fn + (lambda (p) (port->sexp-list p))) + ;; if no layout file exists, one switch-wm + ;; workspace is the default + '((switch ()))))) + (create-root-layout root-wm layout))) ;; *** configuration *************************************************