Emacs: definisce una funzione che carica il file in cui è definita la funzione stessa

Question

Sto refactoring un po 'nel mio set di Emacs e sono giunto alla conclusione che voglio usare un file init diverso da quello predefinito. Quindi, fondamentalmente, nel mio file ~/.emacs, ho questo:

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

Fino ad ora, che sta lavorando bene. Tuttavia, ora voglio ridefinire un vecchio comando che ho usato per secoli, che apre il mio file di inizializzazione:

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

Come si può vedere, questo aprirà ~/.emacs, non importa quello che faccio. Voglio che apra /some/directory/init.el, o ovunque sia definito il comando conf.

Come faccio?

Answer 1

È possibile utilizzare find-function per questo:

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

Answer 2

È anche possibile utilizzare un modo sneakier:

(defun conf() "blabla" (interattivo) (find-file di # $))

Perché # $ funziona un po 'come __FILE__ in C: viene sostituito dal nome file quando il file viene letto.

Answer 3

Questo funziona per me.

;;; 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)