anchor.diff:                              (minibuffer *interface*)
                               :input-prompt (file-namestring directory)
                               :completion-function #'next/file-manager-mode::open-file-from-directory-completion-fn
  -                            :cleanup-function #'next/file-manager-mode::clean-up-open-file-mode))
  +                            :cleanup-function #'next/file-manager-mode::clean-up-file-manager-mode))
   
         (funcall next/file-manager-mode::*open-file-function* (namestring filename)))))
   
  
positive.code: (defparameter *open-file-function* #'open-file-function
    "Function triggered to open files.")
  
  (define-mode open-file-mode (minibuffer-mode)
      "Mode to open any file from the filesystem with fuzzy completion
  on the minibuffer. Specialize keybindings on this mode. See the
  command `open-file'."
  
negative.code:   (let ((directory next/file-manager-mode::*current-directory*)
          mode)
      ;; Allow the current minibuffer to recognize our keybindings.
      (setf mode (make-instance 'next/file-manager-mode::file-manager-mode
                                :buffer (minibuffer *interface*)))
      ;; TODO: The cleanup-function is called when the does `M-x open-file RET`,
      ;; effectively removing the mode from the minibuffer.  We need to create a
  