anchor.diff:        (update-display minibuffer))))
   
   (defun clean-up-open-file-mode ()
  -  "Remove open-file-mode from the minibuffer modes, so that we don't clutter the usual minibuffers with our keybindings."
  +  "Remove `open-file-mode' from the minibuffer modes.
  +So that we don't clutter the usual minibuffers with our keybindings."
     (setf (modes (minibuffer *interface*))
  +        ;TODO: be more general. Use delete-if.
           (last (modes (minibuffer *interface*)))))
   
   (define-command open-file ()
     "Open a file from the filesystem.
   
  -The user is prompted with the minibuffer, files are browsable with the
  +The user is prompted with the minibuffer, files are browsable with
   fuzzy completion.
   
   The default directory is the one computed by
  -`download-manager:default-download-directory' (certainly `~/Downloads').
  +`download-manager:default-download-directory' (usually `~/Downloads').
   
   Press `Enter' to visit a file, `M-Left' or `C-l' to go one directory
   up, `M-Right' or `C-j' to browse the directory at point.
  
positive.code: Note: this feature is alpha, get in touch for more !"
    (let ((directory *current-directory*)
          mode)
      ;; "Activate" open-file-mode
      (setf mode (make-instance  'open-file-mode))
      ;; populate needed slots...
      (setf (buffer mode) (minibuffer *interface*))
      ;; Allow the current minibuffer to recognize our keybindings.
      (push mode (modes (minibuffer *interface*)))
      (with-result (filename (read-from-minibuffer
                              (minibuffer *interface*)
  
negative.code:           "M-Right" 'enter-directory)
  
          (define-key :keymap vi-map
            "M-Right" 'enter-directory
            "M-Left" 'display-parent-directory)
  
          (list :emacs emacs-map
  