(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*))))