- made main-window and client-window transparent and removed

main-window drawing (xsetroot or xsetbg can now be used to set a nice
background)

src/manager.scm

@@ -3,8 +3,6 @@
   (client-cursor cursor xc-X-cursor)
   )
 
-;; TODO: focus-policy click does not work yet
-
 (define-record-type wm :wm
   (make-wm type in-channel out-channel internal-out-channel
 	   dpy window colormap options
@@ -60,6 +58,7 @@
 				      options)
 		      '() #f)))
 
+    (set-window-background-pixmap! dpy main-window parent-relative)
     ;; set properties ************************************************
     (set-wm-name! dpy main-window
 		  (string-list->property (list (manager-name type))))
@@ -313,6 +312,8 @@
 					      (black-pixel dpy)))
 	 (in-channel (make-channel))
 	 (client (make-client window client-window in-channel #f #f)))
+    ;; transparent by default.
+    (set-window-background-pixmap! dpy client-window parent-relative)
     (define-cursor dpy client-window
       (get-option-value (wm:options wm) 'client-cursor))
     (if (memq 'click (get-option-value (wm:options wm) 'focus-policy))

src/move-wm.scm

@@ -53,10 +53,7 @@
       ((deinit-manager)
        (exit 'deinit-manager))
 
-      ((draw-main-window)
-       (set-gc-foreground! dpy gc (black-pixel dpy))
-       (fill-rectangle* dpy window gc
-			(clip-rectangle dpy window)))
+      ((draw-main-window) #t)
 
       ((update-manager-state) #t)