Wyskakujący minibufor w centrum
Oto sposób na wykonanie dokładnie tego, o co prosiłeś: wyświetl minibufor na środku ekranu .
- Mają osobną ramkę dla minibufora
- Ustaw go na środku
- Podnoś tę ramkę, gdy minibuffer zyska ostrość.
Jest to stosunkowo łatwe do osiągnięcia i właśnie to otrzymasz wraz z
oneonone.elpakietem (jak wskazuje @Drew). Problem z tym podejściem polega na tym, że minibufor jest również używany do przesyłania wiadomości, więc ukrywanie go nie jest zbyt wygodne. Nie martwić się! Wymyśliłem inne rozwiązanie.
- Wyświetl drugi minibufor w osobnej ramce.
- Ustaw go na środku.
- Drugiej ramki używaj do komend interaktywnych, podczas gdy oryginalny (pierwszy) minibufor służy do echa wiadomości.
Realizacja
Aby to zaimplementować, musimy utworzyć ramkę minibufora podczas uruchamiania emacsa.
(defvar endless/popup-frame-parameters
'((name . "MINIBUFFER")
(minibuffer . only)
(height . 1)
;; Ajust this one to your preference.
(top . 200))
"Parameters for the minibuffer popup frame.")
(defvar endless/minibuffer-frame
(let ((mf (make-frame endless/popup-frame-parameters)))
(iconify-frame mf) mf)
"Frame holding the extra minibuffer.")
(defvar endless/minibuffer-window
(car (window-list endless/minibuffer-frame t))
"")
Następnie łatamy, read-from-minibufferaby używać tego drugiego minibufora zamiast oryginalnego minibufora ramki.
(defmacro with-popup-minibuffer (&rest body)
"Execute BODY using a popup minibuffer."
(let ((frame-symbol (make-symbol "selected-frame")))
`(let* ((,frame-symbol (selected-frame)))
(unwind-protect
(progn
(make-frame-visible endless/minibuffer-frame)
(when (fboundp 'point-screen-height)
(set-frame-parameter
endless/minibuffer-frame
'top (point-screen-height)))
(select-frame-set-input-focus endless/minibuffer-frame 'norecord)
,@body)
(select-frame-set-input-focus ,frame-symbol)))))
(defun use-popup-minibuffer (function)
"Rebind FUNCTION so that it uses a popup minibuffer."
(let* ((back-symb (intern (format "endless/backup-%s" function)))
(func-symb (intern (format "endless/%s-with-popup-minibuffer"
function)))
(defs `(progn
(defvar ,back-symb (symbol-function ',function))
(defun ,func-symb (&rest rest)
,(format "Call `%s' with a poupup minibuffer." function)
,@(list (interactive-form function))
(with-popup-minibuffer
(apply ,back-symb rest))))))
(message "%s" defs)
(when (and (boundp back-symb) (eval back-symb))
(error "`%s' already defined! Can't override twice" back-symb))
(eval defs)
(setf (symbol-function function) func-symb)))
;;; Try at own risk.
(use-popup-minibuffer 'read-from-minibuffer)
;;; This will revert the effect.
;; (setf (symbol-function #'read-from-minibuffer) endless/backup-read-from-minibuffer)
;; (setq endless/backup-read-from-minibuffer nil)
To może nie działać z absolutnie wszystko, ale to działało na wszystko próbowałem dotąd --- find-file, ido-switch-buffer,
eval-expression. Jeśli zrobić znaleźliśmy żadnych wyjątków, można załatać te funkcje na zasadzie case-by-case wywołując
use-popup-minibufferna nich.
Ustaw blisko punktu
Aby ustawić tę ramkę minibufora w pobliżu wysokości punktu, wystarczy zdefiniować coś w rodzaju następującej funkcji. To nie jest idealne (w rzeczywistości jest okropne w wielu przypadkach), ale porządnie szacuje wysokość punktu.
(defun point-screen-height ()
(* (/ (face-attribute 'default :height) 10) 2
(- (line-number-at-pos (point))
(line-number-at-pos (window-start)))))