Re: how having the basename of a file or directory

[Thierry Volpiatto <thierry.volpiatto@gmail.com>]

Stefan Monnier <monnier@iro.umontreal.ca> writes:

>> Yes thanks, that's work too, but it would be nice to do not have to take
>> care of that:
>
>> (file-name-nondirectory "path/to/a/directory")
>> should return ==> directory
>
> It does.
>
>> (file-name-nondirectory "path/to/a/file")
>> should return ==> file
>
> It does.
>
>> So modifying `file-name-nondirectory' or creating a basename function
>> or macro like:
>
>> (defun basename (fname)
>>   (if (file-directory-p fname)
>>       (let ((dirname (directory-file-name fname)))
>>         (file-name-nondirectory dirname))
>>       (file-name-nondirectory fname)))
>
> That won't work on (basename "/non/existing/thing/").
> You really want to use (file-name-nondirectory (directory-file-name fname))
Indeed, yes, thanks Stefan, but something like


(defun basename (fname)
  (if (or (file-directory-p fname)
          (string-match "/$" fname))
      (let ((dirname (directory-file-name fname))) 
        (file-name-nondirectory dirname))
      (file-name-nondirectory fname)))

would work and be useful.

-- 
A+ Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997