- added a check for the existance of the X-Server

- added a little startup-message

src/main.scm

@@ -3,6 +3,11 @@
 
 (define (orion-wm . args)
   (let ((dpy (open-display)))
+    (if (not dpy)
+	(begin
+	  (mdisplay "Default X-Server not found. Please set the environment variable DISPLAY to the name of your X-Server.\n")
+	  (exit)))
+
     (use-x-error-warnings! dpy #t)
     (synchronize dpy #t)
     (init-sync-x-events dpy)
@@ -30,6 +35,7 @@
 		  (root-wm-manage-window root-manager window))
 		initial-windows)
       (map-window dpy (wm:window (root-wm:initial-manager root-manager)))
+      (display "Orion is up and running...\n")
       (wait-for-root-wm root-manager)
       (backup-layout root-manager)
-      (display "Orion-wm finished\n"))))
+      (display "Orion finished\n"))))