Initial Lime window manager

test/x11-default-layout-config.lisp

@@ -0,0 +1,16 @@
+(in-package #:cl-user)
+
+(defvar *default-layout-smoke-loads* 0)
+(defvar *default-layout-smoke-startups* 0)
+(incf *default-layout-smoke-loads*)
+
+(lime.config:defconfiguration default-layout-smoke-config
+  (:options :default-layout :monocle)
+  (:startup
+   (lambda (backend)
+     (dolist (head (lime.x11:backend-head-ids backend))
+       (assert (eq :monocle
+                   (lime.core:presentation-layout-mode
+                    (lime.core:current-presentation
+                     (lime.x11::x11-backend-world backend) head)))))
+     (incf *default-layout-smoke-startups*))))