Clojure Emacs etags
我想索引clojure文件，使用etags，这样我就可以使用Emacs的标签功能。 但etags不识别clojure功能。 是否有可能扩展etags以包含clojure定义？
基于http://nakkaya.com/2009/12/13/getting-etags-to-index-clojure-files/
以下命令全部在一行上
find . ! -name '.*' -name '*.clj' | xargs etags --regex='/[ t(]*def[az]* ([az-!]+)/1/' --regex='/[ t(]*ns ([az.]+)/1/'
查看源代码，似乎只需使用--language=lisp标志运行etags ，因为Lisp识别器会查找字符串'def'。
如果这不起作用，您将不得不修改etags以便它可以识别Clojure并为其生成一个标签文件。 这是html格式的etags的来源。 看起来这不是一件困难或长期的工作。 以下是用于识别Python的规则：
/*
* Python support
* Look for /^[t]*def[ tn]+[^ tn(:]+/ or /^class[ tn]+[^ tn(:]+/
* Idea by Eric S. Raymond <esr@thyrsus.com> (1997)
* More ideas by seb bacon <seb@jamkit.com> (2002)
*/
static void
Python_functions (inf)
FILE *inf;
{
register char *cp;
LOOP_ON_INPUT_LINES (inf, lb, cp)
{
cp = skip_spaces (cp);
if (LOOKING_AT (cp, "def") || LOOKING_AT (cp, "class"))
{
char *name = cp;
while (!notinname (*cp) && *cp != ':')
cp++;
make_tag (name, cp - name, TRUE,
lb.buffer, cp - lb.buffer + 1, lineno, linecharno);
}
}
}
Lisp支持涉及更多一点：
/*
* Lisp tag functions
* look for (def or (DEF, quote or QUOTE
*/
static void L_getit __P((void));
static void
L_getit ()
{
if (*dbp == ''') /* Skip prefix quote */
dbp++;
else if (*dbp == '(')
{
dbp++;
/* Try to skip "(quote " */
if (!LOOKING_AT (dbp, "quote") && !LOOKING_AT (dbp, "QUOTE"))
/* Ok, then skip "(" before name in (defstruct (foo)) */
dbp = skip_spaces (dbp);
}
get_tag (dbp, NULL);
}
static void
Lisp_functions (inf)
FILE *inf;
{
LOOP_ON_INPUT_LINES (inf, lb, dbp)
{
if (dbp[0] != '(')
continue;
if (strneq (dbp+1, "def", 3) || strneq (dbp+1, "DEF", 3))
{
dbp = skip_non_spaces (dbp);
dbp = skip_spaces (dbp);
L_getit ();
}
else
{
/* Check for (foo::defmumble name-defined ... */
do
dbp++;
while (!notinname (*dbp) && *dbp != ':');
if (*dbp == ':')
{
do
dbp++;
while (*dbp == ':');
if (strneq (dbp, "def", 3) || strneq (dbp, "DEF", 3))
{
dbp = skip_non_spaces (dbp);
dbp = skip_spaces (dbp);
L_getit ();
}
}
}
}
}
为了改进miner49的答案：
我在我的.emacs中注意到了这些（注意正则表达式中的细微变化，ctags在不用于指定范围的情况下在正则表达式中间大喊“ - ”）
; Recursively generate tags for all *.clj files,
; creating tags for def* and namespaces
(defun create-clj-tags (dir-name)
"Create tags file."
(interactive "Directory: ")
(shell-command
(format "%s --langdef=Clojure --langmap=Clojure:.clj --regex-Clojure='/[ t(]*def[a-z]* ([a-z!-]+)/1/' --regex-Clojure='/[ t(]*ns ([a-z.]+)/1/' -f %s/TAGS -e -R %s" path-to-ctags dir-name (directory-file-name dir-name)))
)
另一个障碍是，在我的箱子粘液覆盖M-。 使用它自己的查找功能而不是查找标签，并且该功能无法正常工作。 e它自己的查找功能，而不是查找标签，并且该功能无法正常工作。 您可以调用find-tag seperatley从TAG文件中查找标签，但内置函数在连接到slime / swank服务器时会跳转到内建函数的源头，这非常简洁。 我的elisp技能未能巩固这两者。 史莱姆期望find-tag返回nil，如果失败似乎不会发生，那么下面的内容
(add-hook 'slime-edit-definition-hooks 'find-tag)
带回基于TAGS的搜索，但破坏了swank-server搜索。
链接地址: http://www.djcxy.com/p/6565.html上一篇: Clojure Emacs etags