1

我正在使用erlang模式。梁是在与源文件相同的文件夹中生成的，源文件位于嵌套文件夹中，而不仅仅是文件夹src中。

我想我应该覆盖erlang.el 中的inferior-erlang-compile-outdir，但我失败了。

以下是我的功能：

(defun inferior-erlang-compile-outdir ()
  (let* (format "%s/ebin" (get-project-path))))

PS：get-project-path是获取我的项目根路径的函数。

===========更新==================

(require-package 'erlang)

;; add include directory to default compile path.
(defvar erlang-compile-extra-opts
  '(bin_opt_info 
    debug_info
    (i . "../include")
    (i . "../../include")))

;; define where put beam files.
(defun inferior-erlang-compile-outdir ()
  (concat (get-closest-pathname) "/ebin" ))

(require 'erlang-start)


;;----------------------------------------------------------------------------
;; Get closest pathname of file
;;----------------------------------------------------------------------------
(defun* get-closest-pathname (&optional (file "Makefile"))
  (let ((dir (locate-dominating-file default-directory file)))
    (or dir default-directory)))
4

1 回答 1

3

没错，inferior-erlang-compile-outdir定义了放置编译文件的位置。虽然你的使用let*是错误的。let允许您定义范围变量，在您的情况下您根本不需要它。只需连接两个字符串：

(defun inferior-erlang-compile-outdir ()
    (concat (get-project-path) "/ebin" ))

如果您想使用let，请查看此处的文档以供将来参考。

但是当你定义它时，erlang-mode 还没有加载。因此，一旦加载了 erlang-mode，您的函数就会被原始函数覆盖。你必须在之后定义它。这应该这样做：

(eval-after-load "erlang"
  '(defun inferior-erlang-compile-outdir ()
     (concat (expand-file-name (get-closest-pathname)) "ebin")))
于 2013-07-17T07:43:54.323 回答