如何在主模式钩子中访问目录局部变量？

小编典典

如何在主模式钩子中访问目录局部变量？

python

我定义了一个.dir-locals.el文件，其内容如下：

((python-mode . ((cr/virtualenv-name . "saas"))))

在我的.emacs中，我具有以下函数来检索此值并提供virtualenv路径：

(defun cr/virtualenv ()
  (cond (cr/virtualenv-name (format "%s/%s" virtualenv-base cr/virtualenv-name))
        ((getenv "EMACS_VIRTUAL_ENV") (getenv "EMACS_VIRTUAL_ENV"))
        (t "~/.emacs.d/python")))

最后，在我的python-mode-hook列表中，我具有以下hook函数：

(add-hook 'python-mode-hook 'cr/python-mode-shell-setup)

(defun cr/python-mode-shell-setup ()
  (message "virtualenv-name is %s" cr/virtualenv-name)
  (let ((python-base (cr/virtualenv)))
    (cond ((and (fboundp 'ipython-shell-hook) (file-executable-p (concat python-base "/bin/ipython")))
           (setq python-python-command (concat python-base "/bin/ipython"))
           (setq py-python-command (concat python-base "/bin/ipython"))
           (setq py-python-command-args '( "-colors" "NoColor")))
          (t
           (setq python-python-command (concat python-base "/bin/python"))
           (setq py-python-command (concat python-base "/bin/python"))
           (setq py-python-command-args nil)))))

当我打开一个新的python文件时，记录的消息cr/python-mode-shell-setup表明cr/virtualenv- name是nil。但是，当我Ch v名称时，我得到的是“ saas”。

显然，这里存在装载订单问题；有没有办法让我的模式钩子语句响应目录局部变量？

阅读 218

2020-12-20

共1个答案

小编典典

这是因为normal-mode调用(set-auto-mode)和(hack-local-variables)按顺序。

但是hack-local-variables-hook在处理局部变量之后运行，这将启用一些解决方案：

首先是让Emacs为每种主要模式运行一个新的“局部变量钩子”：
```
(add-hook 'hack-local-variables-hook 'run-local-vars-mode-hook)
```
(defun run-local-vars-mode-hook ()
“Run a hook for the major-mode after the local variables have been processed.”
(run-hooks (intern (concat (symbol-name major-mode) “-local-vars-hook”))))

(add-hook ‘python-mode-local-vars-hook ‘cr/python-mode-shell-setup)

（使用该方法，可以原样使用您的原始功能。）

第二种选择是利用可选LOCAL参数add-hook，使指定函数在本地缓冲区中。使用这种方法，您可以如下所述编写钩子：
```
(add-hook 'python-mode-hook 'cr/python-mode-shell-setup)
```
(defun cr/python-mode-shell-setup ()
(add-hook ‘hack-local-variables-hook
(lambda () (message “virtualenv-name is %s” cr/virtualenv-name)
(let ((python-base (cr/virtualenv)))
(cond ((and (fboundp ‘ipython-shell-hook) (file-executable-p (concat python-base “/bin/ipython”)))
(setq python-python-command (concat python-base “/bin/ipython”))
(setq py-python-command (concat python-base “/bin/ipython”))
(setq py-python-command-args ‘( “-colors” “NoColor”)))
(t
(setq python-python-command (concat python-base “/bin/python”))
(setq py-python-command (concat python-base “/bin/python”))
(setq py-python-command-args nil)))))
nil t)) ; buffer-local hack-local-variables-hook

即python-mode-hook先运行，然后hack-local-variables- hook仅针对当前缓冲区注册匿名函数；然后在处理完局部变量后调用该函数。

Lindydancer的评论提出了第三种方法。它不像其他两个那么干净，但是无论如何都证明很有趣。我不喜欢引起(hack-local-variables)两次调用的想法，但是我看到如果在local-enable-local-variables本地设置缓冲区，它将阻止(hack-local-variables)执行任何操作，因此可以执行以下操作：
```
(defun cr/python-mode-shell-setup ()
```
(report-errors “File local-variables error: %s”
(hack-local-variables)))
(set (make-local-variable ‘local-enable-local-variables) nil)
(let ((python-base (cr/virtualenv)))
…))

显然，这会稍微修改正常的执行顺序，因此可能会产生副作用。我担心如果文件中的局部变量注释
设置了相同的主要模式，则可能会导致无限递归，但这实际上似乎不是问题。

局部变量标头注释（例如-*- mode: foo -*-）由处理(set-auto-mode)，因此可以；但是mode: foo Local Variables:注释似乎是由处理的(hack-local-variables)，这将是一个问题，因此，如果以这种方式设置模式，我认为它将导致递归。

在实践中，我可以通过使用一个简单的函数作为“模式”来触发问题，该函数只是尝试运行其钩子而已。但是，以“适当”模式进行测试不会出现问题，因此实际上可能是安全的。我没有对此做进一步的研究（因为其他两个解决方案都比这更清洁），但是我想延迟模式钩子机制可能解释了这一点？

2020-12-20