montnaro@moose.crd.ge.com (Skip Montanaro) (12/14/89)
One thing that's always bugged me is that only a single line of a minibuffer
is displayed when it is visible in a window. I took the first crude steps
toward solving that dilemma this evening. The ELisp code that follows
rebinds the keys DEL, C-d, C-k, C-o, C-n, and C-q so that the minibuffer
grows or shrinks as necessary (up to at most minibuffer-max-window-height
lines) to display the entire minibuffer contents.
The code has only been minimally tested, but what's there appears to work.
Feedback is appreciated. Note that I left the point positioning commands for
another time. Feel free to send me any suggestions, bugs, whatever ...
Skip (montanaro@crdgw1.ge.com)
------------------------------------------------------------------------------
;;; minibuf.el - grow/shrink minibuffer window so all lines show
;;; Skip Montanaro - 12/13/89
;;; This file is not (yet) part of GNU Emacs, however, GNU copyleft applies
(defvar minibuffer-max-window-height 1
"*Maximum number of lines a minibuffer window can normally display.
Defaults to 1.")
;;; functions that can grow the minibuffer window
(defun minibuffer-open-line (arg)
"Open line in current minibuffer and enlarge if not all are visible."
(interactive "P")
(open-line (or arg 1))
(minibuffer-enlarge-window))
(defun minibuffer-next-line (arg)
"Goto next line in current minibuffer and enlarge if not all are visible."
(interactive "P")
(next-line (or arg 1))
(minibuffer-enlarge-window))
(defun minibuffer-quoted-insert (c)
"Read next input char and insert it. If ^J, enlarge window if not all visible."
(interactive "c")
(insert c)
(if (eq c ?\C-j) (minibuffer-enlarge-window)))
(defun minibuffer-enlarge-window ()
(if (and (< (window-height) minibuffer-max-window-height)
(or (not (pos-visible-in-window-p (point-min) nil))
(not (pos-visible-in-window-p (point-max) nil))))
(enlarge-window 1))
(goto-char (prog1 (point) (goto-char (point-min)) (recenter 0))))
;;; functions that can shrink the minibuffer window
(defun minibuffer-delete-char (arg)
"Like delete-char, but shrinks minibuffer window if possible."
(interactive "P")
(delete-char (or arg 1))
(minibuffer-shrink-window))
(defun minibuffer-kill-line (arg)
"Like kill-line, but shrinks minibuffer window if possible."
(interactive "P")
(kill-line arg)
(minibuffer-shrink-window))
(defun minibuffer-backward-delete-char (arg)
"Like backward-delete-char, but may shrink minibuffer window."
(interactive "P")
(backward-delete-char (or arg 1))
(minibuffer-shrink-window))
(defun minibuffer-shrink-window ()
"Shrink wrap minibuffer window about (point-min) and (point-max)."
(if (and (> (window-height) 1)
(< (count-lines (point-min) (point-max)) (window-height)))
(shrink-window (- (window-height) (count-lines (point-min) (point-max))))))
;;; common functions that move around in the minibuffer
;;; minibuffer replacements for
;;; previous-line
;;; end-of-buffer
;;; beginning-of-buffer
;;; scroll-up
;;; scroll-down
;;; are left as an exercise to the reader. I'm going to bed.
;;; and the key bindings.
;;; (should be a loop over the various minibuffer maps)
(define-key minibuffer-local-map "\C-o" 'minibuffer-open-line)
(define-key minibuffer-local-map "\C-n" 'minibuffer-next-line)
(define-key minibuffer-local-map "\C-q" 'minibuffer-quoted-insert)
(define-key minibuffer-local-map "\C-d" 'minibuffer-delete-char)
(define-key minibuffer-local-map "\C-k" 'minibuffer-kill-line)
(define-key minibuffer-local-map "\C-?" 'minibuffer-backward-delete-char)
(define-key minibuffer-local-completion-map "\C-o" 'minibuffer-open-line)
(define-key minibuffer-local-completion-map "\C-n" 'minibuffer-next-line)
(define-key minibuffer-local-completion-map "\C-q" 'minibuffer-quoted-insert)
(define-key minibuffer-local-completion-map "\C-d" 'minibuffer-delete-char)
(define-key minibuffer-local-completion-map "\C-k" 'minibuffer-kill-line)
(define-key minibuffer-local-completion-map "\C-?" 'minibuffer-backward-delete-char)
(define-key minibuffer-local-must-match-map "\C-o" 'minibuffer-open-line)
(define-key minibuffer-local-must-match-map "\C-n" 'minibuffer-next-line)
(define-key minibuffer-local-must-match-map "\C-q" 'minibuffer-quoted-insert)
(define-key minibuffer-local-must-match-map "\C-d" 'minibuffer-delete-char)
(define-key minibuffer-local-must-match-map "\C-k" 'minibuffer-kill-line)
(define-key minibuffer-local-must-match-map "\C-?" 'minibuffer-backward-delete-char)
(define-key minibuffer-local-ns-map "\C-o" 'minibuffer-open-line)
(define-key minibuffer-local-ns-map "\C-n" 'minibuffer-next-line)
(define-key minibuffer-local-ns-map "\C-q" 'minibuffer-quoted-insert)
(define-key minibuffer-local-ns-map "\C-d" 'minibuffer-delete-char)
(define-key minibuffer-local-ns-map "\C-k" 'minibuffer-kill-line)
(define-key minibuffer-local-ns-map "\C-?" 'minibuffer-backward-delete-char)