¿Cómo forzar a Emacs a no mostrar el búfer en una ventana específica?

lisp elisp

Question

Mi configuración de Windows se ve así:

          +----------+-----------+
      |          |           |
      |          |           |
      |          |           |
      |          |           |
      |          |           |
      |          +-----------+
      |          |           |
      +----------+-----------+

Y uso la ventana inferior derecha para pantallas especiales (como ayuda, finalización, etc.), pero emacs insiste en usar esa ventana cuando llamo comandos ( find-file-other-window , etc.) que usan display-buffer y cambian el tamaño Esa ventana también. Es molesto ... ¿Hay alguna manera de forzar a emacs a NO usar esas ventanas? Estaba pensando en recomendar display-buffer , pero es una función en c. Tiene alguna idea sobre esto?

EDITAR:

Basado en gran medida en la respuesta de Trey, esto es lo que me funciona hasta ahora:

(setq special-display-function ''my-display-buffer)
(setq special-display-regexps ''(".*"))

(defun display-special-buffer (buf)
  "put the special buffers in the right spot (bottom rigt)"
    (let ((target-window (window-at (- (frame-width) 4) (- (frame-height) 4)))
          (pop-up-windows t))
      (set-window-buffer target-window buf)
      target-window))

(defun my-display-buffer (buf)
  "put all buffers in a window other than the one in the bottom right"
  (message (buffer-name  buf))
  (if (member (buffer-name buf) special-display-buffer-names)
      (display-special-buffer buf)
      (progn
        (let ((pop-up-windows t)
              (windows (delete (window-at (- (frame-width) 4) (- (frame-height) 4))
                         (delete (minibuffer-window) (window-list)))))
          (message (buffer-name (window-buffer (car windows))))
          (set-window-buffer (car (cdr windows)) buf)
          (car (cdr windows))))))

Answer 1

Estaba pensando en recomendar display-buffer, pero es una función en c.

"display-buffer is an interactive Lisp function in `window.el''."

Además, puedes aconsejar funciones C de todos modos.

Answer 2

Bueno, alguien ya hizo la misma pregunta para completar . Y escribí una answer que parecía funcionar bastante bien.

Parece que podría usar esa misma solución, excepto que en lugar de agregar special-display-buffer-names , puede usar la variable special-display-regexps . Así que algo a lo largo de las líneas de:

(add-to-list ''special-display-regexps ''(".*" my-display-buffers))

(defun my-display-buffers (buf)
  "put all buffers in a window other than the one in the bottom right"
  (let ((windows (delete (window-at (- (frame-width) 2) (- (frame-height) 4))
                         (delete (minibuffer-window) (window-list))))
    (if (<= 2 (length windows))
        (progn 
          (select-window (cadr windows))
          (split-window-vertically)))
    (let ((pop-up-windows t))
      (set-window-buffer (car windows) buf)
      (car windows)))))

Obviamente, tendrá que modificar la expresión regular para que no coincida con la *Help* y otros buffers que realmente desea en la ventana inferior derecha.

En cuanto a aconsejar display-buffer , eso funcionaría. Puede recomendar funciones escritas en c, las recomendaciones funcionan en casi todos los casos que desee, excepto cuando las funciones se llaman desde c, o avisar de macros (que no funciona porque las macros generalmente ya están expandidas en todos los lugares en que se usan ).

Answer 3

Quizás algo como esto podría funcionar:

(defun display-buffer-avoiding-lr-corner (buffer &optional not-this-window)
  (save-selected-window
    (when (buffer-file-name buffer)
      (select-window (window-at (- (frame-width) 1)
                                (- (frame-height) 2))))
    (let ((display-buffer-function nil))
      (display-buffer buffer not-this-window))))

(setq display-buffer-function ''display-buffer-avoiding-lr-corner)

Answer 4

Tal vez tenga sentido para usted hacer que esta ventana inferior derecha sea dedicada por set-window-dedicated-p . Entonces esta ventana se ignorará en las operaciones como find-file-other-window que desee.