                    (ncol (length cols))
                    (col 0)
                    (nrows 0)
-                   is-root-p)
+                   is-root-p
+                   window)
               ;; (log-expr choices)
               ;; (log-expr cols)
               ;; (create temp buffer)


(defgroup log4slime nil
  "Customization for log4slime Slime integration"
  :prefix "log4slime-")

(defface log4slime-package-face
  '((((background dark)) (:foreground "#7474FFFFFFFF" :background "DimGray")) ; ~ cyan

                (setq mode-line-format nil))

              (unless (eq expert 'expert)
                (let ((window-min-height 2))
                  ;; (log-expr nrows (window-height)
                  ;;           (- (window-height) 1 nrows))

