;;; package --- Summary:
;;; Commentary:
;;; Code:

(defvar auxmenu-frame-alist nil)

(defun auxmenu-popup-frame (prompt collection display width height &rest args)
  ""
  (let ((frame (alist-get display auxmenu-frame-alist)))
    (when (equal frame nil)
      (when (equal display nil)
        (error "Must specify display"))

      (push `(,display . ,(make-frame
                           `((minibuffer . only)
                             (name . "emacs-completing-read-float")
                             (unsplittable . t)
                             (no-other-frame . t)
                             (width . ,width)
                             (height . ,height)
                             (display . ,display)
                             (left . 0.5)
                             (top . 0.5))))
            auxmenu-frame-alist)
      (setq frame (alist-get display auxmenu-frame-alist)))
    (make-frame-visible frame)
    (raise-frame frame)
    (with-selected-frame frame
      (unwind-protect
          (let ((selection (apply #'completing-read prompt collection args)))
            (make-frame-invisible frame)
            selection)
        (make-frame-invisible frame)))))

(provide 'auxmenu)
;;; auxmenu.el ends here