anchor.diff:  ;;; - a UI to list files
   ;;; - lazy loading for large directories
   ;;; - many things...
  -
  -;; TODO: a global isn't satisfactory. Two separate instances of open-file will interfere with this global variable.
  -;; - store it as a class slot ?
  -;; see also: uiop:with-current-directory, uiop:getcwd
  -(defvar *current-directory* download-manager::*default-download-directory*
  -  "Default directory to open files from. Defaults to the downloads directory.")
   
   (defparameter *open-file-in-new-buffer* t
     "If non-t, don't open files and directories in a new buffer.")
  
positive.code:   (let ((filename (get-candidate minibuffer)))
      (when (and (uiop:directory-pathname-p filename)
                 (uiop:directory-exists-p filename))
        (setf *current-directory* filename)
        (erase-input minibuffer)
        (update-display minibuffer))))
  
  
negative.code:   "Get the parent directory and update the minibuffer.
  
  Default keybindings: `M-Left' and `C-l'."
    (uiop:chdir "..")
    (erase-input minibuffer)
    (update-display minibuffer))
  
  