updated

src/packages.scm

@@ -8,6 +8,7 @@
 	  create-options free-options
 	  get-option-value get-option set-option! get-options
 	  ((define-options-spec) :syntax) options-spec-union
+	  get-options-diff
 
 	  string->keys string->key key:keycode key:modifiers
 
@@ -27,7 +28,8 @@
 	  point-in-rectangle?
 
 	  maximize-window maximal-size/hints
-	  size-window desired-size/hints desired-position/hints)
+	  size-window desired-size/hints desired-position/hints
+	  install-colormaps uninstall-colormaps)
   (open scheme i/o list-lib define-record-types finite-types enum-sets
 	threads locks placeholders rendezvous
 	signals handle
@@ -84,7 +86,8 @@
 	  client? client:window client:client-window
 	  client:data set-client:data!
 	  client-name find-window-by-name get-all-window-names
-	  client-replace-window)
+	  client-replace-window
+	  client-of-window)
   (open scheme threads list-lib locks
 	xlib
 	define-record-types
@@ -134,10 +137,24 @@
   (export ((run) :syntax))
   (open scsh))
 
+(define-structure config
+  (export backup-layout
+	  restore-layout
+	  load-configuration)
+  (open scheme list-lib
+	scsh xlib
+	utils manager root-manager)
+  (files config))
+
 (define-structure root-manager
-  (export root-wm? create-root-wm)
+  (export root-wm? create-root-wm
+	  wait-for-root-wm
+	  root-wm:dpy root-wm:initial-manager root-wm:options
+	  get-manager-by-window
+	  create-new-manager
+	  root-wm-manage-window)
   (open scheme list-lib scsh-things
-	define-record-types
+	define-record-types threads
 	xlib
 	rendezvous rendezvous-channels
 	utils key-grab
@@ -150,6 +167,6 @@
   (export start)
   (open scsh scheme threads
 	xlib
-	root-manager
+	manager root-manager config
 	utils)
   (files main))