¿Cómo puedo acceder a las variables locales de directorio en mis ganchos de modo principal?
He definido un archivo .dir-locals.el con el siguiente contenido:
((python-mode . ((cr/virtualenv-name . "saas"))))
En mis .emacs tengo la siguiente función para recuperar este valor y proporcionar una ruta 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")))
Finalmente, en mi lista de gancho de modo pitón, tengo esta función de enlace:
(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)))))
Cuando abro un nuevo archivo de Python, el mensaje registrado porcr/python-mode-shell-setup
indica quecr/virtualenv-name
esnil
. Sin embargo, cuando uso C-h v el nombre, obtengo "saas" en su lugar.
Obviamente hay un problema de orden de carga aquí; ¿Hay alguna manera de que mis sentencias de enlace de modo respondan a variables locales de directorio?