Popup Minibuffer al centro
Ecco un modo per fare esattamente quello che hai chiesto: visualizzare il minibuffer al centro dello schermo .
- Avere un telaio separato per il minibuffer
- Posizionalo al centro
- Solleva questo riquadro ogni volta che il minibuffer prende fuoco.
È relativamente facile da ottenere ed è quello che otterrai con il
oneonone.el
pacchetto (come sottolinea @Drew). Il problema con questo approccio è che il minibuffer viene utilizzato anche per i messaggi, quindi tenerlo nascosto non è molto conveniente. Da non preoccuparsi! Ho trovato un'altra soluzione.
- Fai visualizzare un secondo minibuffer su un telaio separato.
- Posizionalo al centro.
- Utilizzare il secondo frame per i comandi interattivi, mentre il minibuffer originale (primo) viene utilizzato per l'eco dei messaggi.
Implementazione
Per implementarlo, dobbiamo creare il frame del minibuffer all'avvio di 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))
"")
Quindi patch read-from-minibuffer
per usare questo secondo minibuffer, invece del minibuffer del telaio originale.
(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)
Questo potrebbe non funzionare con assolutamente tutto, ma ha funzionato su tutto quello che ho provato finora --- find-file
, ido-switch-buffer
,
eval-expression
. Se fai trovare eventuali eccezioni, è possibile correggere queste funzioni su una base caso per caso, chiamando
use-popup-minibuffer
su di loro.
Posizione vicino al punto
Per posizionare questo telaio del minibuffer vicino all'altezza del punto, è sufficiente definire qualcosa come la seguente funzione. Non è perfetto (in effetti, è terribile in molti casi), ma fa un buon lavoro nel valutare l'altezza del punto.
(defun point-screen-height ()
(* (/ (face-attribute 'default :height) 10) 2
(- (line-number-at-pos (point))
(line-number-at-pos (window-start)))))