17 lines
580 B
Common Lisp
17 lines
580 B
Common Lisp
(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*))))
|