Minibuffer pop-up no centro
Aqui está uma maneira de fazer exatamente o que você pediu: exiba o minibuffer no centro da tela .
- Tenha um quadro separado para o minibuffer
- Posicione-o no centro
- Aumente esse quadro sempre que o minibuffer ganhar foco.
Isso é relativamente fácil de conseguir e é o que você obterá com o
oneonone.el
pacote (como o @Drew aponta). O problema com essa abordagem é que o minibuffer também é usado para mensagens, portanto, mantê-lo oculto não é algo muito conveniente. Não se preocupe! Eu vim com outra solução.
- Tenha um segundo minibuffer exibido em um quadro separado.
- Posicione-o no centro.
- Use o segundo quadro para comandos interativos, enquanto o minibuffer original (primeiro) é usado para ecoar mensagens.
Implementação
Para implementar isso, precisamos criar o quadro minibuffer na inicialização do emacs.
(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))
"")
Em seguida, fazemos o patch read-from-minibuffer
para usar esse segundo minibuffer, em vez do minibuffer do quadro original.
(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)
Isso pode não funcionar com absolutamente tudo, mas funcionou em tudo o que eu tentei até agora --- find-file
, ido-switch-buffer
,
eval-expression
. Se você fazer encontrar exceções, você pode corrigir estas funções numa base caso-a-caso, chamando
use-popup-minibuffer
sobre eles.
Posição Próximo Ponto
Para posicionar esse quadro do minibuffer próximo à altura do ponto, basta definir algo como a seguinte função. Não é perfeito (na verdade, é horrível em muitos casos), mas faz um trabalho decente ao estimar a altura do ponto.
(defun point-screen-height ()
(* (/ (face-attribute 'default :height) 10) 2
(- (line-number-at-pos (point))
(line-number-at-pos (window-start)))))