   (assert (minibufferp))
   (delete-region (minibuffer-prompt-end) (point-max))
   (apply 'insert args))
-
-(defun lusty-select-entry ()
-  "Select the highlighted entry in *Lusty-Matches*"
-  (interactive)
-  ; STEVE what if lusty--previous-printed-matches is nil?
-  ;       e.g. after NO-MATCHES
-  (assert lusty--previous-printed-matches) ; STEVE remove
-  (let ((selected-entry (nth lusty--highlighted-index
-                             lusty--previous-printed-matches)))
-    (ecase lusty--active-mode
-      (:file-explorer (lusty--file-explorer-select selected-entry))
-      (:buffer-explorer (lusty--buffer-explorer-select selected-entry)))))
 
 (defun lusty--file-explorer-select (entry)
   (let* ((path (minibuffer-contents-no-properties))

  "Launch the buffer mode of LustyExplorer"
  (interactive)
  (let* ((lusty--active-mode :buffer-explorer)
         (buffer (lusty--run 'read-buffer)))
    (when buffer
      (switch-to-buffer buffer))))

;; TODO:
;; - completion-ignore-case

(defvar lusty--ignored-extensions nil)
(defvar lusty--highlighted-index 0)
(defvar lusty--previous-printed-matches '())

(defun lusty-sort-by-fuzzy-score (strings abbrev)
  ;; TODO: case-sensitive when abbrev contains capital letter
