yas/popup-prompt

yasnippet-popup.el

(require 'popup)

(defun yas/popup-prompt (prompt choices &optional disp-fn)
  (defun memq-index (elem list)
    (defun memq-index-iter (list index)
      (cond ((atom list) (and (eq elem list) index))
	    ((eq elem (car list)) index)
	    (t (memq-index-iter (cdr list) (+ 1 index)))))
    (memq-index-iter list 0))
    (let* ((formatted-choices 
	    (or (and disp-fn
		     (mapcar disp-fn choices))
		choices))
	   (chosen (and formatted-choices
			(popup-menu* formatted-choices))))
      (nth (memq-index chosen formatted-choices) choices)))