Embark 用浮动窗口显示
(progn ;; Embark 是菜单，理应浮动
(defun posframe-display-buffer (buffer)
(let ((default-fgc (face-attribute 'default :foreground))
(default-bgc (face-attribute 'default :background))
(hl (face-attribute 'highlight :background)))
(when buffer (posframe-show
buffer
:position (point)
:poshandler 'posframe-poshandler-frame-center
:font-height 1.0
:font-width 1.0
:width 120
:height 20
:border-width 5
:left-fringe 20
:right-fringe 20
:border-color hl
:background-color default-bgc))))
(defun embark-get-buffer-pos-display (orig-fun)
(interactive)
(let* ((orig-result (funcall orig-fun)))
(lambda (&optional keymap targets prefix)
(let ((result (funcall orig-result keymap targets prefix)))
(when (and result (windowp result))
(posframe-display-buffer (window-buffer result))
(delete-window result))))))
(advice-add #'embark-verbose-indicator :around #'embark-get-buffer-pos-display)
)