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

changed options default-list

This commit is contained in:
frese 2003-04-25 18:59:56 +00:00
parent fd46b53447
commit dcbf6b7bbb
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/utils.scm
View File

@ -78,10 +78,15 @@
(type-alist (map (lambda (s) (type-alist (map (lambda (s)
(cons (first s) (second s))) (cons (first s) (second s)))
spec)) spec))
; (default-alist (map (lambda (s)
; (let ((op (assq (first s) options)))
; (if op op
; (cons (first s) (third s)))))
; spec)))
;; TODO: options from config and the spec should form the
;; defaults (but not those from layout).
(default-alist (map (lambda (s) (default-alist (map (lambda (s)
(let ((op (assq (first s) options))) (cons (first s) (third s)))
(if op op
(cons (first s) (third s)))))
spec))) spec)))
(for-each (lambda (name.option name.type) (for-each (lambda (name.option name.type)
(allocate-option dpy colormap (car name.option) (allocate-option dpy colormap (car name.option)