scsh-conservatory
/
orion-wm
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added a default layout: one workspace with a switch-wm

This commit is contained in:
frese 2003-05-01 13:59:28 +00:00
parent 4259d7f0dd
commit ec01b31f94
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/config.scm
View File

@ -56,13 +56,14 @@
(get-root-layout root-wm))))) (get-root-layout root-wm)))))
(define (restore-layout root-wm) (define (restore-layout root-wm)
(let ((fn (layout-filename (root-wm:dpy root-wm)))) (let* ((fn (layout-filename (root-wm:dpy root-wm)))
(if (file-exists? fn) (layout (if (file-exists? fn)
(call-with-input-file fn (call-with-input-file fn
(lambda (p) (lambda (p) (port->sexp-list p)))
(create-root-layout root-wm ;; if no layout file exists, one switch-wm
(port->sexp-list p)))) ;; workspace is the default
'()))) '((switch ())))))
(create-root-layout root-wm layout)))
;; *** configuration ************************************************* ;; *** configuration *************************************************