一番左下の window を探す #xyzzy

gistfile1.cl

(in-package :editor)

(defun find-most-left/bottom-window (&optional (start (selected-window)))
  (if (= (count-windows) 1)
    (selected-window)
    (do* ((win (next-window start) (next-window win))
          (coord (window-coordinate win) (window-coordinate win))
          (most (cons start (window-coordinate start))))
        ((eql win start)
         (car most))
      (when (and (zerop (first coord))
                 (or (not (zerop (first (cdr most))))
                     (> (second coord) (second (cdr most)))))
        (setq most (cons win coord))))))