Fix `compiler-explorer-layout' in noninteractive mode

* compiler-explorer.el (compiler-explorer-layout): Don't really do
anything in --batch (`noninteractive') mode.

compiler-explorer.el

@@ -1629,17 +1629,22 @@ LAYOUT must be as described in `compiler-explorer-layouts'."
               (do-it upper)
               (with-selected-window lower-window
                 (do-it lower)))))))
-    (or layout (setq layout compiler-explorer-default-layout))
-    (when (numberp layout)
-      (setq layout (% layout (length compiler-explorer-layouts)))
-      (setq compiler-explorer--last-layout layout))
-    (when (window-dedicated-p)
-      (unless compiler-explorer--local-mode
-        (select-window (split-window-horizontally)))
-      (set-window-dedicated-p (selected-window) nil))
-    (delete-other-windows)
-    (do-it layout)
-    (balance-windows)))
+    (if noninteractive
+        (display-warning
+         'compiler-explorer
+         "Layout not possible as this is noninteractive Emacs session"
+         :note)
+      (or layout (setq layout compiler-explorer-default-layout))
+      (when (numberp layout)
+        (setq layout (% layout (length compiler-explorer-layouts)))
+        (setq compiler-explorer--last-layout layout))
+      (when (window-dedicated-p)
+        (unless compiler-explorer--local-mode
+          (select-window (split-window-horizontally)))
+        (set-window-dedicated-p (selected-window) nil))
+      (delete-other-windows)
+      (do-it layout)
+      (balance-windows))))
 
 (defun compiler-explorer-load-example (example)
   "Load an example named EXAMPLE.