anchor.diff:  The default keybinding is `C-x C-f'.
   
   Note: this feature is alpha, get in touch for more!"
  -  (let ((directory next/file-manager-mode::*current-directory*))
  +  ;; TODO: How do we set the current directory permanently?
  +  (uiop:with-current-directory ((uiop:getcwd))
       ;; Allow the current minibuffer to recognize our keybindings.
       (with-result (filename (read-from-minibuffer
                               (make-minibuffer
                                :default-modes '(next/file-manager-mode::file-manager-mode minibuffer-mode)
  -                             :input-prompt (file-namestring directory)
  +                             :input-prompt (file-namestring (uiop:getcwd))
                                :completion-function #'next/file-manager-mode::open-file-from-directory-completion-filter)))
   
         (funcall next/file-manager-mode::*open-file-function* (namestring filename)))))
  
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:        "M-left" #'display-parent-directory)))))
  
  (serapeum:export-always 'open-file-from-directory-completion-filter)
  (defun open-file-from-directory-completion-filter (input &optional (directory (uiop:getcwd)))
    "Fuzzy-match files and directories from DIRECTORY."
    (let ((filenames (uiop:directory-files directory))
          (dirnames (uiop:subdirectories directory)))
      (fuzzy-match input (append filenames dirnames))))
  