2

我正在尝试创建一些快捷键来启动和停止金字塔项目中使用的“粘贴服务”命令。这是我的 elisp 代码：

(defun search-for-file (file dir)
  "Recursively searches up the directory tree for a given filename"
  (if (equal "/" dir)
      nil
    (if (member file (directory-files dir))
        (concat (file-name-as-directory dir) file)
      (progn
        (cd-absolute dir)
        (cd "..")
        (search-for-file file default-directory)))))

(defun paster-serve-start ()
  (interactive)
  (progn
    (start-process
     "paster-serve" "server"
     "paster" "serve" (search-for-file "development.ini" ".") "--reload" "-v")
    (switch-to-buffer "server")))

(defun paster-serve-stop ()
  (interactive)
  (progn
    (setq proc (get-process "paster-serve"))
    (setq buf (get-buffer "server"))
    (quit-process proc)
    (kill-buffer buf)))

(define-prefix-command 'paster-map)
(global-set-key (kbd "C-p") 'paster-map)
(define-key paster-map (kbd "s") 'paster-serve-start)
(define-key paster-map (kbd "e") 'paster-serve-stop)

这些函数可以像我期望的那样从一个default-directory设置为 development.ini 所在位置的缓冲区工作（例如 ~/myproject）；但是，当我在项目基目录（例如 ~/myproject/myproject/templates）下的目录中时，我希望能够完成这项工作 - 当我尝试从 development.ini 所在的目录下运行该进程时，我得到了这个错误：

IOError: File '/home/myuser/myproject/~/myproject/development.ini' not found

是否有任何开明的 emacs 大师可以阐明我在这里做错了什么？

4

1 回答 1

2

我对所有这些cd功能有点警惕。search-for-file根据 中的类似函数，试试这个替代定义project-local-variables.el：

(defun search-for-file (file dir)
  "Look up the file in and above `dir'."
 (let ((f (expand-file-name file dir))
       (parent (file-truename (expand-file-name ".." dir))))
   (cond ((string= dir parent) nil)
         ((file-exists-p f) f)
         (t (search-for-file file parent)))))
于 2011-02-11T08:25:24.603 回答