Popup Minibuffer у центрі
Ось спосіб зробити саме те, що ви просили: відобразити мінібуфер у центрі екрана .
- Мають окремий каркас для мінібуфера
- Розташуйте його в центрі
- Піднімайте цей кадр, коли мінібуфер отримує фокус.
Це порівняно легко досягти, і це ви отримаєте з
oneonone.elпакетом (як вказує @Drew). Проблема такого підходу полягає в тому, що мінібуфер також використовується для повідомлень, тому зберігати його приховано - це не щось дуже зручне. Не хвилюйся! Я придумав інше рішення.
- Є другий мінібуфер відображається на окремій рамі.
- Розташуйте його в центрі.
- Використовуйте другий кадр для інтерактивних команд, тоді як оригінальний (перший) мінібуфер використовується для ехо-повідомлень.
Впровадження
Для цього нам потрібно створити кадр мінібуфера при запуску 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))
"")
Тоді ми виправляємо read-from-minibufferвикористання цього другого мінібуфера замість оригінального мінібуфера кадру.
(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)
Це не може працювати абсолютно з усім, але він працював на всі , що я намагався до сих пір --- find-file, ido-switch-buffer,
eval-expression. Якщо ви робите знайти якесь - або виключення, ви можете виправити ці функції на індивідуальній основі випадку, зателефонувавши
use-popup-minibufferна них.
Позиція біля точки
Щоб розмістити цю рамку мінібуфера поблизу висоти точки, просто визначте щось на зразок наступної функції. Це не ідеально (насправді це жахливо у багатьох випадках), але це робить гідну роботу з визначення висоти точки.
(defun point-screen-height ()
(* (/ (face-attribute 'default :height) 10) 2
(- (line-number-at-pos (point))
(line-number-at-pos (window-start)))))