Combine find file at point and find file in project

Question

I'm very new to customizing Emacs, and haven't written Elisp commands before. I'm struggling to find a command and key binding that combines find-file-at-point and find-file-in-project (or similar), perhaps a:

M-x find-file-in-project-at-point

such that given a file/folder structure:

├── main.txt
├── file1.txt
└── somepath
    └── file2.txt

where I'm editing main.txt

% cat main.txt
line 1 file1.txt
line 2 file2.txt

and a shortcut will find file2.txt when my cursor is somewhere on the text of file2.txt - despite it being located in ./somepath/file2.txt. It would be safe to assume to start the search relative to main.txt. Ideally, open the file if only 1 match is found, otherwise list possible choices in minibuffer.

I have had success opening file1.txt from main.txt OK, even w/o confirmation with this pretty neat command.

I'm typically not dealing with a "project" (.git) folder structures, & folder/file structure isn't that large where an overly complex package is needed (where it might to run/index in background).

My apologies if I missed an obvious solution.

Other commands & packages functions that appear useful, but I don't have the expertise to combine them in the way I want:

• Macro to open the file path under cursor without confirmation.
• FFAP: find-file-at-point
• FFIP: find-file-in-project
• ivy, swipe, counsel
• projectile
• directory-files-recursively

Any advice?

Answer 1

Interesting idea, I never thought I need find file at point. I usually just use expand-region.el to select file name or partial of file path. Then M-x find-file-in-project-by-selected.

Any way, here is my implementation of find file at point:

(defun find-file-in-project-at-point (&optional open-another-window)
  "Find file whose name is guessed around point.
If OPEN-ANOTHER-WINDOW is not nil, the file will be opened in new window."
  (interactive "P")
  (let* ((filename (or (ffap-file-at-point)
                       (thing-at-point 'filename)
                       (thing-at-point 'symbol)
                       (read-string "No file name at point. Please provide file name:")))
         ;; filename could be a path
         (ffip-match-path-instead-of-filename t))
    (cond
     (filename
      ;; strip prefix "../../" or "././" from file name
      (setq filename (replace-regexp-in-string "^\\(\\.\\.*/\\)*" "" filename))
      (ffip-find-files filename open-another-window))
     (t
      (message "No file name is provided.")))))

Either copy this function into your .emacs or just upgrade find-file-in-project to v5.5.0