Re: ffap: if file at point doesn't exist, but its directory does

Re: ffap: if file at point doesn't exist, but its directory does

[Kevin Rodgers]

Dan Jacobson wrote:

> Ffap gentlemen, assume your cursor is on
> "/usr/X11R6/lib/X11/xdm/Xreset" but the file doesn't exist, but the
> directory does.  Well, ffap should (optionally ask, and) take you to a
> dired of that directory... better than the current nothing.

Nah.  C-x d.


-- 
Kevin Rodgers

Re: ffap: if file at point doesn't exist, but its directory does

[Dan Jacobson]

>> Ffap gentlemen, assume your cursor is on
>> "/usr/X11R6/lib/X11/xdm/Xreset" but the file doesn't exist, but the
>> directory does.  Well, ffap should (optionally ask, and) take you to a
>> dired of that directory... better than the current nothing.

K> Nah.  C-x d.

Don't be silly.  The whole point is what to do when the file doesn't
exist.  If I knew that in the first place, I would have hit C-x d.

And, smartypants, just try hitting C-x d with the cursor placed on a
path where the file doesn't exist, but the directory does.  What does
your C-x d prompt with there?  Nothing, nada, nilch*, just the current
directory.

*coined new word. 10 points.

ffap: if file at point doesn't exist, but its directory does

[Dan Jacobson]

Ffap gentlemen, assume your cursor is on
"/usr/X11R6/lib/X11/xdm/Xreset" but the file doesn't exist, but the
directory does.  Well, ffap should (optionally ask, and) take you to a
dired of that directory... better than the current nothing.

Re: ffap: if file at point doesn't exist, but its directory does

[Juri Linkov]

Dan Jacobson <jidanni@jidanni.org> writes:
> Ffap gentlemen, assume your cursor is on
> "/usr/X11R6/lib/X11/xdm/Xreset" but the file doesn't exist, but the
> directory does.  Well, ffap should (optionally ask, and) take you to a
> dired of that directory... better than the current nothing.

I have another problem with ffap: it can't find a file if file name
contains spaces.  I fixed this problem by the new function:

(defun my-find-file-at-point-or-region (&optional arg)
  "Find filename at point or selected by region.
This function is useful, when filename contains spaces, and so can't
be fully matched by `find-file-at-point'.  In this case user should
manually select region around the full filename and invoke this command.
This function also maps UNIX filenames to Window$ filenames."
  (interactive "P")
  (let ((filename
         (if (and transient-mark-mode mark-active)
             (buffer-substring-no-properties (mark) (point))
           (ffap-string-at-point))))
    (and (eq system-type 'windows-nt)
         filename
         (string-match "^/dos/\\([A-Za-z]\\)\\(.*\\)" filename)
         (setq filename (concat (match-string 1 filename) ":"
                                (match-string 2 filename))))
    (or (and filename (file-exists-p filename))
        (setq filename (ffap-guesser)))
    (find-file-at-point (ffap-prompter filename))))

But I think it is not the right thing yet.  Ffap should be fixed
to pick up full file name with spaces without requiring the user
to select a region.

-- 
http://www.jurta.org/emacs/