updated

src/main.scm

@@ -13,7 +13,7 @@
 		     (display-event e))
 		 (loop (next-sync-x-event se (lambda (e) #t)))))))
 
-    (let ((root-manager (create-root-wm dpy)))
+    (let ((root-manager (create-root-wm dpy '()))) ;; TODO: options
       (display "Orion-wm finished\n"))))
 
 (define (display-event e)

src/packages.scm

@@ -20,6 +20,7 @@
 	  move-resize-window*
 	  root-rectangle window-rectangle clip-rectangle
 	  draw-shadow-rectangle
+	  fill-rectangle*
 	  invalidate-window
 	  text-center-pos
 	  window-level
@@ -52,6 +53,13 @@
 	utils)
   (files titlebar))
 
+(define-structure prompt
+  (export prompt)
+  (open scheme list-lib rendezvous-channels
+	xlib
+	utils)
+  (files prompt))
+
 ;; *** key-grab ******************************************************
 
 (define-structure key-grab
@@ -75,7 +83,7 @@
 
 	  client? client:window client:client-window
 	  client:data set-client:data!
-	  client-name
+	  client-name find-window-by-name get-all-window-names
 	  client-replace-window)
   (open scheme threads list-lib locks
 	xlib
@@ -106,7 +114,7 @@
 	threads rendezvous-channels rendezvous placeholders
 	xlib
 	manager
-	utils)
+	utils key-grab)
   (files split-wm))
 
 ;; *** switch manager ************************************************
@@ -122,16 +130,20 @@
 
 ;; *** main package **************************************************
 
+(define-structure scsh-things
+  (export ((run) :syntax))
+  (open scsh))
+
 (define-structure root-manager
   (export root-wm? create-root-wm)
-  (open scheme list-lib
+  (open scheme list-lib scsh-things
 	define-record-types
 	xlib
 	rendezvous rendezvous-channels
 	utils key-grab
 	manager
 	move-wm split-wm switch-wm
-	)
+	prompt)
   (files root-manager))
 
 (define-structure main