Re: Creating a bottom window?

[TheFlyingDutchman <zzbbaadd@aol.com>]

On Jul 22, 6:35 am, Elena <egarr...@gmail.com> wrote:
> Hello,
>
> how do you create a window as wide as its frame and positioned at the
> bottom, no matter how many windows are there at the moment? I mean, a
> window positioned like the `shrink-fit.el' in this picture:http://www.emacswiki.org/emacs/DrewsEmacsWindowCallouts
>
> I've checked the ELisp reference about windows, but it seems you can
> just split existing windows.
>

I also don't see any other way to create a new window besides
splitting windows.

This code doesn't satisfy "no matter how many windows are there" - it
only handles 1 or 2 windows, and also assumes equal sized windows, so
may not be of any value. It does allow the number of bottom window
lines and bottom window buffer to be spacified.


; window lines seems to include the mode line
(setq bottom_window_lines 8)
(setq bottom_window_buffer "*scratch*")


(defun MakeBottomWindow ()
  (interactive)
  (let ( (num_windows (length (window-list nil 0 nil))) )
    (cond
     ( (= num_windows 1)
        (split-window-vertically (- (window-height)
                                    bottom_window_lines))
        (when (get-buffer bottom_window_buffer)
          (set-window-buffer (next-window)
                             bottom_window_buffer)  )
      )
    ( (= num_windows 2)
       (if (FrameHasTwoHorizontalWindows)
         (BottomWithTwoHorizontalWindows)
         (BottomWithTwoVerticalWindows)  )
    )
    ( (> num_windows 2)
      (message "MakeBottomWindow can't handle more than two windows")
      (beep)
    )
   )
  )
)

(defun BottomWithTwoHorizontalWindows ()
   (get-buffer-create " work")
   (delete-other-windows)
   (switch-to-buffer " work")
   (split-window-vertically (- (window-height)
                            bottom_window_lines))
   (split-window-horizontally)

   (set-window-buffer nil leftWindowBuffer)
   (other-window 1)
   (set-window-buffer nil rightWindowBuffer)
   (other-window 1)
   (when bottom_window_buffer
       (set-window-buffer nil
                        bottom_window_buffer)
   (other-window 1)  )
   (when rightWindowActive
     (other-window 1)  )
   (kill-buffer " work")
)

(defun BottomWithTwoVerticalWindows ()
   (unless topWindowActive
     (other-window 1)   )
   (shrink-window (round (/ bottom_window_lines 2)))
   (other-window 1)
   (split-window-vertically (- (window-height)1
                               bottom_window_lines))
   (when bottom_window_buffer
       (set-window-buffer (next-window)
                        bottom_window_buffer)  )
   (if topWindowActive
     (other-window -1)   )
)

(defun FrameHasTwoHorizontalWindows ()
"are there two side by side windows - from window-split-horizontally"
  (interactive)
  (setq currentWindow (next-window) )
  (setq windowList (window-list nil 0 nil))
  (setq window1Coords (window-edges (car windowList)))
  (setq window2Coords (window-edges (car (cdr windowList))))
  (if (/= (length windowList) 2)
     nil
     (if (= (car window1Coords) (car window2Coords))
          (progn
            (if (< (nth 1 window1Coords)
                   (nth 1 window2Coords) )
               (progn
	         (setq topWindow (car windowList) )
	         (setq bottomWindow (nth 1 windowList) )
               )
	       (setq bottomWindow (car windowList) )
	       (setq topWindow (nth 1 windowList) )
            )
            (if (eq (next-window) topWindow)
               (setq topWindowActive nil)
               (setq topWindowActive t)
            )
            nil
          )
          (if (< (car window1Coords) (car window2Coords) )
              (progn
                (setq leftWindow (car windowList) )
                (setq rightWindow (car (cdr windowList) ) )
              )
              (setq leftWindow (car (cdr windowList) ) )
              (setq rightWindow (car windowList) )
          )
          (setq leftWindowBuffer (window-buffer leftWindow) )
          (setq rightWindowBuffer (window-buffer rightWindow) )
          (if (eq (next-window) leftWindow)
               (setq rightWindowActive t)
               (setq rightWindowActive nil)
          )
          t
     )
  )
)


(global-set-key (kbd "<f8>") 'MakeBottomWindow)