Как мне получить доступ к локальным переменным каталога в моих обработчиках основного режима?

Я определил файл .dir-locals.el со следующим content:

((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 у меня есть эта функция ловушки:

(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 ]. Однако, когда я набираю имя, я получаю вместо этого «saas».

Очевидно, здесь есть проблема с порядком загрузки; есть ли способ, чтобы мои операторы ловушки режима реагировали на локальные переменные каталога?

10
задан Chris R 28 February 2011 в 20:37
поделиться