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: (define-key :scheme :vi-normal "C-x C-f" #'open-file)
  
  ;; This currently dosen't work, we must use the keymap at the mode definition:
  ;; (define-key :mode 'open-file-mode  "M-Left" #'display-parent-directory)
  
negative.code: (defparameter *open-file-function* #'open-file-function
    "Function triggered to open files.")
  
  (define-mode file-manager-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'."
  