Shrinking grep/compile window to fit contents of buffer

Shrinking grep/compile window to fit contents of buffer

[Nordlöw]

How can I make emacs call shrink-window-if-larger-than-buffer() in the
message buffer upon completion of compile/grep?

Thanks in advance,
Nordlöw

Re: Shrinking grep/compile window to fit contents of buffer

[Lennart Borgman (gmail)]

Nordlöw wrote:
> How can I make emacs call shrink-window-if-larger-than-buffer() in the
> message buffer upon completion of compile/grep?
> 
> Thanks in advance,
> Nordlöw


(info "(elisp) Standard Hooks")

Look at compilation-finish-functions.

Re: Shrinking grep/compile window to fit contents of buffer

[Nordlöw]

On Nov 13, 9:52 am, "Lennart Borgman (gmail)"
<lennart.borg...@gmail.com> wrote:
> Nordlöw wrote:
> > How can I make emacs call shrink-window-if-larger-than-buffer() in the
> > message buffer upon completion of compile/grep?
>
> > Thanks in advance,
> > Nordlöw
>
> (info "(elisp) Standard Hooks")
>
> Look at compilation-finish-functions.

I thought the following code should work:

(defun shrink-compilation-window-if-larger-than-buffer (buf str)
  (shrink-window-if-larger-than-buffer)
  )
(if t
    (add-hook 'compilation-finish-functions
	      'shrink-compilation-window-if-larger-than-buffer)
  )

but nothing happens. I believe I am missing a way to convert the BUF
argument to its window since shrink-window-if-larger-than-buffer()
needs a window as argument the above code does nothing yet.

/Nordlöw

Re: Shrinking grep/compile window to fit contents of buffer

[Juanma Barranquero]

[-- Attachment #1: Type: text/plain, Size: 179 bytes --]

On 11/13/07, Nordlöw <per.nordlow@gmail.com> wrote:

> I believe I am missing a way to convert the BUF
> argument to its window

Try (get-buffer-window buf)

             Juanma

[-- Attachment #2: Type: text/plain, Size: 152 bytes --]

_______________________________________________
help-gnu-emacs mailing list
help-gnu-emacs@gnu.org
http://lists.gnu.org/mailman/listinfo/help-gnu-emacs

Re: Shrinking grep/compile window to fit contents of buffer

[Nordlöw]

Great! Thanks! Here is the code that solves my problem:

;;;
---------------------------------------------------------------------------
;; Compilation Autoshrink

(defun shrink-compilation-window-if-larger-than-buffer (buf str)
  (shrink-window-if-larger-than-buffer (get-buffer-window buf))
  )

(defcustom compilation-window-shrink-to-fit t
  "Define to non-nil to make compilation/grep-window shrink to fit its
  contents.")
(if compilation-window-shrink-to-fit
    (progn
      (add-hook 'compilation-finish-functions
		'shrink-compilation-window-if-larger-than-buffer)
      (setq compilation-window-height nil)
      (setq grep-window-height nil)
      )
  (progn
    ;; set to a specific height or nil if we use half of buffer height
    (setq compilation-window-height 10)
    (setq grep-window-height 20)
  ))

/Nordlöw

Re: Shrinking grep/compile window to fit contents of buffer

[David Rod]

an excellent link.  base url describes mule and everything useful
--