Re: display-buffer-alist actions

[Stefan Monnier <monnier@iro.umontreal.ca>]

> #+begin_src emacs-lisp
>   (setq display-buffer-alist
>         '(("^\\*Async Shell Command*" . (display-buffer-no-window))
>           ("some regexp that works fine"
>            (display-buffer-in-side-window)
>            (window-width . 0.28)
>            (side . left)
>            (slot . 0))))
> #+end_src 
>
> I have two monitors, one in landscape for which the above is ideal,
> although I do not quite understand it.  I got it from somewhere on the
> Interweb...

IIRC (my memory is fuzzy, and I'm only to blame for the design of
this monster ;-) you can do:

    (setq display-buffer-alist
          '(("^\\*Async Shell Command*" . (display-buffer-no-window))
            ("some regexp that works fine"
             my-tall-display-buffer-in-side-window
             (window-width . <something>)
             (side . bottom)
             (slot . 0))
            ("some regexp that works fine"
             display-buffer-in-side-window
             (window-width . 0.28)
             (side . left)
             (slot . 0))))

    (defun my-tall-display-buffer-in-side-window (&rest args)
      (when (my-current-monitor-is-tall)
        (apply #'display-buffer-in-side-window args)))

So the middle entry is only used when `my-current-monitor-is-tall`
returns non-nil.

An alternative would be something like:

    (setq display-buffer-alist
          '(("^\\*Async Shell Command*" . (display-buffer-no-window))
            ("some regexp that works fine"
             my-display-buffer-in-side-window
             (if-tall ((window-width . <something>)
                       (side . bottom))
                      ((window-width . 0.28)
                       (side . left)))
             (slot . 0))))

    (defun my-display-buffer-in-side-window (buf alist)
      (display-buffer-in-side-window
       buf (append (nth (if (my-current-monitor-is-tall) 1 2)
                        (assq 'if-tall alist))
                   alist)))


-- Stefan