(let ((screen (first (xinerama-query-screens
                      (xcontext-display
                       (current-xcontext))))))
  (current-xcontext
   (make-xcontext (current-xcontext)
                  xinerama-screen: screen)))