如何获取绝对文件名的非目录部分？

Question

我想问一下如何从lisp中的交互式命令中获取文件名。

顺便说一句，这是取自另一个 stackoverflow 线程。

将剪贴板上的图像粘贴到 Emacs 组织模式文件而不保存它

(defun markdown-insert-clipboard-image (&optional file)
  (interactive "G")
  (shell-command (concat "pngpaste " file))
  (insert (concat "![" file "](" file ")")))

我的问题是文件使用绝对路径而不是文件名，导致文件在推送到服务器时出错。

我得到的不仅仅是 yahoocom.png

/Users/test/test/test/test/yahoocom.png

我只想得到

yahoocom.png

无论如何我可以修改代码以便它只使用文件名。

Answer 1

我认为您正在寻找的是file-name-nondirectory ：

返回文件名 FILENAME 没有它的目录。 例如，在 Unix 语法文件名中，这是最后一个斜杠之后的所有内容，或者如果它不包含斜杠，则为整个名称。

请注意，您可能不想将基本名称传递给shell-command （使用原始绝对路径或file-relative-name ）

PS。 我建议您在interactive表单中将"G"替换为"fImage file name: " ，因为如果file不存在，您的 function 将失败。

Answer 2

虽然 sds 的答案确实给出了您直接要求的内容，但我认为您真正要寻找的可能是文件的相对名称（如果文件位于当前工作目录中，这将是相同的）。 如果是这样，请尝试file-relative-name ：

将 FILENAME 转换为相对于 DIRECTORY （默认值： default-directory ）。
此 function 返回一个相对文件名，当与该默认目录一起使用时，该文件名等效于 FILENAME 作为默认值。
如果 FILENAME 是一个相对文件名，它将被解释为存在于default-directory中。
如果 FILENAME 和 DIRECTORY 位于不同的机器上或 DOS/Windows 机器上的不同驱动器上，它会以扩展形式返回 FILENAME。