Emacs: define una función que carga el archivo donde está definida la función

Question

Estoy refabricando un poco en mi configuración de Emacs y he llegado a la conclusión de que quiero usar un archivo init diferente al predeterminado. Así que, básicamente, en mi archivo ~/.emacs, tengo esto:

(load "/some/directory/init.el") 

Hasta ahora, que ha estado trabajando muy bien. Sin embargo, ahora quiero volver a definir un viejo comando que he utilizado para las edades, que se abre mi archivo de inicio:

(defun conf() 
    "Open a buffer with the user init file." 
    (interactive) 
    (find-file user-init-file)) 

Como se puede ver, esto abrirá ~/.emacs no importa lo que hago. Quiero que se abra /some/directory/init.el, o donde sea que se haya definido el comando conf.

¿Cómo podría hacer eso?

Answer 1

Puede utilizar find-function para esto:

(defun conf() 
    "Open a buffer with the user init file." 
    (interactive) 
    (find-function this-command)) 

Answer 2

También se puede utilizar de una manera más disimulados:

(defun conf() "blabla" (interactiva) (find-file # $))

Porque # $ funciona un poco como __FILE__ en C: se reemplaza por el nombre del archivo cuando se lee el archivo.

Answer 3

Esto funciona para mí.

;;; mymodule.el --- does my thing 

(defvar mymodule--load-path nil "load path of the module") 

    ... 

(defun mymodule-load-datafile() 
    "load a data file from the directory in which the .el resides" 
    (let* ((dir-name (concat 
         (file-name-directory mymodule--load-path))) 
     (data-file-name (concat dir-name "datafile.csv"))) 
    (if (file-exists-p data-file-name) 
     ...))) 

;; remember load time path 
(setq mymodule--load-path load-file-name) 

(provide 'mymodule)