 ;;  shows the *Lusty-Completions* buffer, which updates dynamically as you
 ;;  type.
 ;;
+;;  Respects these variables:
+;;    completion-ignored-extensions
+;;    completion-ignore-case TODO
+;;    read-file-name-completion-ignore-case TODO
+;;    read-buffer-completion-ignore-case TODO
+;;
 
 ;;; Code:
 


;; Break entries into sublists representing columns.
(defun lusty-columnize (entries column-count)
  (let ((rows (ceiling (/ (length entries)
                          (float column-count)))))
    (nreverse
     (mapcar 'nreverse
             (reduce (lambda (lst e)
                       (if (< (length (car lst))
                              rows)
                           (push e (car lst))
                         (push (list e) lst))
                       lst)


;;;###autoload
(defun lusty-file-explorer ()
  "Launch the file/directory mode of LustyExplorer"
  (interactive)
  (let* ((lusty--active-mode :file-explorer)
         (file (lusty--run 'read-file-name)))
